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

Question

我有一个要求如下。

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

1. 如果我输入Julian日期小于（当前儒略日 - 7日），然后写入记录到输出文件1。

2. Else将记录写入Out file2。

任何人都可以让我知道如何使用JCL- Syncsort公司（压缩十进制当前儒略日期7天）比较压缩十进制Julian日期？

Answer 1

您可以使用此...

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

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