Как сравнить PD Julian date с (Current Julian date-7), используя JCL-SYNCSORT?

Question

У меня есть требование, как показано ниже.

В моем входном файле у меня есть упакованная десятичная юлианская дата, начиная с 23-й позиции (позиция 23, длина 4).

1. Если входная юлианская дата меньше, чем (текущая юлианская дата - 7 дней), тогда записать записи в выходной файл1.

2. Иначе записать записи в выходной файл2.

Может кто-нибудь сообщить мне решение для этого требования только в SyncSort?

Answer 1

Вы можете использовать это ...

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

DATE3P показывает текущую дату в упакованном десятичном формате P'YYYYDDD '.