How to get Julian date



Support for NetApp SyncSort for z/OS, Visual SyncSort, SYNCINIT, SYNCLIST and SYNCTOOL

Re: How to get Julian date

Postby bodatrinadh » Mon Apr 02, 2012 12:54 am

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   
Thanks
-3nadh
User avatar
bodatrinadh
 
Posts: 67
Joined: Thu Jan 12, 2012 9:05 pm
Has thanked: 0 time
Been thanked: 4 times

Re: Re: How to get Julian date

 

Re: How to get Julian date

Postby shailaja85 » Tue Apr 03, 2012 6:27 am

Hi 3nadh,


It is working fine, lot many thanks for your help :)
shailaja85
 
Posts: 20
Joined: Fri Feb 10, 2012 5:52 pm
Has thanked: 0 time
Been thanked: 0 time

Previous

Return to Syncsort/Synctool

 


  • Related topics
    Replies
    Views
    Last post