mainframe - 未收到预期的继续

Question

我正在使用下面的 jcl 代码创建 pds，但出现错误

 000001 //HERC01A JOB (COBOL),                                               
 000002 //             'abc',                                 
 000003 //             CLASS=H,                                              
 000004 //             MSGCLASS=H,                                           
 000005 //             REGION=9000K,TIME=1440,                               
 000006 //             MSGLEVEL=(1,1)                                        
 000007 //STEP1    EXEC PGM=IEFBR14                                          
 000008 //SYSOUT      DD *                                                   
 000009 //TEMDATA     DD DISP=(NEW,CATLG,DELETE),                            
 000010 //               DSN=HERC01.TKARTHI.EXAMPLE,                         
 000011 //               SPACE=(TRK,(45,45,50)),                             
 000012 //               DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PO),       
 000013 //               UNIT=SYSDA                                          
 000014 //                                                                   

对/对:

                                                J E S 2   J O B   L O G         
07.47.07 JOB   26  IEF452I HERC01A  JOB NOT RUN - JCL ERROR                     
    1     //HERC01A JOB (COBOL),                                                
          //             'abc',                                  
          //             CLASS=H,                                               
          //             MSGCLASS=H,                                            
          //             REGION=9000K,TIME=1440,                                
          //             MSGLEVEL=(1,1),                                        
          //            USER=HERC01,PASSWORD=            GENERATED BY GDL       
    2     //STEP1    EXEC PGM=IEFBR14                                           
    3     //SYSOUT      DD *                                                    
    4     //TEMDATA     DD DISP=(NEW,CATLG,DELETE),                             
    5     //*              DSN=HERC01.TKARTHI.EXAMPLE,                          
    6     //               SPACE=(TRK,(45,45,50)),                              
    7     //               DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PO),        
    8     //               UNIT=SYSDA                                           
 STMT NO. MESSAGE                                                               
-                                                                               
    4     IEF621I EXPECTED CONTINUATION NOT RECEIVED                            
    5     IEF605I UNIDENTIFIED OPERATION FIELD                                  
    6     IEF605I UNIDENTIFIED OPERATION FIELD                                  
    7     IEF605I UNIDENTIFIED OPERATION FIELD                                  
    8     IEF605I UNIDENTIFIED OPERATION FIELD                                  
******EOF-TTR=000101************ BOTTOM OF DATA **************1689-BYTES********

Answer 1

正如其他人所指出的，问题是 JCL 在第 16 列或之前寻找延续。

下面我使用 Cols 行命令在 ISPF Edit 中提供了 JCL 的 View 。

在您的示例中，请注意 TEMDATA 之后的行被计为第 5 行，并且已转换为注释，由新的 //* 由于不正确的继续，因此以下行被认为是新的 JCL 语句。

这是使用传统方法重新格式化的版本。请注意，DDName TEMDATA 对齐以允许 8 个字符的 DDName 后跟 DD 语句，然后是位置参数。这允许相当干净的编码，无论 DDName 是否少于 8 个字符和对齐方式。