The DRA startup parameter table provides the parameters needed to define the interface to the DBCTL subsystem. You create the DRA startup parameter table by assembling the DFSPRP macro and link-editing it into the IMS™.RESLIB library (or another APF-authorized library) as DFSPZPxx, where xx=00, for the default, or any other alphanumeric characters. Unless your IMS RESLIB uses the default name IMS.RESLIB, supplied in DFSPZP00, you must specify the name you have chosen in your version of the DRA. In our example, in Example JCL to generate a DRA startup table, we have used IMS.RESLIB.
The parameters for the DFSPRP macro are:
A DSECT statement for PZP will not be generated. You must specify this in order to create a CSECT, which is required in order to assemble the module DFSPZPxx.
The CCTL (in this case, CICS) functional level. The default (and the only valid value) is 1.
A 1- to 8-character ddname to be used with dynamic allocation of the DRA RESLIB. The default is CCTLDD.
A 1- to 44-character data set name of the DRA RESLIB. The default is IMS.RESLIB.
The 1- to 4-character name of the DBCTL address space. The default is SYS1. This parameter must be the same as the IMSID in the DBCTL startup procedure for the DBCTL to which you want this CICS to connect. You can connect multiple CICS systems to the same DBCTL, but a CICS system can connect to only one DBCTL at a time.
CICS users do not specify this parameter; it is supplied by CICS itself. If you do specify anything, CICS will override it. However, we explain the USERID parameter here to show how it is used. USERID is the 1- to 8-character name of the CICS address space (or CCTLID). The value CICS supplies when it connects to DBCTL is either the CICS APPLID (in a non-XRF CICS environment) or the generic APPLID (in a CICS XRF environment). (The generic APPLID is the name of the active-alternate pair of CICS systems.)
This parameter specifies the number of threads for this CICS system that will be created when CICS connects to DBCTL and will remain created while the DRA is active. These threads remain allocated until this CICS system is disconnected from DBCTL, except if a thread is stopped by a /STOP command or by a thread failure. Additional threads are created, up to the number specified in MAXTHRD, or the number specified in MAXREGN, or the maximum of 255, whichever of these is the lowest. These additional threads (not the MINTHRDs) are released when there is not enough system activity to require them. The maximum value you can specify for MINTHRD is 255, and the default is 1. For information on specifying values for MINTHRD, see Specifying numbers of threads. See also MAXREGN in IMS system generation macros used by DBCTL.
This parameter specifies the maximum number of transactions for which this CICS system can have PSBs scheduled in DBCTL. Any schedule requests that are over this limit are queued in the DRA. You can balance the load sent to a single DBCTL from multiple CICS systems by specifying appropriate values for MAXTHRD in each CICS.
The maximum value you can specify for MAXTHRD is 255 (but it should not exceed the value specified for MAXREGN) and the default is 1, or the value you specified in MINTHRD. For information on specifying values for MAXTHRD, see Specifying numbers of threads. See also MAXREGN in IMS system generation macros used by DBCTL.
The frequency, in seconds, with which CICS is to repeat attempts to connect to DBCTL when connection has failed and the console operator has requested that CICS wait for connection in reply to a DFS690 message (rather than canceling the connection attempt). You can specify any value from 0 through 99. However, note that if you specify 0, the default value is used. The default is 60.
The total number of DEDB buffers that will be allocated for this CICS system. The default is 0.
The number of DEDB buffers to be allocated and fixed per thread. The default is 0. See DEDB performance and tuning considerations for information about defining DEDB buffer pools.
The number of DEDB overflow buffers to be allocated per thread. The default is 0. See DEDB performance and tuning considerations for information defining DEDB buffer pools.
The amount of time, in seconds, that CICS should wait for the a DRA TERM request to complete. The maximum value is 999, and the default is 60. For guidance on what to specify, see the section on TIMEOUT in CICS failure.
The output class to be used for a snap dump of abnormal thread terminations. The default is A. See Dumps produced by the DRA for more information on these dumps.
The 1- to 8-character application group name (AGN). You need to use this parameter only if you have specified AGN security checking for DBCTL. There is no default. See Security checking with DBCTL for more information.
Figure 9 shows some example JCL you can copy to generate a DRA.
//DRAJOB JOB 1,PGMERID,MSGCLASS=A,MSGLEVEL=(1,1),
// CLASS=A,NOTIFY=PGMERID
//ASM EXEC PGM=ASMA90,
// 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'
DFSPZP00 CSECT
**********************************************************************
* MODULE NAME: DFSPZP00 *
* *
* 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
DBCTLID=IMSA, X
DDNAME=CCTLDD, X
DSNAME=IMS.SDFSRESL, X
MAXTHRD=99, X
MINTHRD=10, X
TIMER=60, X
USERID=, X
CNBA=10, X
FPBUF=, X
FPBOF=, X
TIMEOUT=60, X
SOD=A, X
AGN=
END
/*
//LNKEDT EXEC PGM=IEWL,
// PARM='LIST,XREF,LET,NCAL'
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,50))
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DSN=IMS.SDFSRESL,DISP=SHR
//SYSLIN DD DISP=(OLD,DELETE),DSN=&&OBJMOD
// DD DDNAME=SYSIN
//SYSIN DD *
NAME DFSPZP00(R)
/*