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).
If my the input Julian date is less than (Current Julian date - 7 days) then write the records into output File1.
Else write the records into outut File2.
Can anybody let me know the solution for this requirement in SyncSort only?
Solution
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.
Licensed under: CC-BY-SA with attribution
Not affiliated with StackOverflow