DBRC procedure

The DBRC procedure is an online execution procedure that initiates DBRC. To take advantage of additional features provided with Base Primitive Environment (BPE) (such as BPE tracing or improved DBRC user exit services), start DBRC in a BPE.

JCL

Both the standard DBRC procedure and the BPE-based DBRC procedure run in a separate address space.

A sample procedure to run DBRC in BPE, DSPBPROC, is supplied in IMS.SDFSISRC.

The following procedure initializes DBRC and is executed by IMS using a z/OS® START command during control region initialization.

//       PROC RGN=64M,DPTY='(14,15)',SOUT=A,
//            IMSID=SYS3,SYS2=
//IEFPROC EXEC PGM=DFSMVRC0,REGION=&RGN,
//            DPRTY=&DPTY,PARM='DRC,&IMSID'
//****************************************************
//*
//STEPLIB  DD DSN=IMS.&SYS2.SDFSRESL,DISP=SHR
//PROCLIB  DD DSN=IMS.&SYS2.PROCLIB,DISP=SHR
//JCLOUT   DD SYSOUT=(A,INTRDR)
//JCLPDS   DD DSN=IMS.&SYS2.PROCLIB,DISP=SHR
//SYSUDUMP DD SYSOUT=&SOUT
//SYSABEND DD SYSOUT=&SOUT
//*
//************ DBRC RECON DD CARDS *******************
//*
//* USER MAY OPTIONALLY SUPPLY THE DD CARDS
//* REQUIRED FOR THE DBRC RECON DATA SET.
//* IF NO DD STATEMENTS ARE SUPPLIED FOR RECON
//* DATASETS, IMS ASSUMES THAT THE DATASETS
//* HAVE BEEN DESCRIBED THROUGH THE DFSMDA MACRO.

The following procedure initializes DBRC in a BPE and is executed by IMS using a z/OS START command during control region initialization.

//********************************************************************
//*     DBRC Procedure -  BPE Environment                             
//*                                                                   
//*     Parameters:                                                   
//*     BPECFG   - Name of BPE member                                 
//*     DBRCINIT - Suffix for your DSPBIxxx member                    
//*     IMSID    - IMS Control region ID (required)                   
//*     PARM1    - other override parameters:                         
//*                BPEINIT=DSPBINI0 (required)                        
//*                IMSPLEX - IMSplex name                             
//*                DBRCGRP - DBRC sharing group ID                    
//*                                                                   
//*                example:                                           
//*                PARM1='BPEINIT=DSPBINI0,IMSPLEX=PLEX1'             
//*                                                                   
//***********************************************************@SCPYRT**
//*                                                                   
//*  Licensed Materials - Property of IBM                             
//*                                                                   
//*  5635-A02                                                         
//*                                                                   
//*  (C) Copyright IBM Corp. 2008      All Rights Reserved            
//*                                                                   
//*  US Government Users Restricted Rights - Use, duplication or      
//*  disclosure restricted by GSA ADP Schedule contract with          
//*  IBM Corp.                                                        
//*                                                                   
//***********************************************************@ECPYRT**
//*                                                                   
//DBRC    PROC RGN=0M,SOUT=A,                                         
//             RESLIB='IMS.SDFSRESL',                                 
//             BPECFG=BPECONFG,                                       
//             DBRCINIT=000,                                          
//             IMSID=IMS1,                                            
//             PARM1='BPEINIT=DSPBINI0'                               
//*                                                                   
//DBRCPROC   EXEC PGM=BPEINI00,REGION=&RGN,                           
// PARM='BPECFG=&BPECFG,DBRCINIT=&DBRCINIT,IMSID=&IMSID,&PARM1'       
//*                                                                   
//STEPLIB  DD  DSN=&RESLIB,DISP=SHR                                   
//         DD  DSN=SYS1.CSSLIB,DISP=SHR                               
//PROCLIB  DD  DSN=IMS.PROCLIB,DISP=SHR                               
//SYSPRINT DD  SYSOUT=&SOUT                                           
//SYSUDUMP DD  SYSOUT=&SOUT                                           
//JCLOUT   DD SYSOUT=(A,INTRDR)                                       
//JCLPDS   DD DSN=IMS.PROCLIB,DISP=SHR                                
//SYSABEND DD SYSOUT=&SOUT                                            
//*                                                                   
//*                                                                   
//* User may optionally supply the DD cards                           
//* required for the DBRC RECON data sets.                            
//* If no DD statements are supplied for RECON                        
//* data sets, IMS assumes that the data sets                         
//* have been described through the DFSMDA macro.

Usage

The sample DBRC procedure resides in IMS.SDFSPROC specified in the DBRC=member parameter. This member must be copied to SYS1.PROCLIB.

The IMS control region automatically initiates the DBRC procedure. The PDS member name that IMS uses for the DBRC procedure is defined and can be overridden as follows:

DBRC is the default name.
The value specified on the DBRCNM= keyword in the IMSCTRL macro overrides the default name.
The value specified on the DBRCNM= keyword in the DFSPBxxx member of the IMS PROCLIB data set overrides the value specified in the IMSCTRL macro.
The value specified on the DBRCNM= keyword in the JCL EXEC parameter overrides the value specified in the DFSPBxxx member of the IMS PROCLIB data set.

Example START commands:

START IMSRDR,MBR=DBRC: the PDS member specified is read as a job through the z/OS internal reader. It starts as a job rather than as a started task.
START DBRC,IMSID=IMSA: DBRC executes as a started task. DBRC connects to IMSA.

When DBRC connects to the IMS control region, the DBRC procedure name is compared with the DBRCNM= specification. If they are not the same, DBRC abends.

Automatic initiation

A z/OS START command is issued for DBRCNM. The z/OS START command is coded to override the PARM='DRC,&IMSID' procedure statement. The override defines the IMSID of the subsystem issuing the START command, and allows a generic procedure to be used by multiple IMS control regions.

IMS does not issue the IMS READY message until DBRC successfully initiates. If the DBRC procedure started by the control region is in error, correct the procedure and restart it.

Manual initiation

You can supply a START command instead of the internally defined START. The START command is supplied in member =DBRCNM of a PDS defined in //PROCLIB in the control region JCL. If columns 1-5 are not START, message DFS1930I is issued and the internal START command is issued as if the DBRCNM member was not found in the IMS PROCLIB data set.

Parameters

The following parameters are valid for the DBRC procedure. See Parameter descriptions for IMS procedures for descriptions of the parameters.

BPECFG=
BPEINIT=
DBRCGRP=
DBRCINIT=
DPRTY=
IMSID=
IMSPLEX=
NODE2=
RGN=
SOUT=
SYS2=

DD statements

The following DD statements are valid for the DBRC procedure. See DD statements for IMS procedures for descriptions of the statements.

IMSDALIB DD (optional)
JCLOUT DD
JCLPDS DD
PROCLIB DD
RECONn DD (optional)
STEPLIB DD
SYSABEND DD
SYSUDUMP DD