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

Question

我有一个要求如下。

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

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

2. Else 将记录写入 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' 压缩十进制格式给出当前日期。