zOs/JCL/PLITSO
//A540769D JOB (KEL25071,0240,,3612),'CATALOG', *
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//**********************************************************************
//* Pli Compile/Link/Bind mit dsnEli: Tso db2 attachement
//**********************************************************************
//*
//*------------------------------------------
//*- PRECOMPILE COMPONENT DBWK1 -
//*------------------------------------------
//PLIPRE EXEC PGM=IEL1AA,COND=(4,LT),
// PARM='MD,NS,NSYN,NSEQ',
// REGION=5M
//STEPLIB DD DSN=NPL1.RZ1.P0.SIELCOMP,DISP=SHR
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.MODIFY.@002.LOD
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.@002.LOD
//SYSLIB DD DSN=&&NULLPD1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1),RLSE),
// DATACLAS=FB0080P0,
// DCB=(BLKSIZE=32720)
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.PL#
// DD DISP=SHR,DSN=CEE.SCEESAMP
// DD DISP=SHR,DSN=MQM.Q000.COPYLIB
// DD DISP=SHR,DSN=SYS1.SAMPLIB
// DD DISP=SHR,DSN=GDDM.DIV.P0.ADMSAM
//* PROC EQ CMNPLILE $COMEPLI EQ
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.MVS
//*EOP CMN$$SYC
//SYSLIN DD DUMMY
//SYSIN DD DISP=SHR,
// DSN=A540769.WK.PLI(DBWK1)
//* DSN=CMN.DIV.P0.DB2J.#000003.PLB(DBWK1)
//SYSPUNCH DD DISP=(,PASS),DSN=&&SKSPLIPP,
// UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=23474)
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),
// DCB=BLKSIZE=1024
//*------------------------------------------
//*- db2 precompile
//*------------------------------------------
// IF RC < 5 THEN
//DB2PC EXEC PGM=DSNHPC, *** DB2 PRECOMPILE COMPONENT DBWK1
// REGION=3M,
// PARM=('SOURCE,HOST(PLI)',
// 'VERSION(DB2J000003)'),
// COND=(4,LT)
//STEPLIB DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//DBRMLIB DD DISP=SHR,DSN=A540769.WK.DBRM(DBWK1)
//SYSCIN DD DISP=(,PASS),DSN=&&DSNHOUT,
// UNIT=SYSDA,SPACE=(CYL,(5,3))
//SYSLIB DD DSN=&&NULLPD2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1),RLSE),
// DATACLAS=FB0080P0,
// DCB=(BLKSIZE=32720)
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.PL#
// DD DISP=SHR,DSN=CEE.SCEESAMP
// DD DISP=SHR,DSN=MQM.Q000.COPYLIB
// DD DISP=SHR,DSN=SYS1.SAMPLIB
// DD DISP=SHR,DSN=GDDM.DIV.P0.ADMSAM
//* PROC EQ CMNPLILE $COMEPLI EQ
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.MVS
//*EOP CMN$$SYC
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=23474)
//SYSTERM DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SYSIN DD DISP=SHR,
// DSN=&&SKSPLIPP
// ENDIF
//*------------------------------------------
//*- compile component dbwk1 -
//*------------------------------------------
// IF RC < 5 THEN
//PLI EXEC PGM=IEL1AA,
// PARM=('NM,SIZE(4092K)',
// '',
// '',
// ''),
// COND=(4,LT)
//STEPLIB DD DSN=NPL1.RZ1.P0.SIELCOMP,DISP=SHR
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.MODIFY.@002.LOD
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.@002.LOD
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=VBA,LRECL=125,BLKSIZE=2420)
//SYSLIB DD DSN=&&NULLPD3,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1),RLSE),
// DATACLAS=FB0080P0,
// DCB=(BLKSIZE=32720)
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.PL#
// DD DISP=SHR,DSN=CEE.SCEESAMP
// DD DISP=SHR,DSN=MQM.Q000.COPYLIB
// DD DISP=SHR,DSN=SYS1.SAMPLIB
// DD DISP=SHR,DSN=GDDM.DIV.P0.ADMSAM
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.MVS
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSPUNCH DD DUMMY,DCB=BLKSIZE=80
//SYSLIN DD DISP=(,PASS),DSN=&&OBJECT,
// UNIT=SYSDA,SPACE=(TRK,(5,15),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//SYSIN DD DISP=SHR,DSN=&&DSNHOUT
// ENDIF
//*------------------------------------------
//*- Link Edit with HEWL und DSNELI ==> tso db2 attachment
//*------------------------------------------
// IF RC < 5 THEN
//LINK0 EXEC PGM=HEWL, *** LINK-EDIT COMPONENT DBWK1
// COND=(4,LT),
// PARM=('COMPAT=LKED,XREF,LIST,MAP,REUS(SERIAL)',
// 'LET,SIZE=(3500K,960K),XCAL'),
// REGION=5M
//SYSLIB DD DISP=(NEW,DELETE),DSN=&&NULLLOD,
// DCB=CMN.DIV.P0.DB2J.#000003.LLB,UNIT=SYSDA,
// SPACE=(CYL,(1,1,1))
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLU
// DD DISP=SHR,DSN=CEE.SCEELKED
// DD DISP=SHR,DSN=ISP.SISPLOAD
// DD DISP=SHR,DSN=SYS9.CRYPTO
// DD DISP=SHR,DSN=GDDM@.DIV.P0.LOAD
// DD DISP=SHR,DSN=SYS1.CSSLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//*CEEUOPT DD DISP=(OLD,DELETE),DSN=&&CEEUOPT0
//* INCLUDE CEEUOPT
//DSNLOAD DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD *SKSBINDR*
//SYSLMOD DD DISP=SHR,DSN=A540769.WK.LOAD
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=24200)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLIN DD *
INCLUDE SYSLIB(DSNELI)
ORDER CEESTART
ENTRY CEESTART ENTRY FOR NON-IMS/NON-CICS
// DD DISP=(OLD,DELETE),DSN=&&OBJECT
// DD *
NAME DBWK1(R)
// ENDIF
//*------------------------------------------
//*- Bind Dbrm
//*------------------------------------------
// IF RC < 5 THEN
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBAF)
BIND PACKAGE(DB) -
OWNER(S100447) -
QUALIFIER (OA1A) -
MEMBER(DBWK1) -
LIBRARY('A540769.WK.DBRM') -
VALIDATE(BIND) FLAG(I) ISOLATION(CS) -
RELEASE(COMMIT) EXPLAIN(N) ACTION(REPLACE) -
CURRENTDATA(N) -
DYNAMICRULES(RUN) -
ENABLE(*)
END
// ENDIF
//*------------------------------------------
//*- run under tso dsn
//*------------------------------------------
// IF RC < 5 THEN
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//*STEPLIB DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//STEPLIB DD DSN=A540769.WK.LOAD,DISP=SHR
//SYSIN DD DISP=SHR,DSN=A540769.WK.SQL(CAT)
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DBWK1) PLAN(DBWK1) PARMS(' sD iD sD tD sD fT')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
// ENDIF