//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
//P004 EXEC PGM=IKJEFT01,REGION=24M,DYNAMNBR=24 00050000
//EJESEXT DD UNIT=3390,DISP=(NEW,CATLG,DELETE), 00060000
// DSN=A540769.TST.EJESEXT, 00070000
// SPACE=(CYL,(100,1000)),DCB=(BUFNO=20),MGMTCLAS=COM#E012 00080000
//SYSABEND DD SYSOUT=* 00090000
//SYSTSPRT DD SYSOUT=* 00100000
//SYSTSIN DD * 00110000
EJES SRESET 00120000
J=A540769;U= 00130000
ECHO 00131001
STATUS 00140000
SELECT * E 00160001
END 00210000
//SYSTSI2 DD * 00220001
EJES SRESET 00230001
J=A540769;U= 00240001
STATUS 00250001
F DBP1MSTR FIRST 00260001
:S 00270001
F JESMSGLG FIRST 00280001
:E 00290001
ECHO 00300001
ECHO OFF 00310001
END 00320001