Job step 3 (JOB B): Performing data set backup, migration, and recall

This FVP JOB and job step (Figure 1) verifies that DFSMShsm can backup, migrate, and recall data sets. To add a primary volume in this format, you must specify an ADDVOL command in the PARMLIB member.

Example

ADDVOL ?PRIVOL UNIT(?PRIUNT) PRIMARY(AR)

Rules

You must start DFSMShsm before running this job.
When running in a JES3 environment, all ADDVOL commands must be placed in the ARCCMDxx PARMLIB member so that DFSMShsm recognizes them when it is started. If you are operating in a JES3 environment, ensure that you remove the ADDVOL commands from STEP3 (in the following sample job) and insert them in your DFSMShsm PARMLIB member.

Note:

You might receive the message FIXCDS COMMAND FAILED with a return code of 0015 if the MCD is not present.
The job in Figure 1 assumes that migration is to a level-one (ML1) migration volume.

Figure 1. FVP Job That Verifies DFSMShsm Backup, Migration, and Recall Processing

//?AUTHIDB JOB ?JOBPARM,
//    TYPRUN=HOLD
//*
//**********************************************************************/
//* THIS FVP JOB STEP VERIFIES DFSMSHSM BACKUP, MIGRATION, AND RECALL. */
//**********************************************************************/
//*
//STEP3 EXEC PGM=IKJEFT01,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
 /* You might receive the message FIXCDS COMMAND FAILED with a */
 /* return code of 0015 or message ARC0195I ERROR = RECORD     */
 /* NOT FOUND or both, if the MCD is not found.                */
 HSEND WAIT SETSYS SDSP(1) FREQUENCY(0)
 HSEND WAIT ADDVOL ?PRIVOL UNIT(?PRIUNT) PRIMARY(AR)
 HSEND WAIT ADDVOL ?MIGVOL UNIT(?MIGUNT) MIG(ML1 SDSP)
 HBACKDS '?AUTHID.DATA1' WAIT
 HBACKDS '?AUTHID.DATA3' WAIT
 HBACKDS '?AUTHID.DATA5' WAIT
 HLIST LEVEL(?AUTHID) BOTH INCLUDEPRIM TERM
 HSEND WAIT FIXCDS D '?AUTHID.DATA1' PATCH(X'5D' X'88000F')
 HSEND WAIT FIXCDS D '?AUTHID.DATA2' PATCH(X'5D' X'88000F')
 HSEND WAIT FIXCDS D '?AUTHID.DATA3' PATCH(X'5D' X'88000F')
 HSEND WAIT FIXCDS D '?AUTHID.DATA4' PATCH(X'5D' X'88000F')
 HMIGRATE '?AUTHID.DATA1' WAIT
 HMIGRATE '?AUTHID.DATA2' WAIT
 HMIGRATE '?AUTHID.DATA3' WAIT
 HMIGRATE '?AUTHID.DATA4' WAIT
 HLIST LEVEL(?AUTHID) TERM
 HRECALL '?AUTHID.DATA1' WAIT
 HRECALL '?AUTHID.DATA3' WAIT
 HRECALL '?AUTHID.DATA4' WAIT
 HLIST LEVEL(?AUTHID) INCLUDEPRIM TERM
//*