DFSORT: get the Yesterday date

[simo78]

Hi,

is it possibile with DFSORT to get the Yesterday date
in format DD.MM.YYMM?

Can you plese help on this.

Thanks

[William Collins]

YYMM?

Yes. Whenever you need a format which is not directly supported, you just need to rearrange the data from the closest format that you can find. Have a look at the manual for date processing.

[simo78]

Hi William,

sorry I meant:

DD.MM.YY

[William Collins]

Well, same thing. Have a look at the date formats in the manual. If not an exact one, there will be one which you can use then "change" to look exactly how you want.

Look at the Smart Tricks, google for date and DFSORT, search here, etc.

[simo78]

Hi again,
I looked at the Smart Tricks, seached and I got what I want:

Code: Select all

//STEP0    EXEC PGM=SORT                                          
//SYSOUT   DD SYSOUT=*                                            
//SORTIN   DD *                                                   
DUMMY                                                             
//SORTOUT  DD DSN=&&TMP1,DISP=(,PASS)                             
//SYSIN    DD *                                                   
  OUTREC BUILD=(DATE1)                                            
//*                                                               
//STEP1    EXEC PGM=SORT                                          
//SYSOUT   DD SYSOUT=*                                            
//SORTIN   DD DSN=*.STEP0.SORTOUT,DISP=(OLD,DELETE)               
//SORTOUT  DD SYSOUT=*                                            
//SYSIN    DD *                                                   
  SORT FIELDS=COPY                                                
  INREC OVERLAY=(1,8,Y4T,ADDDAYS,-1,TOGREG=Y2T(.))

My question is: is it possible to do this in one step?

[William Collins]

Try with this:

Code: Select all

  INREC OVERLAY=(1:DATE1,1:1,8,Y4T,ADDDAYS,-1,TOGREG=Y2T(.))

[simo78]

THANKS A LOT!