比较包装十进制朱利安日期与(填充十进制当前朱利安日期-7天)使用JCL-同步排序？

Question

我有一个要求如下。

在我的输入文件中，我已经将十进制朱利安dateYYYYDDD格式打包在第23位(位置23，长度4)。

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‘打包的十进制格式给出当前日期。