IBM Mainframe Forum

[cwseay]

Can someone explain why I am getting this error?

Select all

z/OS V2 R1 BINDER     18:35:54 WEDNESDAY MAY 22, 2019                          
BATCH EMULATOR  JOB(RPT1000 ) STEP(STEP1   ) PGM= IEWBLINK  PROCEDURE(LKED    )
IEW2322I 1220  1   GO.INPUT      DD  DSN=KC03MA9.COBOL(CUSTMAST), DISP=SHR    
IEW2326E 1221 THE FOLLOWING INVALID RECORD HAS BEEN SEEN:                      
         GO.INPUT      DD  DSN=KC03MA9.COBOL(CUSTMAST), DISP=SHR              
IEW2322I 1220  2   GO.SALESRPT   DD  SYSOUT=*                                  
IEW2326E 1221 THE FOLLOWING INVALID RECORD HAS BEEN SEEN:                      
         GO.SALESRPT   DD  SYSOUT=*                                            
IEW2322I 1220  3   GO.SYSOUT     DD  SYSOUT=*                                  
IEW2326E 1221 THE FOLLOWING INVALID RECORD HAS BEEN SEEN:                      
         GO.SYSOUT     DD  SYSOUT=*                                            
                                                                               
                                                                               

Here is the JCL for the job:

Select all

//RPT1000 JOB 1,'A. STUDENT',NOTIFY=&SYSUID                        
 //**************************************************                
 //* COMPILE COBOL PROGRAM                                          
 //**************************************************                
 //STEP1 EXEC IGYWCLG                                                
 //COBOL.SYSIN  DD DSN=&SYSUID..COBOL(RPT1000),DISP=SHR              
 //COBOL.SYSLIB DD DSN=CEE.SCEESAMP,DISP=SHR                        
 //LKED.SYSLMOD DD DSN=&SYSUID..LANG.LOAD(RPT1000),DISP=MOD          
 GO.INPUT      DD  DSN=KC03MA9.COBOL(CUSTMAST), DISP=SHR            
 GO.SALESRPT   DD  SYSOUT=*                                          
 GO.SYSOUT     DD  SYSOUT=*                                          

[Robert Sample]

Select all

//RPT1000 JOB 1,'A. STUDENT',NOTIFY=&SYSUID                        
//**************************************************                
//* COMPILE COBOL PROGRAM                                          
//**************************************************                
//STEP1 EXEC IGYWCLG                                                
//COBOL.SYSIN  DD DSN=&SYSUID..COBOL(RPT1000),DISP=SHR              
//COBOL.SYSLIB DD DSN=CEE.SCEESAMP,DISP=SHR                        
//LKED.SYSLMOD DD DSN=&SYSUID..LANG.LOAD(RPT1000),DISP=MOD          
//GO.INPUT      DD  DSN=KC03MA9.COBOL(CUSTMAST), DISP=SHR            
//GO.SALESRPT   DD  SYSOUT=*                                          
//GO.SYSOUT     DD  SYSOUT=*  

With very few exceptions, JCL statements MUST start with // -- your GO. statements did not have the // and that is what the error messages are telling you.

[steve-myers]

Mr. Sample is correct. I am reasonably certain his proposed solution is also correct.

It took me a couple of minutes to deduce how the non-JCL statements (because they did not have // in the first two input positions) wound up in the object input of the Binder. It took me so long because I do not deal with this type of error on a day to day basis and I do not know the exact contents of the IGYWCLG procedure, though I am familiar with similar procedures in other environments.

[cwseay]

I should have caught that. It has been corrected. Using a corrected version of the JCL now I get this:

Select all

STMT NO. MESSAGE
         2 IEFC001I PROCEDURE IGYWCLG WAS EXPANDED USING SYSTEM LIBRARY USER.PROCLIB
        43 IEFC621I EXPECTED CONTINUATION NOT RECEIVED


[NicC]

1) It is difficult to know which statement is number 43 without the relevant part of the output but...
2) I am guessing it is because you have a space between a comma and DISP= on your //GO.INPUT line