使用JCL-SYNCSORT比较打包的十进制Julian日期与（打包的十进制当前Julian日期-7天）？

Question

我的要求如下。

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

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

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

有人可以让我知道如何使用JCL-SYNCSORT比较打包的十进制Julian日期和（打包的十进制当前Julian日期 - 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'压缩十进制格式给出当前日期。