zOs/JCL/QZPLB

//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                                00041003
//E01    EXEC PGM=IKJEFT01,DYNAMNBR=30                                  00049000
//SYSTSPRT DD SYSOUT=*                                                  00049100
//DBRMLIB  DD DISP=SHR,DSN=&PKG..DBR                                    00049200
//SYSTSIN  DD *                                                         00049500
   DSN S(DP4G)                                                          00049600
   BIND PACKAGE(QZ) -                                                   00049700
     OWNER(CMNBATCH) -                                                  00049800
     QUALIFIER(OA1A) -                                                  00049900
     MEMBER(QZPLB) -                                                    00050000
     CURRENTDATA(NO) -                                                  00050100
     DEGREE(1) -                                                        00050200
     DYNAMICRULES(BIND) -                                               00050300
     EXPLAIN(YES) -                                                     00050400
     FLAG(I) -                                                          00050500
     ISOLATION(CS) -                                                    00050600
     SQLERROR(NOPACKAGE) -                                              00050700
     VALIDATE(BIND) -                                                   00050800
     ACTION(REPLACE)                                                    00050900
//                                                                      00051003
//V3       EXEC PGM=QZPLB,PARM='A3'                                     00051101
//STEPLIB    DD DISP=SHR,DSN=&PKG..LLB                                  00052001
//SYSPRINT   DD SYSOUT=*                                                00053001
//V2       EXEC PGM=QZPLB,PARM='A2'                                     00080001
//STEPLIB    DD DISP=SHR,DSN=&PKG..LLB                                  00090001
//SYSPRINT   DD SYSOUT=*                                                00100001
//V1       EXEC PGM=QZPLB,PARM='A1'                                     00140001
//STEPLIB    DD DISP=SHR,DSN=&PKG..LLB                                  00150001
//SYSPRINT   DD SYSOUT=*                                                00160001