Skip to Content

Creating Change Accumulation in IMS-managed ACB environment

You can use one of the below methods to run your utility in an IMS-managed ACB environment.

Related topics

Example-jobs

  • Provide the IMS Catalog user exit routine (DFS3CDX0) in the STEPLIB, JOBLIB or linklist library.
//ICP      EXEC  PGM=ICPUMAIN,REGION=4096K
//STEPLIB  DD  DSN=product.LOAD,DISP=SHR      IMS Catalog user exit
//         DD  DSN=IMS.RESLIB,DISP=SHR
//         DD  DSN=IMS.MDALIB,DISP=SHR
//DFSRESLB DD  DSN=IMS.RESLIB,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//IMAGOUT1 DD  DSN=DBICM02.DSG1.COPY1,
//             DISP=(,CATLG,CATLG),UNIT=SYSDA,
//             SPACE=(CYL,(60,10),RLSE)
//ICPSYSIN DD  *
  IC  DBD(DBICM02) DDN(DBICM021) IC(IMAGOUT1) -
      DBALLOC(Y)
/*
  • Provide a DFSDFxxx Procedure library member. The required member suffix for the PROCLIB is specified using the keyword PARM=’DFSDF=xxx’ on the job step’s EXEC statement and by including a //PROCLIB DD containing the matching parameter member.
//ICP      EXEC  PGM=ICPUMAIN,REGION=4096K,PARM=’DFSDF=xxx’
//STEPLIB  DD  DSN=product.LOAD,DISP=SHR
//         DD  DSN=IMS.RESLIB,DISP=SHR
//         DD  DSN=IMS.MDALIB,DISP=SHR
//DFSRESLB DD  DSN=IMS.RESLIB,DISP=SHR
//PROCLIB  DD  DSN=IMS.PROCLIB,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//IMAGOUT1 DD  DSN=DBICM02.DSG1.COPY1,
//             DISP=(,CATLG,CATLG),UNIT=SYSDA,
//             SPACE=(CYL,(60,10),RLSE)
//ICPSYSIN DD  *
  IC  DBD(DBICM02) DDN(DBICM021) IC(IMAGOUT1) -
      DBALLOC(Y)
/*

 

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

BMC AMI Backup and Recovery for IMS 5.2