Author: John Del
Posted: Mon Apr 24, 2017 8:56 pm (GMT 5.5)
I would build a symbolic for the date in a previous sort step, similar to the following:
Output:
/*
_________________
Posted: Mon Apr 24, 2017 8:56 pm (GMT 5.5)
I would build a symbolic for the date in a previous sort step, similar to the following:
Code: |
//STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * //XORTOUT DD DSN=&&S,DISP=(,PASS),SPACE=(TRK,(1,0),RLSE) //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY,STOPAFT=1 OUTFIL BUILD=(C'FIRST-OF-LAST-MONTH,',DATE2-1,C'01',80:X) // |
Output:
Code: |
FIRST-OF-LAST-MONTH,20170301 |
/*
_________________
Code: |
*WORK EDIT1 UNIX DSLIST1 DSLIST2 -SDSF1 SDSF2 ENDEVOR |