Defining the IMS DRA startup parameter table

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.

Note:
The macro used is DFSPRP, but the name of the module you must link-edit is DFSPZPxx. You must also link-edit the DRA into an authorized library that is part of the CICS® STEPLIB concatenation.

The parameters for the DFSPRP macro are:

Example JCL to generate a DRA startup table

Figure 9 shows some example JCL you can copy to generate a DRA.

Start of changeFigure 9. Example JCL to generate a DRA startup table
//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)                                                    
/*                                                                      
End of change

Related concepts
Installing DBCTL, and defining CICS and IMS system resources
Checklist for installing and generating DBCTL
Defining CICS system resources for DBCTL
Generating DBCTL
Starting DBCTL, DLISAS, and DBRC
Customizing DBCTL
[[ Contents Previous Page | Next Page Index ]]