REXX programs cannot be written inline. You must save it in a PDS. You then allocate that PDS to either SYSPROC or SYSEXEC. You can then run it like:
//REXX EXEC PGM=IKJEFT01 //SYSECEC DD DISP=SHR,DSN=PDS.containing.REXX.pgm //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * %rexxpgm /* // Where "rexxpgm" is the PDS member name in the PDS. On Apr 27, 2013 7:27 PM, "Graham Hobbs" <[email protected]> wrote: > Hello, > Am a 'not a sysprog' doing stuff at Dallas IIC under z/OS. Another prob > (for me anyway). Have a JCL stream, first step is supposed to run a REXX > pgm but it won't. Googling didn't help. Can anybody tell me what I've > missed. > > JCL I sub is: > //ATEST JOB (CONRAD-B),'IBMUSE2', > // CLASS=A,MSGCLASS=0,MSGLEVEL=(1,1) > //JOBLIB DD DSN=VENDOR.LINKLIB.SECOND,DISP=SHR > //*------------------------------ > //STEPNAME EXEC PGM=IKJEFT01 > //SYSEXEC DD DSN=VENDOR.SYSEXEC,DISP=SHR > //SYSTSPRT DD SYSOUT=* > //SYSTSIN DD DSN=VENDOR.SYSEXEC(JOB2),DISP=SHR > .. followed by other stuff. > > REXX is: > /* rexx */ > say 'Job1 started' > say 'Job1 ended' > exit > > Result in SDSF;O is: > ********************************* TOP OF DATA ******* > READY > /* rexx */ > READY > say 'Job1 started' > IKJ56500I COMMAND SAY NOT FOUND > READY > say 'Job1 ended' > IKJ56500I COMMAND SAY NOT FOUND > READY > exit > IKJ56500I COMMAND EXIT NOT FOUND > READY > END > ******************************** BOTTOM OF DATA ***** > > Looking at the output 'it' certainly found the REXX - that's a start - > success ended there! Also IKJ56500 isn't in the manual and googling didn't > help. > Please, thanks, > Graham Hobbs > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
