I am trying to run the following REXX using a JCL:
Code: Select all
/* REXX */
"EXECIO * DISKR INFILE (STEM LINE1. FINIS"
J = 1
DO J=1 TO LINE1.0
IF SUBSTR(LINE1.I,104,13) = 'ARCHIVE DATE:' THEN
DO
OUT1.J = SUBSTR(LINE1.I,104,25)
J=J+1
END
ELSE
J=J+1
END
SAY RC
"EXECIO * DISKW OUTFILE (STEM OUT1. FINIS"
"FREE F(INPF OUTPF)"
EXI
Code: Select all
/REXXJCL EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSEXEC DD DSN=ABCD.DEFG.EXECPDS,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INFILE DD DSN=ABCD.EFGH.FILE,DISP=SHR
//*UTFILE DD SYSOUT=*
//OUTFILE DD DSN=ABCD.EFGH.OUTFILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330,DSORG=PS)
//SYSTSIN DD *
PROFILE PREFIX(EFGH)
%ABHIMAIL