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 //

o / p：

                                                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的视图。

在您的示例中，TEMDATA之后的行被计为第5行，并且由于不正确的续行和替换而被转换为新的 //* 所注释的注释。因此以下几行被视为新的JCL语句。

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

Answer 2

尝试

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

您的DSN =，SPACE =到右侧。列在 JCL

中很重要

未收到预期的延续

2 个答案: