
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=H
//SYSIN DD DUMMY
//SYSUT1 DD DSN=ZOS.CONTEST.REXX(IEBGENER),DISP=SHR
//SYSUT2 DD DSN=USERID.USERID.ZOS.PART2(OUTPUT),DISP=SHR
// IF RC=0 THEN
//STEP2 EXEC PGM=IKJEFT1A,DYNAMNBR=200
//SYSEXEC DD DSN=ZOS.CONTEST.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
// ELSE
// ENDIF
%RUNME09
/*
//
the output is this
10.59.58 JOB00353 ---- THURSDAY, 03 DEC 2009 ----
10.59.58 JOB00353 IRR010I USERID UK00030 IS ASSIGNED TO THIS JOB.
10.59.58 JOB00353 IEFC452I JCLTEST - JOB NOT RUN - JCL ERROR 743
------ JES2 JOB STATISTICS ------
17 CARDS READ
31 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
2 SYSOUT SPOOL KBYTES
0.00 MINUTES EXECUTION TIME
1 //JCLTEST JOB (12345678),'STUDENT NAME',MSGLEVEL=(1,1),CLASS=A,
// NOTIFY=&SYSUID,MSGCLASS=H
IEFC653I SUBSTITUTION JCL - (12345678),'STUDENT NAME',MSGLEVEL=(1,1),C
2 //STEP1 EXEC PGM=IEBGENER
3 //SYSPRINT DD SYSOUT=H
4 //SYSIN DD DUMMY
5 //SYSUT1 DD DSN=ZOS.CONTEST.REXX(IEBGENER),DISP=SHR
6 //SYSUT2 DD DSN='USERID.USERID.ZOS.PART2(OUTPUT)',DISP=SHR
7 // IF RC=0 THEN
8 //STEP2 EXEC PGM=IKJEFT1A,DYNAMNBR=200
9 //SYSEXEC DD DSN=ZOS.CONTEST.REXX,DISP=SHR
10 //SYSPRINT DD SYSOUT=*
11 //SYSTSPRT DD SYSOUT=*
12 //SYSTSIN DD *
13 // ELSE
14 // ENDIF
15 //SYSIN DD * GENERATED STATEMENT
STMT NO. MESSAGE
15 IEFC019I MISPLACED DD STATEMENT
******************************** BOTTOM OF DATA ********************************