当前日期参数未添加到 jcl 中的文件

Posted 2023-02-16

【中文标题】当前日期参数未添加到 jcl 中的文件

【英文标题】：The current date parameter not adding to file in jcl

【发布时间】：2019-05-29 07:58:34

【问题描述】：

 //STEP001  EXEC PGM=SORT                           
 //SYSPRINT DD SYSOUT=*                             
 //SYSOUT   DD SYSOUT=*                             
 //SORTIN   DD DSN=XXX.T.KR0A9N99.XXXIFRDK.PARM,    
 //            DISP=SHR                             
 //SORTOUT  DD DSN=XXX.T.KR0A9N99.XXXIFRDK.PAR1,    
 //            DISP=SHR                             
 //SYSIN    DD DSN=XXX.T.KR0A9N99.TWT.PARM(XXX@DATE)
 //            DISP=SHR  

在这个文件里面 XXX.T.KR0A9N99.XXXIFRDK.PARM

----+----1----+----2----+----3----+----4----+----5----+----6----+
***************************** Top of Data ***********************
open [e-mail]                                  
CD SDT_WINDSS/Download/                                          
LSITE trailing_blanks=yes                                        
SPUT //'xxx.T.KR0A9N99.xxxDHOLA.CSVF.SR0096(0)' HOLD.20190524.CSV
QUIT     

内部参数 XXX.T.KR0A9N99.TWT.PARM(XXX@DATE)

OPTION COPY                                                
INREC IFTHEN=(WHEN=(1,4,CH,EQ,C'SPUT'),OVERLAY=(54:&DATE1))

作业成功，但未更新此文件 HOLD.20190524.CSV 的当前日期。您能帮我获取正确的日期吗？

【问题讨论】：

1 - 不是 JCL 问题，而是 DFSORT 问题（和 MAINFRAME） 2 - 您显示了排序和排序控制语句的输入，但没有显示输出 3 - 您没有显示 DFSORT 消息，所以我们无法查看您是否错过了一条消息。

【参考方案1】：

这可能是 SYSIN RECFM 问题。听起来好像您的 SORTOUT 文件等于您的 SORTIN 文件。如果是这样，这意味着条件永远不会为真。一种解释可能是，由于 RECFM，参数 SPUT 可能不像 ispf 屏幕截图中那样位于位置 1。例如，如果 SYSIN 文件的 RECFM 恰好是 FBA，那么尽管该值似乎在第 1 列，但它实际上在第 2 列。如果输入文件是 VBA 或 VB，则该值将偏移2 或 4。

了解 SORTIN 文件的 RECFM 会很有趣。