Skip to Content
Information
Space announcement This space now contains the documentation for all the following components:
  • CHANGE ACCUMULATION PLUS
  • IMAGE COPY PLUS
  • RECOVERY MANAGER for IMS
  • RECOVERY PLUS for IMS
We are no longer updating the individual documentation spaces for these components. For the latest documentation, see BMC AMI Backup and Recovery for IMS 5.2.

DBRC not active, accumulate all databases

This topic provides examples of DBRC not active accumulate all databases.

The following figure shows an example of DFSUCUM0 JCL for accumulating all changes for all databases. The ID control statement passes the maximum key length and log record length. The DB0 *ALL control statement accumulates all databases. DBRC must be inactive.

Related topics

Example-jobs

//*-------------------------------------------------------
//* DFSUCUM0
//*-------------------------------------------------------
//S01CA    EXEC  PGM=DFSUCUM0,PARM='CORE=MAX,DBRC=N',
//               REGION=4096K
//STEPLIB  DD  DSN=product.load,DISP=SHR
//         DD  DSN=IMS.RESLIB,DISP=SHR
//IMS      DD  DSN=IMS.DBDLIB,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//DFSUCUMO DD  DSN=IMS.CHANGE.ACUM1,DISP=OLD
//DFSUCUMN DD  DSN=IMS.CHANGE.ACUM2,DISP=(,CATLG),UNIT=TAPE
//DFSULOG  DD  DSN=IMS.SYSTEM.LOG1,DISP=OLD
//         DD  DSN=IMS.SYSTEM.LOG2,DISP=OLD
//SYSOUT   DD  SYSOUT=*
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(50,10))
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(50,10))
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(50,10))
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(50,10))
//SYSIN    DD  *
ID                            30        8448
DB0 *ALL   
/*

The following figure shows an example of the Change Accumulation utility JCL for accumulating all changes for all databases. This example corresponds with what is shown in the previous figure.

  • DBRC must be inactive to use NAME(*ALL).
  • KEYLEN is needed only when *ALL is used. In all other cases, the key length can be obtained from the DBD.

The keyword LRECL is not required but is recommended when the input logs have different record lengths.

//*------------------------------------------------------
//*BMC CHANGE ACCUMULATION UTILITY
//*------------------------------------------------------
//S01CA    EXEC  PGM=CAPUMAIN,REGION=4096K
//STEPLIB  DD  DSN=product.load,DISP=SHR
//         DD  DSN=IMS.RESLIB,DISP=SHR
//IMS      DD  DSN=IMS.DBDLIB,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//DFSUCUMO DD  DSN=IMS.CHANGE.ACUM1,DISP=OLD
//DFSUCUMN DD  DSN=IMS.CHANGE.ACUM2,
//             DISP=(,CATLG),UNIT=TAPE
//DFSULOG  DD  DSN=IMS.SYSTEM.LOG1,DISP=OLD
//         DD  DSN=IMS.SYSTEM.LOG2,DISP=OLD
//         DD  .... etc....
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(50,10))
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(50,10))
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(50,10))
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(50,10))
//CAPSYSIN DD  *
    GLBL  DBRC(N)
    SORT  SORT(SORT) LRECL(8448) KEYLEN(30)
    GROUP NAME(*ALL)
/*

 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*

BMC AMI Backup and Recovery for IMS 5.1