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: Arun Raj
Posted: Mon Apr 24, 2017 9:28 pm (GMT 5.5)

Alternatively, you could also append the calculated date value in an OUTREC, and just use it in your HEADER.
Code:
//STEP01  EXEC PGM=SORT                     
//SYSOUT    DD SYSOUT=*                     
//SORTOUT   DD SYSOUT=*                     
//SORTIN    DD *                             
RECORD                                       
//SYSIN     DD *                             
 SORT FIELDS=COPY                           
 OUTREC OVERLAY=(81:DATE2-1,C'01')           
 OUTFIL NODETAIL,REMOVECC,HEADER1=('H ',81,8)

SORTOUT
Code:
----+----1--
H 20170301 

_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard


Viewing all articles
Browse latest Browse all 8500

Trending Articles