//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
// SET PKG=CMN.DIV.P0.DB2J.#000237 00041000
//E01 EXEC PGM=IKJEFT01,DYNAMNBR=30 00042000
//SYSTSPRT DD SYSOUT=* 00043000
//DBRMLIB DD DISP=SHR,DSN=&PKG..DBR 00044000
//SYSTSIN DD * 00045000
DSN S(DP4G) 00046000
REBIND PACKAGE(QZ.QZPLB.(DB2J000237)) - 00047000
EXPLAIN(YES) - 00048000
APCOMPARE(ERROR) 00048100
// 00050000
APREUSE(ERROR) 00060000