Sample JCLs to create an Archive Image Copy
Sample 1
Specify the TYPERUN(ARCHIVEIC) keyword to create Archive Image copies for full function databases DBRCO01 and DBRCE10 by using a PIT recovery to time stamp value specified in the TIMESTMP keyword.
The output Archive Image copy data sets are dynamically allocated using the model ICDASD. The output resource file (RSRFILE) is dynamically allocated using the model RSRMODL1. This is a partitioned data set on DASD.
A comment is added to this Archive Image copy for identification purpose only. If this keyword is not specified, the utility generates a a default comment.
For description of the MODEL command and substitution variables, see Using MODEL to define a dynamic allocation model and Determining dynamically allocated data set names.
//STEPLIB DD DISP=SHR,DSN=BMC.RVP.LOAD
// DD DISP=SHR,DSN=IMSVS.R15M.RESLIB
//DFSRESLB DD DISP=SHR,DSN=IMSVS.R15M.RESLIB
//IMS DD DISP=SHR,DSN=RVP.QA.DBDLIB
//MDALIB DD DISP=SHR,DSN=RVP.R15.MDALIB
//AMSPDS DD DISP=SHR,DSN=RVP.QA.DEFINES
//ARUDIR DD DISP=SHR,DSN=RVP.ARU.REPO <=== ARU DIRECTORY
//RECON1 DD DISP=SHR,DSN=RCNRVP.RVP.QA.R15TEST.RECON1
//RECON2 DD DISP=SHR,DSN=RCNRVP.RVP.QA.R15TEST.RECON2
//SYSPRINT DD SYSOUT=*
//RVPSYSIN DD *
GLBL -
PIT(Y) DBRC(Y) -
TIMESTMP(18009182518921108-0600) -
TYPERUN(ARCHIVIC) -
RSRMODEL(RSRMODL1) -
ARICCMNT('ARCHIVE IC CREATED FOR DEMO - OCTOBER,2021')
MODEL NAME(ICDASD) DSN(RVP.ARU.D&JDATE.T&TIME.&DBD.&DSG) -
SPACE(C,10,5) UNIT(SYSDA)
MODEL NAME(RSRMODL1) DSN(RRD.RSR.D&JDATE.T&TIME.LOAD) -
SPACE(C,5,5) DIRBLKS(5)UNIT(SYSDA) VOLCNT(l)
AREC DBD(DBRCO01) DDN(DBRCO01) LOG(*) DUMP(*) ACCUM(*) IC((*,ICDASD)
AREC DBD(DBRCE10) DDN(DBRCE10) LOG(*) DUMP(*) ACCUM(*) IC((*,ICDASD)
//*
Sample 2
Specify the TYPERUN(ARCHIVEIC) keyword to create Archive Image copies for the Fast Path databases DBD1 and DBD2 by using a PIT recovery to time stamp value LASTIC, which is the last recorded batch IC in the RECON.
The PSBLIST keyword is specified to copy the PSB1, PSB2 and PSB3 from the library //PSBLIB to the output resource file. In addition, CHKLOGCL(Y) is specified to request to copy any Logical DBDs that might exist in the requested PSBs in the PSBLIST. If the keyword CHKLOGCL(Y) is not specified, then only the requested PSBs are copied to the output resource file.
The output resource file is a pre-allocated data set (PDS on DASD defined with BLKSIZE=32760 and RECFM=U) with the DD name RSROUT specified in the RSRDD keyword.
The output Archive Image copy data sets is dynamically allocated using the model ICOUT.
//STEPLIB DD DISP=SHR,DSN=BMC.RVP.LOAD <=== ARU LOAD LIBRARY
// DD DISP=SHR,DSN=IMSVS.RESLIB
//IMS DD DISP=SHR,DSN=DBD.LIBRARY
//PSBLIB DD DISP-SHR,DSN=PSB.LIBRARY
//DFSRESLB DD DISP=SHR,DSN=IMSVS.RESLIB<=== IMS RESLIB
//ARUDIR DD DISP=SHR,DSN=RVP.ARU.DIRCTORY<=== ARU DIRECTORY
//AMSPDS DD DISP=SHR,DSN=RVP.ARU.IDCAMS
//RECON1 DD DISP=SHR,DSN=RVP.IMS.WK.RECON1
//RECON2 DD DISP=SHR,DSN=RVP.IMS.WK.RECON2
//RSROUT DD DISP=RVP.RRCHIVE.D23220.T080005.LOAD
//SYSPRINT DD SYSOUT=*
//RVPSYSIN DD *
GLBL DBRC(Y) PIT(Y) -
PIT(Y) TIMESTMP(LASTIC) -
TYPERUN(ARCHIVIC) -
RSRDD(RSROUT) -
PSBLIST(PSB1,PSB2,PSB3) -
CHKLOGCL(Y) -
ARICCMNT("IC CREATED BEFORE KEY RANGE CHANGED FROM C'5555555555'TO C'7777777777'")
MODEL NAME(ICOUT) DSN(RVP.D&JDATE.T&TIME.&DBD.&DSG.IC) -
SPACE(C,10,5) UNIT(SYSDA) VOLCNT(1)
AREC DBD(DBDl) AREA(AREANM1) LOG(*) DUMP(*) ACCUM(*) IC((*,ICOUT))
AREC DBD(DBD2) AREA(AREANM2) LOG(*) DUMP(*) ACCUM(*) IC((*,ICOUT))
Sample 3
Create Archive Image copies for the three HALDB databases.
The first AREC request specifies only the master DBD name HALMDBD1, without any partition or data set group name. In this case, Archive Image copies are generated for all the DSGs for all the partitions in the HALMDBD1 database.
The second AREC request specifies to create Archive Image copies for the HALDB database HALMDBD2 for its partition MDBD2P1 only. In this case, Archive Image copies are generated for all the DSGs for the partition MDBD2P1.
The third AREC request specifies to create Archive Image copies for the HALDB database HALMDBD3 for data set group MDBD3P1A. In this case, Archive Image copies are generated only for the DSG MDBD3P1A.
The output Archive Image copy data sets are dynamically allocated for each of the Archive Image copies using the model ICOUT. The output resource file is the pre-allocated data set with the DD name RSROUT.
//STEPLIB DD DISP=SHR,DSN=BMC.RVP.LOAD<=== ARU LOAD LIBRARY
// DD DISP=SHR,DSN=IMSVS.RESLIB
//IMS DD DISP=SHR,DSN=DBD.LIBRARY
//PSBLIB DD DISP-SHR,DSN=PSB.LIBRARY
//DFSRESLB DD DISP=SHR,DSN=IMSVS.RESLIB <=== IMS RESLIB
//ARUDIR DD DISP=SHR,DSN=RVP.ARU.DIRCTORY <=== ARU DIRECTORY
//AMSPDS DD DISP=SNR,DSN=RVP.ARU.IDCAMS
//RECON1 DD DISP=SHR,DSN=RVP.IMS.WK.RECON1
//RECON2 DD DISP=SHR,DSN=RVP.IMS.WK.RECON2
//RSROUT DD DISP=RVP.ARCHIVE.D23220.T080005.LOAD
//SYSPRINT DD SYSOUT=*
//RVPSYSIN DD *
GLBL DBRC(Y) -
PIT(Y) TIMESTMP(LASTIC) -
TYPERUN(ARCHIVIC) -
RSRDD(RSROUT)
MODEL NAME(ICOUT) DSN(RVP.D&JDATE.T&TIME.&DBD.&DSG.IC) -
SPACE(C,10,5) UNIT(SYSDA) VOLCNT(1)
AREC DBD(HALMDBD1) LOG(*) DUMP(*) ACCUM(*) IC((*,ICOUT)
AREC DBD(HALMDBD2) DDN(MDBD2P1) LOG(*) DUMP(*) ACCUM(*) IC((*,ICOUT))
AREC DBD(HALMDBD3) DDN(MDBD3P1A) LOG(*) DUMP(*) ACCUM(*) IC((*,ICOUT))
//*
Sample 4
Create Archive Image copies for all the members of a CAGRP named CAGRP1 by using the time stamp value LASTPITCA, which is the time stamp of the last recorded PIT CA in the RECON. The output Archive Image copy data sets will be dynamically allocated for each member in the CAGRP1 using the model ICOUT.
The output resource file is dynamically allocated using the model RSRMODL1. In this case, the data set is an unloaded PDS on a tape device.
You can specify multiple CAGRPs and DBDSGRPs in one run.
If CAGRP or DBDSGRP consists of different types of databases, &DSG is used interchangeably for the DDN or AREA name depending on the type of each database.
//STEPLIB DDDISP=SHR,DSN=BMC.RVP.LOAD
// DDDISP=SHR,DSN=IMSVS.R15M.RESLIB
//DFSRESLB DDDISP=SHR,DSN=IMSVS.R15M.RESLIB
//IMS DDDISP=SHR,DSN=RVP.QA.DBDLIB
//MDRLIB DDDISP=SHR,DSN=RVP.R15.MDALIB
//AMSPDS DDDISP=SHR,DSN=RVP.QA.DEFINES
//ARUDIR DDDISP=SHR,DSN=RVP.ARU.REPO<=== ARU DIRECTORY
//RECON1 DD DISP=SHR,DSN=RCNRVP.RVP.QA.R15TEST.RECON1
//RECON2 DD DISP=SHR,DSN=RCNRVP.RVP.QA.R15TEST.RECON2
//SYSPRINT DD SYSOUT=*
//RVPSYSIN DD *
GLBL DBRC(Y) PIT(Y)-
TIMESTMP(LASTPITCA) -
TYPERUN(ARCHIVIC) -
RSRFILE (RSRMODL1) -
ARICCMNT("ARCHIVE IC FOR NEWLY CREATED CARGRP - CAGRP1")
MODEL NAME(RSRMODL1) DSN(RVP.ARCHIVE.D&JDATE.T&TIME.LOAD) -
SPACE(C,10,5) UNIT(CART) VOLCNT(1)
MODEL NAME(ICOUT) DSN(RVP.&CAGRP.D&JDATE.T&TIME.&DBD.&DSG.IC) -
SPACE(C,10,5) UNIT(SYSDA) VOLCNT(1)
GROUP CAGRP(CAGRP1) FUNC(AREC) LOG(*) DUMP(*) ACCUM(*) IC((*,ICOUT)
Sample 5
You can recover an Archive IC from a non-managed ACB environment (DBDLIB) to an IMS managed ACB environment (Catalog). Use the keyword CVT2MACB(Y|N) to request the Archive IC GENJCL process to generate DDLs for the databases and PSB definitions and the JCL to make them accessible to the IMS catalog, so that the recovered databases can be accessed in an IMS managed ACB environment. You must provide either the library containing the Catalog exit program DFS3CDX0 in the Steplib, or supply the IMS Proclib data set DD card, PROCLIB, and the DFSDF suffix in the GENJCL step as follows:
//GENJCL1 EXEC PGM=ARUGNJCL,REGION=0M,PARM=’DFSDF=xxx’
//STEPLIB DD DISP=SHR,DSN=BMC.RVP.LOAD <=== BRI LOAD LIBRARY
// DD DISP=SHR,DSN=IMSVS.RESLIB
//ARUDIR DD DISP=SHR,DSN=RVP.ARU.DIRCTORY <=== ARU DIRECTORY
//ARUJCL DD DISP=SHR,DSN=RVP.ARU.JCL <=== ARU JCL LIBRARY
//RECON1 DD DISP=SHR,DSN=RVP.IMS.WK.RECON1
//RECON2 DD DISP=SHR,DSN=RVP.IMS.WK.RECON2
//DFSRESLB DD DISP=SHR,DSN=IMSVS.RESLIB <=== IMS RESLIB
//PROCLIB DD DISP=SHR,DSN=IMS.PROCLIB <=== IMS PROCLIB
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ARUSYSIN DD * <=== ARU CONTROL CARDS
ARCHIVE FUNC(PARM) -
TIMESTMP(LASTIC) -
DYNALLOC(Y) –
CVT2MACB(Y) -
OUTRSR(RSRMODL1) -
OUTAMS(AMSMDL) -
JOBNAME(ARUJCL01) -
NEWNAME(RVP.TEST.**) MBRPFX(SAMPL)
MODEL NAME(RSRMODL1) DSN(RVP.ARU.RESTORE.LOAD) -
SPACE(C,10,5) UNIT(SYSDA) DIRBLKS(100)
MODEL NAME(XITMDL) DSN(RVP.ARU.UEXIT.LOAD) -
SPACE(C,10,5) UNIT(SYSDA) DIRBLKS(5)
MODEL NAME(AMSMDL) DSN(RVP.ARU.NEW.AMSPDS) -
SPACE(C,10,5) UNIT(SYSDA) DIRBLKS(100)
ARCHIVE FUNC(RECOVER) CAGRP(CAGRP1)
/*
To create similar JCL in a managed ACB environment, see Recovery using recommended JCL in an IMS-managed ACB environment.