Using the EGL debugger to debug IMS™, ZOSBATCH, and DL/I with the stored procedure linkage

In this case, the EGL debugger requires that you use EGL versions of the AIBTDLI and CBLTDLI load modules and not the IMS-provided load modules. Rational® COBOL Runtime for zSeries® provides sample JCL to create these load modules in ELA.V6R0M1.SELAJCL(ELADL1). Edit the JCL and modify it for your system requirements; comments in the JCL explain what you need to modify. After you run the job, make sure you add the PDS that contains the resulting AIBTDLI and CBLTDLI load modules to the STEPLIB for the Workload manager JCL.

Rational® COBOL Runtime for zSeries® provides sample JCL for creating the DRA Startup Table in ELA.V6R0M1.SELASAMP(ELADRA). The following table lists the changes you need to make before running the job. After you run the job, make sure you add the PDS that contains the resulting DRA startup table to the STEPLIB for the DLI Debug Proxy. For more information, see Starting the DL/I Debug Server on the z/OS® host.

IMSID   XXXX  IMS SUBSYSTEM IDENTIFIER

The following listing shows the sample JCL:

//ASM EXEC PGM=IEV90,
//       PARM='DECK,NOOBJECT,LIST,XREF(SHORT),ALIGN',
//       REGION=4096K
//SYSLIB DD DSN=IMS.OPTIONS,DISP=SHR
//       DD DSN=IMS.SDFSMAC,DISP=SHR
//       DD DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,400))
//SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(400,400))
//SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(400,400))
//SYSPUNCH DD DSN=&&OBJMOD;,
//       DISP=(,PASS),UNIT=SYSDA,
//       DCB=(RECFM=FB,LRECL=80,BLKSIZE=400),
//       SPACE=(400,(100,100))
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PZP      TITLE 'DATABASE RESOURCE ADAPTER STARTUP PARAMETER TABLE'
DFSIVP10 CSECT
**********************************************************************
*        MODULE NAME: DFSIVP10                                       *
*        DESCRIPTIVE NAME: DATABASE RESOURCE ADAPTER (DRA)           *
*                  STARTUP PARAMETER TABLE.                          *
*        FUNCTION: TO PROVIDE THE VARIOUS DEFINITIONAL PARAMETERS    *
*                  FOR THE COORDINATOR CONTROL REGION. THIS          *
*                  MODULE MAY BE ASSEMBLED BY A USER SPECIFYING      *
*                  THEIR PARTICULAR NAMES, ETC. AND LINKEDITED       *
*                  INTO THE USER RESLIB AS DFSPZPXX.  WHERE XX       *
*                  IS EITHER 00 FOR THE DEFAULT, OR ANY OTHER ALPHA- *
*                  NUMERIC CHARACTERS.                               *
**********************************************************************
         EJECT
         DFSPRP DSECT=NO,                                              X
               DBCTLIB=#dbctlid,                                       X
               DDNAME=,                                                X
               DSNAME=IMS.SDFSRESL,                                    X
               MAXTHRD=99,                                             X
               MINTHRD=2,                                              X
               TIMER=60,                                               X
               USERID=,                                                X
               CNBA=10,                                                X
               FPBUF=5,                                                X
               FPBOF=3,                                                X
               TIMEOUT=60,                                             X
               SOD=A,                                                  X
               AGN=IVP
         END
//LNKEDT EXEC PGM=IEWL,
//       PARM='LIST,XREF,LET,NCAL'
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,50))
//SYSPRINT DD SYSOUT=*
//SYSLMOD  DD DSN=ELA.V6R0M1.SELADBGL,DISP=SHR
//SYSLIN   DD DISP=(OLD,DELETE),DSN=&&OBJMOD;
//         DD DDNAME=SYSIN
//SYSIN    DD *
   NAME  DFSIVP10(R)