Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

DFSORT/ICETOOL :: RE: Alter &DATENS field in HEADER1

$
0
0
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:

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


Viewing all articles
Browse latest Browse all 8500

Trending Articles