How to Compare PD Julian date with (Current Julian date-7) using JCL- SYNCSORT?

Question

I have a requirement as below.

In my input file, I have a packed-decimal Julian date starting in the 23rd position (position 23, length 4).

1. If my the input Julian date is less than (Current Julian date - 7 days) then write the records into output File1.

2. Else write the records into outut File2.

Can anybody let me know the solution for this requirement in SyncSort only?

Answer 1

You can use this...

//SYSIN  DD *
 SORT FIELDS=COPY,
 OUTFIL FNAMES=01,
 INCLUDE=(23,4,PD,EQ,DATE3P-7)
 OUTFIL FNAMES=02,SAVE

DATE3P gives the current date in P'YYYYDDD' packed-decimal format.