//COBCLG JOB 1 //***************************************************/ //COBRUN EXEC IGYWCL //COBOL.SYSIN DD * 000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. HELLO. 000300 PROCEDURE DIVISION. 000400 DISPLAY 'Hello World'. 000500 STOP RUN. //LKED.SYSLMOD DD DSN=&SYSUID..LOAD(COBCLG),DISP=SHR //***************************************************/ // IF RC = 0 THEN //***************************************************/ //RUN EXEC PGM=COBCLG //STEPLIB DD DSN=&SYSUID..LOAD,DISP=SHR //SYSOUT DD SYSOUT=*,OUTLIM=15000 //CEEDUMP DD DUMMY //SYSUDUMP DD DUMMY //***************************************************/ // ELSE // ENDIF