Creating image copies by using IMS compatible JCL
The following figure shows typical IMS Database Image Copy utility JCL that could be used to run the
BMC AMI Backup and Recovery for IMS
and ICP batch Image Copy or ICP Database Recovery functions.
In this job you modify only the STEPLIB DD statement to include the BMC product load library.
//ICP EXEC PGM=DFSUDMP0,PARM='DBRC=Y',
// REGION=4096K
//STEPLIB DD DSN=product.LOAD,DISP=SHR <===modify
// DD DSN=IMS.RESLIB,DISP=SHR
//DFSRESLB DD DSN=IMS.RESLIB,DISP=SHR
//IMS DD DSN=IMS.DBDLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DBICM021 DD DSN=DBICM02.DSG1,DISP=OLD
//DBICM022 DD DSN=DBICM02.DSG2,DISP=OLD
//IMAGOUT1 DD DSN=DBICM02.DSG1.COPY1,
// DISP=(,CATLG,CATLG),UNIT=SYSDA,
// SPACE=(CYL,(60,10),RLSE)
//IMAGOUT2 DD DSN=DBICM02.DSG2.COPY1,
// DISP=(,CATLG,CATLG),UNIT=SYSDA,
// SPACE=(CYL,(60,10),RLSE)
//IMAGOUT3 DD DSN=DBICM02.DSG2.COPY2,
// DISP=(,CATLG,CATLG),UNIT=SYSDA,
// SPACE=(CYL,(60,10),RLSE)
//SYSIN DD *
D1 DBICM02 DBICM021 IMAGOUT1
D1 DBICM02 DBICM022 IMAGOUT2 IMAGOUT3
/*
// REGION=4096K
//STEPLIB DD DSN=product.LOAD,DISP=SHR <===modify
// DD DSN=IMS.RESLIB,DISP=SHR
//DFSRESLB DD DSN=IMS.RESLIB,DISP=SHR
//IMS DD DSN=IMS.DBDLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DBICM021 DD DSN=DBICM02.DSG1,DISP=OLD
//DBICM022 DD DSN=DBICM02.DSG2,DISP=OLD
//IMAGOUT1 DD DSN=DBICM02.DSG1.COPY1,
// DISP=(,CATLG,CATLG),UNIT=SYSDA,
// SPACE=(CYL,(60,10),RLSE)
//IMAGOUT2 DD DSN=DBICM02.DSG2.COPY1,
// DISP=(,CATLG,CATLG),UNIT=SYSDA,
// SPACE=(CYL,(60,10),RLSE)
//IMAGOUT3 DD DSN=DBICM02.DSG2.COPY2,
// DISP=(,CATLG,CATLG),UNIT=SYSDA,
// SPACE=(CYL,(60,10),RLSE)
//SYSIN DD *
D1 DBICM02 DBICM021 IMAGOUT1
D1 DBICM02 DBICM022 IMAGOUT2 IMAGOUT3
/*
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*