求助：编写JCL复制输入文件中近3天数据（MMDDYYYY格式）

假设你使用DFSORT/SYNCSORT这类主流批量数据处理工具（适配大型主文件场景），按以下步骤实现需求：

核心逻辑 #

1. 将输入的MMDDYYYY格式日期转换为工具可识别的YYYYMMDD格式（便于日期运算）
2. 计算当前日期往前推3天的基准日期
3. 对比每条记录的日期是否大于等于基准日期，仅保留符合条件的记录

具体实现代码 #

//SYSIN    DD *
  OPTION COPY
  INREC IFTHEN=(WHEN=INIT,
                OVERLAY=(8001:7033,2,7037,4,7035,2)),  // 把MMDDYYYY转成YYYYMMDD存到8001位置
        IFTHEN=(WHEN=INIT,
                OVERLAY=(8009:&DATE1,8)),  // 获取当前系统日期（YYYYMMDD格式）
        IFTHEN=(WHEN=INIT,
                OVERLAY=(8017:8009,8,SUB,+3,TO=ZD,LENGTH=8))  // 当前日期减3天得到基准日期
  OUTFIL INCLUDE=(8001,8,ZD,GE,8017,8,ZD),  // 筛选日期≥基准日期的记录
         BUILD=(1,8000)  // 输出原记录内容
/*

关键说明 #

• 日期转换：7033,2是月份(MM)，7037,4是年份(YYYY)，7035,2是日期(DD)，拼接后得到标准的YYYYMMDD格式，解决原格式无法直接做数值运算的问题。
• 日期运算：&DATE1是系统内置的当前日期宏，SUB,+3表示减去3天，得到近3天的起始边界日期。
• 筛选条件：以十进制(ZD)类型对比转换后的日期，确保数值比较的准确性。

注意事项 #

• 如果你的实际记录长度不是8000，调整BUILD=(1,xxx)中的xxx为真实记录长度。
• 若用COBOL程序处理，逻辑一致：先将MMDDYYYY转成YYYYMMDD，调用日期函数计算基准日期，再逐行对比筛选。

内容的提问来源于stack exchange，提问作者sarath pelluri