zOs/JCL/PLIKUDP

//A540769D JOB (KEL25071,0240,,3612),'CATALOG',                        *
//         MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG SYSTEM=S13
//*
//**********************************************************************
//*  Pli Compile/Link/Bind mit dsnEli: Tso db2 attachement
//**********************************************************************
//*
//*------------------------------------------
//*- Bind Dbrm
//*------------------------------------------
//*------------------------------------------
//*- run under tso dsn
//*------------------------------------------
//*       IF RC < 5 THEN
//S1       EXEC PGM=XC6003,DYNAMNBR=200,TIME=99
//*STEPLIB   DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//*STEPLIB    DD DSN=A540769.WK.LOAD,DISP=SHR
//STEPLIB    DD DSN=CMN.DIV.P0.EOSR.#000006.LLB,DISP=SHR
//           DD DSN=PCL.U0000.S0.RZ1AKT.PROM.@008.LLB,DISP=SHR
//DD#PARM   DD DSNAME=XB.DIV.K0.EOSAR2.PARM(XC6003),DISP=SHR
//DDRETD    DD DUMMY,DCB=BLKSIZE=160
//DSNTRACE  DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//*       ENDIF
//
//BIND   EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
   DSN S(DBTF)
 BIND PACKAGE(XC) -
  OWNER(S101869) -
  QUALIFIER (OA1T) -
  MEMBER(XCWALTER) -
  LIBRARY('CMN.DIV.P0.EOSR.#000006.DBR') -
  VALIDATE(BIND) FLAG(I) ISOLATION(CS) -
                  EXPLAIN(Y)  ACTION(REPLACE) -
  CURRENTDATA(N) -
  DYNAMICRULES(BIND) -
  ENABLE(*)
END