Sample ARMBGEN JCL
The following is a sample of ARMBGEN JCL that recovers to a restart RBA:
//*
//* *************************************************************** *//
//*
//* DOC: OBJECTSET ARMQA SAMPLE
//* GENERATED BY RDAJBM ON 12/08/14 AT 10:20
//*
//*
//* *************************************************************** *//
//* *************************************************************** *//
//* *************************************************************** *//
//* RECOVERY MANAGER - V12.1.00 - BMC SOFTWARE, INC. *//
//* *************************************************************** *//
//* *************************************************************** *//
//* BATCH JCL GENERATION *//
//* FOR SELECTED OBJECTSETS *//
//* *************************************************************** *//
//ARM0003 EXEC PGM=IKJEFT1B,DYNAMNBR=250,
// PARM='ISPSTART PGM(ARMBGEN) PARM(DEC2,ARMOPTS=ARM$OPTS)',
// REGION=4M
//STEPLIB DD DISP=SHR,DSN=PRODUCT.LOAD.LIBS
// DD DISP=SHR,DSN=DSNEXIT
// DD DISP=SHR,DSN=DSNLOAD
//ARMMSGS DD DISP=SHR,DSN=PRODUCT.CNTL.LIBS(ARMMSGS)
//ARMPRINT DD SYSOUT=*
//ARMERROR DD SYSOUT=*
//ARMHELP DD SYSOUT=*
//ARMIN DD *
SET CURRENT SQLID = ARMQA
;
SET OPTIONS
SITETYPE LOCAL
BACKOUT NO
JCLTYPE LOCAL
;
GENJCL
RECOVER
TORESTARTRBA
OBJECTSET 'ARMQA'.'SAMPLE'
;
/*
//ISPFILE DD DSN=&&XARMTMP,
// DISP=(MOD,PASS),
SPACE-(CYL,(10,5),RLSE),UNIT=WORK,
DCB-(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PS)
//ISPSLIB DD DISP=SHR,DSN=RMD.TEST.DBSLIB
//ISPTABL DD DISP=SHR,DSN=RMD.TEST.DBTLIB
//ISPMLIB DD DISP=SHR,DSN=RMD.TEST.DBMLIB
// DD DISP=SHR,DSN=SYS1.PROD.ISPMLIB
//ISPTLIB DD DISP=(,DELETE),UNIT=WORK,SPACE=(CYL,(1,1,2)),
// DCB=RMD.TEST1110.DBTLIB
// DD DISP=SHR,DSN=RMD.TEST.DBTLIB
// DD DISP=SHR,DSN=SYS1.PROD.ISPTLIB
//ISPPLIB DD DISP=(NEW,DELETE),UNIT=WORK,SPACE=(TRK,(1,1,2)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PO)
//ISPPROF DD DISP=(,DELETE),UNIT=WORK,SPACE=(TRK,(1,1,2)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PO)
//ISPCTL0 DD DISP=(,DELETE),UNIT=WORK,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PS)
//ISPCTL1 DD DISP=(,DELETE),UNIT=WORK,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PS)
//ISPLOG DD DISP=(,DELETE),UNIT=WORK,SPACE=(CYL,(1,1)),
// DCB=(LRECL=125,RECFM=VB,BLKSIZE=3000,DSORG=PS),
// DSN=&&LOG
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//ISPLIST DD SYSOUT=*
//* *************************************************************** *//
//* COPY TEMP DATA SET TO TARGET DATA SET *//
//* *************************************************************** *//
//ARM0004 EXEC PGM=ARMBGNR,COND=(4,LT),REGION=4M
//STEPLIB DD DISP=SHR,DSN=PRODUCT.LOAD.LIBS
// DD DISP=SHR,DSN=DSNEXIT
// DD DISP=SHR,DSN=DSNLOAD
//ARMMSGS DD DISP=SHR,DSN=PRODUCT.CNTL.LIBS(ARMMSGS)
//ARMPRINT DD SYSOUT=*
//ARMERROR DD SYSOUT=*
//SYSUT1 DD DISP=(OLD,DELETE,DELETE),
// DSN=&&XARMTMP
//SYSUT2 DD DISP=SHR,DSN=RDAJBM.ARM111.JCL(SAMPLE4)
The following is a sample of ARMBGEN JCL that recovers to the last image copy:
//* RECOVERY MANAGER - BMC SOFTWARE, INC. *//
//* *************************************************************** *//
//* *************************************************************** *//
//* BATCH JCL GENERATION *//
//* FOR SELECTED OBJECTSETS *//
//* *************************************************************** *//
//ARM0003 EXEC PGM=IKJEFT1B,DYNAMNBR=250,
// PARM='ISPSTART PGM(ARMBGEN) PARM(DEC2,ARMOPTS=ARM$OPTS)',
// REGION=4M
//STEPLIB DD DISP=SHR,DSN=PRODUCT.LOAD.LIBS
// DD DISP=SHR,DSN=DSNEXIT
// DD DISP=SHR,DSN=DSNLOAD
//ARMMSGS DD DISP=SHR,DSN=PRODUCT.CNTL.LIBS(ARMMSGS)
//ARMPRINT DD SYSOUT=*
//ARMERROR DD SYSOUT=*
//ARMHELP DD SYSOUT=*
//ARMIN DD *
SET CURRENT SQLID = RDAJBM
;
SET OPTIONS SITETYPE LOCAL
BACKOUT NO
JCLTYPE LOCAL
;
GENJCL
RECOVER
TOCOPY MINUS 0
OBJECTSET 'ARMQA'.'SAMPLE'
UPDATE RECOVER_OPTIONS
RECOVER_UTILITY AFRMAIN
COPY_AFTER_LP YES
COPY_AFTER_LB NO
COPY_AFTER_RP YES
COPY_AFTER_RB NO
;
/*
ISPFILE DD DSN=&&XARMTMP,
// DISP=(MOD,PASS),
SPACE-(CYL,(10,5),RLSE),UNIT=WORK,
DCB-(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PS)
//ISPSLIB DD DISP=SHR,DSN=BMCARM.TEST.DBSLIB
//ISPTABL DD DISP=SHR,DSN=BMCARM.TEST.DBTLIB
//ISPMLIB DD DISP=SHR,DSN=BMCARM.TEST.DBMLIB
// DD DISP=SHR,DSN=SYS1.PROD.ISPMLIB
//ISPTLIB DD DISP=(,DELETE),UNIT=WORK,SPACE=(TRK,(1,1,2)),
// DCB=BMCARM.VTEST.DBTLIB
// DD DISP=SHR,DSN=BMCARM.VTEST.DBTLIB
// DD DISP=SHR,DSN=SYS1.PROD.ISPTLIB
//ISPPLIB DD DISP=(NEW,DELETE),UNIT=WORK,SPACE=(TRK,(1,1,2)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PO)
//ISPPROF DD DISP=(,DELETE),UNIT=WORK,SPACE=(TRK,(1,1,2)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PO)
//ISPCTL0 DD DISP=(,DELETE),UNIT=WORK,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PS)
//ISPCTL1 DD DISP=(,DELETE),UNIT=WORK,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PS)
//ISPLOG DD DISP=(,DELETE),UNIT=WORK,SPACE=(CYL,(1,1)),
// DCB=(LRECL=125,RECFM=VB,BLKSIZE=3000,DSORG=PS),
// DSN=&&LOG
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//ISPLIST DD SYSOUT=*
//* *************************************************************** *//
//* COPY TEMP DATA SET TO TARGET DATA SET *//
//* *************************************************************** *//
//ARM0004 EXEC PGM=ARMBGNR,COND=(4,LT)
//STEPLIB DD DISP=SHR,DSN=PRODUCT.LOAD.LIBS
// DD DISP=SHR,DSN=DSNEXIT
// DD DISP=SHR,DSN=DSNLOAD
//ARMMSGS DD DISP=SHR,DSN=PRODUCT.CNTL.LIBS(ARMMSGS)
//ARMPRINT DD SYSOUT=*
//ARMERROR DD SYSOUT=*
//SYSUT1 DD DISP=(OLD,DELETE,DELETE),
// DSN=&&XARMTMP
//SYSUT2 DD DISP=SHR,DSN=BMCARM.QA.REGR.JCLLIB(SAMPOUT)
The following is a sample report backup time objective in ARMPRINT DD
BACKUP TIME ESTIMATE:
STANDARD 00:08:33
SNAPSHOT 00:10:55
CABINET 00:02:33
The following is a sample report recover time objective in ARMPRINT DD
RECOVER TIME ESTIMATE:
BACKOUT NO 00:00:00 NO ESTIMATE - NO USABLE COPY FOR ONE OR MORE OBJECTS
BACKOUT YES 00:00:00 NO ESTIMATE - BACKOUT NOT VALID FOR ONE OR MORE OBJECTS
BACKOUT AUTO 00:59:40 CATALOG STATS NEED TO BE UPDATED
RECOVER TIME OBJECTIVE: 39 MINUTES
RECOVER TIME ESTIMATE:
BACKOUT NO 00:00:00 NO ESTIMATE - NO USABLE COPY FOR ONE OR MORE OBJECTS
BACKOUT YES 00:00:00 NO ESTIMATE - BACKOUT NOT VALID FOR ONE OR MORE OBJECTS
BACKOUT AUTO 00:59:40 CATALOG STATS NEED TO BE UPDATED
The following is a sample JCL generated for ARMBGEN GENJCL MODIFY command (SPE2005)
//* RECOVERY MANAGER - V12.01.00 - BMC SOFTWARE, INC. *//
//* SLIB MEMBER = ARMBGENZ *//
//**************************************************************** *//
//* BATCH JCL GENERATION *//
//* FOR SELECTED OBJECTSETS *//
//**************************************************************** *//
//ARM0000 EXEC PGM=IKJEFT1B,DYNAMNBR=250,
// PARM='ISPSTART PGM(ARMBGEN)PARM(DEJM,ARMOPTS=JLW$OPTS)',
// REGION=0M,COND=(4,LT)
//STEPLIB DD DISP=SHR,DSN=SCC.WJLW1211.LOAD
// DD DISP=SHR,DSN=SCC.PTFS1210.LGCLINK
// DD DISP=SHR,DSN=SCC.PTFS1210.BMCLINK
// DD DISP=SHR,DSN=ARM.WJLW1216.LOAD
// DD DISP=SHR,DSN=CSG.DEJM.DSNEXIT
// DD DISP=SHR,DSN=CSGI.DB2V12M.DSNLOAD
// DD DISP=SHR,DSN=RMD.INST1210.BMCPSWD.ACP
//ARMMSGS DD DISP=SHR,
// DSN=ARM.WJLW1216.CNTL(ARMMSGS)
//ARMPRINT DD SYSOUT=*
//ARMERROR DD SYSOUT=*
//ARMIN DD *
SET CURRENT SQLID = RDAJLW2 ;
GENJCL
MODIFY
OBJECTSET PUBLIC.MODIFY
CLONE NO
DELETE
DSNOTFOUND YES
DATE 200103
MAXCOPIES 14
MAXFULLCOPIES 7
MAXRECDAYS 14
MAXSNAPS 7
ICFDELETE YES
NOCOPYPEND NO
SYSLGRNX YES
ANALYZE YES
COMMIT 100
ON_ERROR_BADSTATUS END
ON_ERROR_NOTSUPPORTED END
;
/*
The following is a sample of ARMBGEN Recover JCL generation: (SPE2104)
SET OPTIONS
INDEP OUTSPACE YES
MODEL vcat.BMCDBC.databaseName.objectName.p00001
TO_SSID DB2
;
RECOVER
OBJECTSET objectsetOwner.objectsetName
TOCURRENT
/*
The following is a sample of ARMBGEN Recover JCL generation for LISTDEFDD: (BMC.DB2.SPE2110)
SET OPTIONS
LISTDEFDD
DSN PDS(MEMBER)
LIST_NAME MYLIST
;
GENJCL
RECOVER
TOLOGPOINT 00000000047813000000
OBJECTSET "MVSIBA"."IX_TS"
;
/*
The following is a sample of ARMBGEN Backup JCL generation for LISTDEFDD, TEMPLATEDD and COPYTOCOPY: (BMC.DB2.SPE2110)
SET OPTIONS
LISTDEFDD
LISTDEF.PDS.NAME(MEMBER1)
LIST_NAME MYLIST
TEMPLATEDD
TEMPLATE.PDS.NAME(MEMBER2)
TEMPLATE_NAME MYTMPLAT
;
GENJCL
GENJCL
BACKUP
COPYTOCOPY
FROMLASTCOPY
OBJECTSET "BMCOBJ"."IX_TS"
;
/*
The following is a sample of ARMPRINT that calculates timestamp for CURRENT_MINUS: (BMC.DB2.SPE2110)
RECOVER
TOTIMESTAMP CURRENT_MINUS_HOURS 34
OBJECTSET "PUBLIC"."BYPART"
;
BMC81059I DATA COLLECTION TURNED OFF: DATACOLLECTION=NO IN OPTIONS FILE
BMC80799I RECOVERY TIMESTAMP IS 2021-05-25-02.48.50.000000
BMC80526I PROCESSING - OBJECTSET PUBLIC.BYPART
Related topics