IBM Mainframe Forum

Hi
I can't use the last SUBDAYS function in dfsort because the PTF is not availabe in my installation.
I need to subtract 1 day to a date in a sortin file but I can't do it. I'm trying the next, but the result are wrong.

//SORTIN DD *
20100507
//SORTOUT DD DSN=THEOUT.FILE,DISP=(,CATLG,CATLG),
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=0),
// UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION DYNALLOC=(,12)
SORT FIELDS=COPY
INREC OVERLAY=(40:01,08,Y4T,TOJUL=Y4T)
OUTREC OVERLAY=(50:40,07,ZD,SUB,+1)
OUTFIL BUILD=(01,08,C'*',40,07,C'*',50,7,Y4T,TOGREG=Y4T)
END

This is the result:

20100507*2010127*

Someone can help me?

Thanks.

Javivi,

You are performing arithmetic on the entire 7 bytes of Julian date which is not correct. You need to perform arithmetic just on DDD portion of the julian date. You also need to take care of January 1st. If the input date is January 1st , you need to subtract 1 from the year. Here is a DFSORT JCL which will give you the desired results



This will produce the following output