mainframe - 如何使用 JCL-SYNCSORT 将 PD Julian 日期与（Current Julian date-7）进行比较？

Question

我有如下要求。

在我的输入文件中，我有一个从第 23 位开始的压缩十进制儒略日期（位置 23，长度为 4）。

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

2. 否则将记录写入输出 File2。

任何人都可以让我知道仅在 SyncSort 中满足此要求的解决方案吗？

Answer 1

你可以用这个...

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

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