User Exit Facility › Using a COBOL Exit with GVRESTOR › In the IBM Language Environment

In the IBM Language Environment

For the stub to interface properly, your COBOL program must have a program-id of COBLEXIT. 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)'
//STEPLIB     DD DISP=SHR,DSN=IGY.V2R1M0.SIGYCOMP
//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(cobexit)
//LKED        EXEC PGM=IEWL,
//            PARM='LIST,XREF,LET,MAP,AMODE(24)',
//            COND=(5,LT,COB2)
//SYSLIB      DD DISP=SHR,DSN=CEE.SCEELKED <--your le 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(GVMODINS)
  INCLUDE SYSLMOD(GVCOBLE)
  ENTRY GVCOBLE
  NAME yourexit(R)<--name of your choice
/*