Сравните упакованную десятичную юлианскую дату с (упакованная десятичная дробь Текущая юлианская дата-7 дней), используя JCL-SYNCSORT? - PullRequest
0 голосов
/ 21 сентября 2011

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

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

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

  2. Остальное Записать записи в Out file2.

Кто-нибудь может дать мне знать, как сравнивать упакованную десятичную юлианскую дату с (упакованная десятичная дробь Текущий юлианский дата-7 дней), используя JCL-SYNCSORT?

1 Ответ

1 голос
/ 28 сентября 2011

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

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

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

...