如何使用 JCL-SYNCSORT 比较 PD 儒略日期与（当前儒略日期 7）？

Question

我有以下要求。

在我的输入文件中，我从第23个位置开始（位置23，长度4），有一个十个十个朱利安日期。

1. 如果我的输入朱利安日期小于（当前朱利安日期-7天），然后将记录写入输出文件1。

2. else将记录写入OututFile2。

有人可以让我知道仅在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' 压缩十进制格式给出当前日期。