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

Question

 //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 xxxF01Q@SDTPRD.fbabank.com                                  
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 ..您能帮助我获得正确的日期吗？

Answer 1

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

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