User Exit Facility › Using a COBOL Exit with GVRESTOR › Using IBM COBOL II Runtime Libraries

Using IBM COBOL II Runtime Libraries

When using a COBOL exit with GVRESTOR that uses the COBOL II runtime libraries, you must use a supplied stub, GVCOBII, to properly initialize the runtime environment. For the stub to interface properly, your COBOL program must have a program-id of COBIIXIT. The name you give the load module is the name used to invoke your exit in the GVRESTOR execution.

The following JCL is used to link the user program with the stub:

//COB2        EXEC PGM=IGYCRCTL,
//            PARM='ADV,DYNAM,FLAG(I),LIST,MAP,APOST,DATA(24),RES'
//STEPLIB     DD DISP=SHR,DSN=your.cobolII.compiler.library
//SYSUT1      DD UNIT=SYSDA,SPACE=(CYL,(3,1))
//SYSUT2      DD UNIT=SYSDA,SPACE=(CYL,(3,1))
//SYSUT3      DD UNIT=SYSDA,SPACE=(CYL,(3,1))
//SYSPRINT    DD SYSOUT=*
//SYSLIN      DD DSNAM=&.&LOADSET.,UNIT=SYSDA,DISP=(MOD,PASS),
//            SPACE=(TRK,(3,3))
//SYSIN       DD DISP=SHR,DSN=your.source.lib(member)
//LKED        EXEC PGM=IEWL,
//            PARM='LIST,XREF,LET,MAP,REUS,AMODE(24)',
//            COND=(5,LT,COB2)
//SYSLIB      DD DISP=SHR,DSN=your.cobolII.runtime.module.lib
//            DD DISP=SHR,DSN=your.ism.load.library
//SYSLIN      DD DSNAME=&.&LOADSET.,DISP=(OLD,DELETE)
//            DD DDNAME=SYSIN
//SYSLMOD     DD DISP=SHR,DSNAME=your.ism.load.library
//SYSUT1      DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSPRINT    DD SYSOUT=*
//SYSIN       DD *
  INCLUDE SYSLMOD(GVCOBII)
  ENTRY GVCOBII
  INCLUDE SYSLMOD(GVMODINS)
  NAME yourexit(R)<--name of your choice
/*