//COB EXEC PGM=IGYCRCTL,REGION=2M,
// PARM=(QUOTE,NODYNAM,ADV,'BUF(12288)',SOURCE,XREF,LIST,MAP)
//STEPLIB DD DSN=IGY320.SIGYCOMP,DISP=SHR
//SYSLIB DD DSN=DFH320.CICS.SDFHCOB,DISP=SHR
// DD DSN=DFH320.CICS.SDFHMAC,DISP=SHR
// DD DSN=DFH320.CICS.SDFHSAMP,DISP=SHR
// DD DSN=CICSVT.HLL.COPYBOOK,DISP=SHR
// DD DSN=my.SVIDSAMP.custom,DISP=SHR
//SYSIN DD DSN=CICSVT.HLL.EXIT.SOURCE(CTLRECF),DISP=SHR
//DBRMLIB DD DSN=CICSVT.HLL.EXIT.DBRMLIB(CTLRECF),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),
// UNIT=SYSDA,SPACE=(80,(250,100))
//SYSUT1 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT2 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT3 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT4 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT5 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT6 DD UNIT=SYSDA,SPACE=(460,(350,100))
//SYSUT7 DD UNIT=SYSDA,SPACE=(460,(350,100))
//LKED EXEC PGM=IEWL,REGION=2M,
// PARM='LIST,XREF',COND=(5,LT,COB)
//SYSLIB DD DSN=DFH320.SDFHLOAD,DISP=SHR
// DD DSN=CEE.SCEELKED,DISP=SHR
//VS2LIB DD DSN=CVT120.SVIDLODE,DISP=SHR
//SYSLMOD DD DSN=CICSVT.HLL.EXIT.LOAD(CTLRECF),DISP=SHR
//SYSUT1 DD UNIT=SYSDA,DCB=BLKSIZE=1024,SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//SYSIN DD *
INCLUDE VS2LIB(VIDHLIPI)
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//DBRMLIB DD DISP=SHR,DSN=CICSVT.HLL.EXIT.DBRMLIB
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB2B)
BIND PACKAGE(VIDCOLL) +
MEMBER(CTLRECF) +
ISOLATION(CS) +
VALIDATE(BIND) +
RELEASE(COMMIT)
Note that the DB2 precompiler is invoked implicitly in this example.