Re: How to get Julian date
Posted: Mon Apr 02, 2012 12:54 am
Hello Shailaja,
Replace with this code...
Output:-
Replace with this code...
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
2012/091 TST.SORT.PDS
2012/091 TST.COBOL.PDS
2012/091 TST.SAS.PDS
2012/091 TST.FTP.PDS
2012/090 TST.FTP1.PDS
2012/089 TST.FTP2.PDS
2012/088 TST.FTP3.PDS
2012/093 TST.FTP4.PDS
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(1:3,4,5:8,3,4X,13:13,20))
SORT FIELDS=COPY
OUTFIL REMOVECC,BUILD=(1:13,20),INCLUDE=(1,7,ZD,EQ,&DATE3P-1)
//SYSOUT DD SYSOUT=*
//SORTIN DD *
2012/091 TST.SORT.PDS
2012/091 TST.COBOL.PDS
2012/091 TST.SAS.PDS
2012/091 TST.FTP.PDS
2012/090 TST.FTP1.PDS
2012/089 TST.FTP2.PDS
2012/088 TST.FTP3.PDS
2012/093 TST.FTP4.PDS
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(1:3,4,5:8,3,4X,13:13,20))
SORT FIELDS=COPY
OUTFIL REMOVECC,BUILD=(1:13,20),INCLUDE=(1,7,ZD,EQ,&DATE3P-1)
Output:-
TST.SORT.PDS
TST.COBOL.PDS
TST.SAS.PDS
TST.FTP.PDS
TST.COBOL.PDS
TST.SAS.PDS
TST.FTP.PDS