JCL to compile COBOL exit

//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.


Concept Concept

Feedback


Timestamp icon Last updated: Monday, 10 February 2014


http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/topic/com.ibm.cics.vt.doc//topics/JCLToCompileCOBOLExit.html