View previous topic :: View next topic
Author
Message
srajanbose New User Joined: 11 Oct 2004Posts: 69 Location: chennai
In rexx I created a job as below
Code:
REQ1B= USERID()
REQ1C= 'B JOB CLASS=E,MSGCLASS=U,REGION=0M,NOTIFY=&SYSUID'
REQ1 = REQ1A||REQ1B||REQ1C
REQ2 ='//STEP01 EXEC PGM=IDCAMS'
REQ2A='//SYSOUT DD SYSOUT=*'
REQ2B='//SYSPRINT DD SYSOUT=*'
REQ3 ='//SYSIN DD *'
REQ4 =' DELETE '||OUT_FIL
REQ5 ='/*'
REQ6 = '//STEP001 EXEC PGM=IEFBR14 '
REQ7A= '//DD1 DD DSN='||OUT_FIL
REQ7B= ','
REQ7 = REQ7A||REQ7B
REQ8 = '// DISP=(,CATLG,CATLG), '
REQ9 = '// SPACE=(CYL,(1,1),RLSE), '
REQ10= '// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) '
REQ11= '//STEP002 EXEC PGM=IEFBR14 '
REQ12= '//DD1 DD DSN='||OUT_FIL
REQ13= ','
REQ14 = REQ7A||REQ7B
REQ8 = '// DISP=(,CATLG,CATLG), '
REQ9 = '// SPACE=(CYL,(1,1),RLSE), '
REQ10= '// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) '
REQ11= '//* '
Q=1
JCL.Q = REQ1
Q=Q+1
JCL.Q = REQ2
Q=Q+1
JCL.Q = REQ2A
Q=Q+1
JCL.Q = REQ2B
Q=Q+1
JCL.Q = REQ3
Q=Q+1
JCL.Q = REQ4
Q=Q+1
JCL.Q = REQ5
Q=Q+1
JCL.Q = REQ6
Q=Q+1
JCL.Q = REQ7
Q=Q+1
JCL.Q = REQ8
Q=Q+1
JCL.Q = REQ9
Q=Q+1
JCL.Q = REQ10
Q=Q+1
JCL.Q = REQ11
ALLJCL = REQ1B'.ALLO.JCL'
"DELETE '"ALLJCL"'"
"ALLOCATE DATASET('"ALLJCL"') NEW SPACE(1,2) CYLINDERS ",
"DSORG(PS) RECFM(F B) LRECL(80) BLKSIZE(8000)"
"ALLOC F(SEQFILE) DA('"ALLJCL"') SHR REU"
"EXECIO * DISKW SEQFILE (STEM JCL. FINIS)"
IF RC ^= 0 THEN DO
SAY 'ERROR WRITTING JCL !'
END
"FREE F(SEQFILE)" ;
"SUBMIT '"ALLJCL"'"
Then I tried to extract some PDS members names through REXX and tried to write the members in a dataset which got created from the above JCL. What happens here is before the JCL gets created the REXX program tried to write the member name in the file and abended. Could anyone suggest how to handle the situation?
Back to top
expat Global Moderator Joined: 14 Mar 2007Posts: 8797 Location: Welsh Wales
So you want to play 20 questions, but I DO NOT
OK, it abended, any chance of letting us know with what ?
What error messages and codes were issued at abend
Have you traced the exec
Is this batch or online
Back to top
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10872 Location: italy
given the horrible way You posted the question, the only answer You deserve is...
I am so sorry, I hope You will be able to fix it
P.S.
did You really think that with the info You gave, we would be able to help You?
Back to top
Pedro Global Moderator Joined: 01 Sep 2006Posts: 2545 Location: Silicon Valley
Please clarify if you are trying to debug that rexx program, the JCL or some other rexx program.
And clarify if you have problems while running some rexx or before the rexx runs?
And as Enrico and Expat said... your problem is not described very well.
Back to top
Please enable JavaScript!