ожидаемое продолжение не получено - PullRequest
Новая
       82

ожидаемое продолжение не получено

1 голос
/ 17 марта 2019

Я использую код 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********

Ответы [ 2 ]

7 голосов
/ 17 марта 2019

Проблема, как отмечали другие, заключается в том, что JCL ищет продолжение в столбце 16. или перед ним.

Ниже я представил представление JCL в редакторе ISPF с помощью командной строки Cols.

enter image description here

В вашем примере обратите внимание, что строка после TEMDATA считается строкой 5 и была преобразована в комментарий, отмеченный новым //* из-за неправильного продолжения, поэтому следующие строки были рассмотрены новые заявления JCL.

enter image description here

Вот переформатированная версия, использующая традиционный подход. Обратите внимание, что DDName TEMDATA выровнено, чтобы разрешить 8-символьное DDName, за которым следует оператор DD, а затем позиционные параметры. Это позволяет достаточно четко кодировать независимо от того, имеют ли DDNames менее 8 символов и выравнивание.

enter image description here

3 голосов
/ 17 марта 2019

Попробуйте 

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 =, пробел = далеко вправо . Столбцы важны для JCL

...