Can't submit job to internal reader



High Level Assembler(HLASM) for MVS & VM & VSE

Re: Can't submit job to internal reader

Postby chong_zhou » Fri Dec 21, 2018 7:08 pm

Thank you, Enrico. Then I'll go on to check what exactly my programme writes to the internal reader.
chong_zhou
 
Posts: 22
Joined: Wed Nov 01, 2017 8:59 pm
Has thanked: 10 times
Been thanked: 0 time

Re: Re: Can't submit job to internal reader

 

Re: Can't submit job to internal reader

Postby enrico-sorichetti » Fri Dec 21, 2018 7:16 pm

there is a logic flaw in Your testing procedure ...
before letting the system deal with the output of Your program
the first thing to do is to LOOK at that output ...
check that it is right, submit it by hand and
only after having checked that the result of the submitted jcl is right
automate the whole shebang
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2808
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 148 times

Re: Can't submit job to internal reader

Postby steve-myers » Fri Dec 21, 2018 9:55 pm

Two things.

First, what are you "protecting" with the ENQ? For all intents and purposes, the internal reader allocation itself protects the submission. You don't really need anything else! We have a tendency to think there is one internal reader, but there are really, in most shops, several internal readers in addition to the dedicated internal readers used for the START command and TSO LOGONs. You don't have to worry about someone else messing up your submission.

Second. The ACB/RPL you use to write to the internal reader should be the same as used to write a VSAM ESDS. Write to an ESDS that as a proof of concept. Well, back in the 1980s (or was in the 1970s?) I didn't bother, though by then I was already much more experienced than you.
steve-myers
Global moderator
 
Posts: 1979
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 215 times

Re: Can't submit job to internal reader

Postby chong_zhou » Fri Dec 21, 2018 10:24 pm

To Steve and Enrico,

Thank you for following up and your suggestion. I'm definitely not experienced. I had been a *NIX programmer before got hired by that Mainframe software company 1+ years ago.

I really can't find anything wrong in my test programme.

I don't know how to write ESDS so I modified the OPEN/PUT statements as well as the DCB block and the DD statement so that the test programme writes to a simple PS dataset. Then I opened the PS dataset (looked fine) and 'sub'-ed it. The job worked find!

I even used IEBGENER to directly 'copy' the PS dataset mentioned above to 'SYSOUT=(A,INTRDR)', and the job in the PS was submitted too!

I only failed to submit the job from my stupid test programme! Really frustrating.

THANK YOU GUYS AGAIN for your time and help. I have to wait for my senior colleagues to be back after the Christmas week and see if they could find anything.

Thank you and wish you a merry Christmas!
chong_zhou
 
Posts: 22
Joined: Wed Nov 01, 2017 8:59 pm
Has thanked: 10 times
Been thanked: 0 time

Re: Can't submit job to internal reader

Postby steve-myers » Sat Dec 22, 2018 12:36 am

This is about as simple and bare bones as you can get. Yes, it did work in very limited testing.
INTRDR   CSECT
         USING *,12
         SAVE  (14,12),,INTRDR
         LR    12,15
         LA    15,SAVEAREA
         ST    13,4(,15)
         ST    15,8(,13)
         LR    13,15
         OPEN  (JCL,INPUT)
         OPEN  (INTRDRR,OUTPUT)
LOOP     GET   JCL
         ST    1,(RPLAREA-IFGRPL)+INTRPL
         PUT   RPL=INTRPL
         LTR   15,15
         BZ    LOOP
         DC    H'0'
EOF      NOPR  0
         CLOSE INTRDRR
         CLOSE JCL
         L     13,4(,13)
         RETURN (14,12),RC=0
SAVEAREA DC    9D'0'
JCL      DCB   DSORG=PS,MACRF=GL,DDNAME=JCL,EODAD=EOF
INTRDRR  ACB   DDNAME=INTRDR,MACRF=(ADR,SEQ,OUT)
INTRPL   RPL   AREALEN=80,RECLEN=80,AREA=*-*,OPTCD=(ADR,SYN,SEQ,NUP), ->
               ACB=INTRDRR
         DC    0D'0'
         IFGRPL ,
         END   INTRDR
 
steve-myers
Global moderator
 
Posts: 1979
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 215 times

Re: Can't submit job to internal reader

Postby chong_zhou » Sat Dec 22, 2018 1:54 am

To Steve:

:o :o :o Really ?? Cool !!

I must try it after dinner, and will let you know the result. A BIG THANK you in advance!
chong_zhou
 
Posts: 22
Joined: Wed Nov 01, 2017 8:59 pm
Has thanked: 10 times
Been thanked: 0 time

Re: Can't submit job to internal reader

Postby chong_zhou » Sat Dec 22, 2018 4:03 pm

To Steve:

Thank you very much for your sample programme. It really worked in my environment and it showed me a simple but clear skeleton code for using the internal reader. After I got a better understanding to all these stuff, I reviewed my code and finally managed to sort out the mistake. Now my programme can also submit jobs through internal reader. Very happy.

Thank you again!
chong_zhou
 
Posts: 22
Joined: Wed Nov 01, 2017 8:59 pm
Has thanked: 10 times
Been thanked: 0 time

Re: Can't submit job to internal reader

Postby steve-myers » Sat Dec 22, 2018 8:41 pm

In my very first post, I pointed out two rather obvious mistakes:
  1. Your RPL did not point to its corresponding ACB.
  2. The RPL did not specify an area address.
Really, all I did was correct those problems and surrounded the GET/PUT RPL loop with as simple a shell as I could arrange.
steve-myers
Global moderator
 
Posts: 1979
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 215 times

Previous

Return to Assembler

 


  • Related topics
    Replies
    Views
    Last post