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=*
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:
//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=*
//**************************************************
//* 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=*