Page 3 of 3

Re: How to get Julian date

PostPosted: Mon Apr 02, 2012 12:54 am
by bodatrinadh
Hello Shailaja,

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)



Output:-
TST.SORT.PDS   
TST.COBOL.PDS   
TST.SAS.PDS     
TST.FTP.PDS   

Re: How to get Julian date

PostPosted: Tue Apr 03, 2012 6:27 am
by shailaja85
Hi 3nadh,


It is working fine, lot many thanks for your help :)