The program you are debugging can access an SQL database, a DL/I database, or both. Similarly, the remote IMS or ZOSBATCH called program can access an SQL database, a DL/I database, or both. The debugger makes database calls to the host and also makes calls to generated programs on the host, but otherwise interprets the code on the local client system.
Rational® COBOL Runtime for zSeries provides sample files; the member names are shown above inside parentheses. All JCL and SQL samples are located in the COBOL runtime, either in ELA.V6R0M1.SELAJCL or ELA.V6R0M1.SELASAMP.
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.”
| From | To |
|---|---|
| Add a jobcard | |
| SYSLIB | Modify to match your system configuration. |
| #dbctlid | Replace #dbctlid with the DB control id for
your database. This value also goes into the imsID build
descriptor option. The value comes from the JCL that you use to
start IMS. The IMS JCL parameter should look like this:
In
this example, XXXX represents the DB control
id. |
| IMS.SDFSRESL | The PDS SDFSRESL for your system. |
| MAXTHRD=99 | Replace 99 with the max number of simultaneous debug sessions (the minimum is 3). |
| CNBA=0 | (FPBUF+FPBOF)*MAXTHREAD * |
| FPBUF=0 | FPBUF is the number of buffers to be allocated to each thread for FP use. * |
| FPBOF=0 | FPBOF is the number of buffers and overflow buffers to be allocated to each thread for FP use. * |
| TIMEOUT=60 | Set the TIMEOUT startup parameter as high as possible, preferably longer than longest running UOR. |
| AGN=IVP | See IMS 7 Administration Guide System for information on configuring IMS security. |
| //SYSLMOD DD DSN=ELA.V6ROM1.SELADBGL | Replace ELA.V6ROM1.SELADBGL with the PDS where you want the DRA startup to reside. |
| NAME DFSIVP10(R) | Replace DFSIVP10 with DFS followed by #dbctlid from above. |
| * Refer to the IMS Administration Guide for more information on setting these fields | |
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)