mainframe - 使用 JCL-SYNCSORT 将压缩十进制儒略日期与（压缩十进制当前儒略日期 - 7 天）进行比较？

Question

我有如下要求。

在我的输入文件中，我在第 23 位（位置 23，长度 4）有打包十进制儒略日期 [YYYYDDD 格式]。

1. 如果我输入的儒略日期小于（当前儒略日期 - 7 天），则将记录写入 Out File1。

2. 否则将记录写入 Out file2。

谁能让我知道如何使用 JCL-SYNCSORT 将压缩十进制儒略日期与（压缩十进制当前儒略日期 - 7 天）进行比较？

Answer 1

你可以用这个...

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

DATE3P 以 P'YYYYDDD' 压缩十进制格式给出当前日期。