RDIBATCH procedure

Use the RDIBATCH procedure to help maintain database availability in failure situations.

The RDI region is used in a block-level data-sharing environment to provide a path from the IRLM to DBRC, which guarantees database availability if a failure occurs. The RDI region accomplishes the following tasks:
  • IDENTIFY to the IRLM
  • SIGNON to DBRC
  • WAIT for an IRLM failure

Usage

If an IRLM fails, its associated RDI region abends with a U3303 abend. The surviving IRLM partner is notified of the failure and notifies DBRC of the failure.

The RDI region can be terminated only by an IRLM failure or by an operator CANCEL command. You must ensure that the IRLM and DBRC are both being used to gain the benefits of data-sharing protection that this region offers.

If you are using IMS with IBM® CICS® Transaction Server for z/OS® in an XRF environment, this procedure is essential. For more information about using IMS with CICS in an XRF environment, see the CICS Extended Recovery Facility Guide.

The procedure shown in Sample RDIBATCH procedure is not placed in the IMS PROCLIB data set by IMS system definition. You must create it by modifying a copy of either the DBBBATCH or DLIBATCH procedure. The region type is RDI.

Parameters

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

  • APARM=
  • BKO=
  • BUF=
  • CKPTID=
  • DBRC=
  • DBRCGRP=
  • EXCPVR=
  • FMTO=
  • IMSID=
  • IMSPLEX=
  • IOB=
  • IRLM=
  • IRLMNM=
  • LOCKMAX=
  • LOGA=
  • MBR=
  • MON=
  • PRLD=
  • PSB=
  • RGN=
  • RST=
  • SOUT=
  • SPIE=
  • SRCH=
  • SSM=
  • SWAP=
  • SYS=
  • SYS2=
  • TEST=

DD statements

The following DD statements are valid for the RDIBATCH procedure. See DD statement descriptions for descriptions.

  • DFSRESLB DD
  • PROCLIB DD
  • RECONn DD
  • STEPLIB DD
  • SYSABEND DD

Sample RDIBATCH procedure

The following sample procedure demonstrates the RDIBATCH procedure.

In this sample:

  1. MBR=xxxxxxxx must be specified but does not need to be valid. The specified member does not receive control but must be specified or parameter analysis fails.
  2. DBRC=Y is required (specified or used by default).
  3. IRLM=Y is required (specified or used by default).
  4. IRLMNM=cccc is required (specified or used by default).
  5. TIME=1440 is recommended.
//       PROC MBR=ANYNAME,¹ PSB=,BUF=,
 //            SPIE=0,TEST=0,EXCPVR=0,RST=0,PRLD=,
 //            SRCH=0,CKPTID=,MON=,LOGA=0,FMTO=T,
 //            IMSID=,SWAP=,DBRC=Y,² IRLM=Y,³
 //            IRLMNM=IRLM,⁴ BKO=N,IOB=,SSM=,APARM=,
 //            RGN=2048K,
 //            SOUT=A,
 //            SYS=,
 //            SYS2=,LOCKMAX=,IMSPLEX=
 //G      EXEC PGM=DFSRRC00,REGION=&RGN,TIME=1440,⁵
 //            PARM=(RDI,&MBR,&PSB,&BUF,
 //            &SPIE&TEST&EXCPVR&RST,&PRLD,
 //            &SRCH,&CKPTID,&MON,&LOGA,&FMTO,
 //            &IMSID,&SWAP,&DBRC,&IRLM,&IRLMNM,
 //             &BKO,&IOB,&SSM,
 //            '&APARM',&LOCKMAX,
 //            &GSGNAME,&TMINAME,&RRS,
 //            &IMSPLEX,&RGSUF,
 //            '&PARM1','&PARM2')
 //STEPLIB  DD DISP=SHR,DSN=IMS.&SYS2.SDFSRESL
 //DFSRESLB DD DISP=SHR,DSN=IMS.&SYS2.SDFSRESL
 //DFSVSAMP DD DISP=SHR,DSN=IMS.&SYS2.DFSVSAMP
 //PROCLIB  DD DISP=SHR,DSN=IMS.&SYS.PROCLIB
 //RECON1   DD DISP=SHR,DSN=IMS.&SYS.RECON1
 //RECON2   DD DISP=SHR,DSN=IMS.&SYS.RECON2
 //RECON3   DD DISP=SHR,DSN=IMS.&SYS.RECON3
 //SYSABEND DD SYSOUT=&SOUT.
            PEND