Creating Image copy in an IMS managed ACB environment

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

Related topics

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)
/*

Creating Image copy in an IMS managed ACB environment

BMC AMI Backup and Recovery for IMS 5.1

On this page