У меня есть требование, как показано ниже.
В моем входном файле я упаковал десятичную юлианскую дату [формат ГГГГДДД] на 23-й позиции (позиция 23, длина 4).
Если входная юлианская дата меньше, чем (текущая юлианская дата - 7 дней), тогда запишите записи в Out File1.
Остальное Записать записи в Out file2.
Кто-нибудь может дать мне знать, как сравнивать упакованную десятичную юлианскую дату с (упакованная десятичная дробь Текущий юлианский дата-7 дней), используя JCL-SYNCSORT?
Вы можете использовать это ...
SYSIN DD * SORT FIELDS=COPY, OUTFIL FNAMES=01, INCLUDE=(23,4,PD,EQ,DATE3P-7) OUTFILF FNAMES=02,SAVE
DATE3P дает текущую дату в упакованном десятичном формате P'YYYYDDD '.