Job step 12 (JOB F): Tape support

This FVP JOB and job step (Figure 1) verifies DFSMShsm tape support. If you do not use tape, remove this job from the FVP.

Note: You might receive the message FIXCDS COMMAND FAILED with a return code of 0015 if the MCD is not present.

This job step enables you to perform the following tasks:

Back up ?AUTHID.DATA5 to a level 1 DASD volume
Change to direct tape migration
Migrate ?AUTHID.DATA5
Change to DASD migration
List migration volumes
Recall ?AUTHID.DATA5
Back up volume ?PRIVOL to tape
List backup volumes
Recover ?PRIVOL from tape

Figure 1. FVP Job That Verifies DFSMShsm Tape Processing Functions

//?AUTHIDF JOB ?JOBPARM,
//    TYPRUN=HOLD
//* 
//*******************************************************************  
//* THIS JOB PERFORMS THE VERIFICATION OF TAPE SUPPORT.  IF TAPE    *  
//* IS NOT USED, THIS JOB SHOULD BE REMOVED FROM THE PROCEDURE.     *  
//******************************************************************** 
//*                                                                    
//******************************************************************** 
//*   THE FOLLOWING STEP WILL:                                       * 
//*           - BACKUP "?AUTHID.DATA5" TO ML1 DASD.                  * 
//*           - CHANGE TO DIRECT TAPE MIGRATION.                     * 
//*           - MIGRATE "?AUTHID.DATA5".                             * 
//*           - CHANGE TO DASD MIGRATION.                            * 
//*           - LIST MIGRATION VOLUMES.                              * 
//*           - RECALLS "?AUTHID.DATA5".                             * 
//*           - BACKS UP VOLUME ?PRIVOL TO TAPE.                     * 
//*           - LIST BACKUP VOLUMES.                                 * 
//*           - RECOVER ?PRIVOL FROM TAPE                            * 
//******************************************************************** 
//*                                                                    
//STEP12 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 UNIT(?TAPEUNT)
 HBACKDS '?AUTHID.DATA5' WAIT
 HSEND WAIT SETSYS TAPEMIGRATION(DIRECT(TAPE(?TAPEUNT)))
 HSEND WAIT FIXCDS D '?AUTHID.DATA5' PATCH(X'5D' X'88000F')
 HMIGRATE '?AUTHID.DATA5' WAIT
 HSEND WAIT SETSYS TAPEMIGRATION(NONE)
 HSEND WAIT LIST MIGRATIONVOLUME
 HRECALL '?AUTHID.DATA5' WAIT
 HSEND WAIT BACKVOL VOLUME(?PRIVOL) UNIT(?PRIUNT) B(TAPE) TOTAL
 HSEND WAIT LIST BACKUPVOLUME
 HSEND WAIT RECOVER * TOVOLUME(?PRIVOL) UNIT(?PRIUNT)
//*