Author: magesh23586
Subject: Reply to: Add system date inside of a PS file at particular column
Posted: Mon Aug 29, 2016 9:23 pm (GMT 5.5)
incase first header is unique and always will have "DETAILS" in 1,7 position, use the below code.
Incase header in not unique use below code, assuming LRECL=80
_________________
Regards,
Magesh
Subject: Reply to: Add system date inside of a PS file at particular column
Posted: Mon Aug 29, 2016 9:23 pm (GMT 5.5)
incase first header is unique and always will have "DETAILS" in 1,7 position, use the below code.
| Code: |
//STEP0200 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SYMNOUT DD SYSOUT=* //SYMNAMES DD * HDATE,S'&LYR2.&LMON.&DAY' //SORTIN DD DSN=UR INPUT FB/80 //SORTOUT DD DSN=UR OUPUT FB/80 //SYSIN DD * OPTION COPY,STOPAFT=2 INREC IFTHEN=(WHEN=(1,7,CH,EQ,C'DETAILS'),OVERLAY=(60:HDATE)) //* |
Incase header in not unique use below code, assuming LRECL=80
| Code: |
//STEP0200 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SYMNOUT DD SYSOUT=* //SYMNAMES DD * HDATE,S'&LYR2.&LMON.&DAY' //SORTIN DD DSN=UR INPUT FB/80 //SORTOUT DD DSN=UR OUPUT FB/80 //SYSIN DD * OPTION COPY,STOPAFT=2 INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)), IFTHEN=(WHEN=(81,8,ZD,EQ,1),OVERLAY=(60:HDATE)), IFOUTLEN=80 |
_________________
Regards,
Magesh