Cleanup job

The CLEANUP job (see Figure 1) prepares your DFSMShsm environment for initially running the FVP. Run this job before you run the FVP. This job, if necessary, also prepares your DFSMShsm environment for a rerun of the FVP. If the FVP requires additional runs to verify the successful implementation of DFSMShsm, run this CLEANUP job before each rerun of the FVP.

If you have added tapes for backup, migration, or dump, issue the DELVOL PURGE command to delete those tapes.

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

Figure 1. FVP Job That Cleans Up the Environment before the Initial Run of the FVP. Also run this job before any reruns of the FVP.

//?AUTHIDH JOB ?JOBPARM,                                                
//    TYPRUN=HOLD                                                       
//*                                                                     
//********************************************************************  
//*                       CLEAN UP                                   *  
//*                                                                  *  
//* THIS JOB DELETES ALL DATA SETS THAT WERE CREATED AS A RESULT OF  *  
//* A PREVIOUS PROCESSING OF THE FVP.                                *  
//*                                                                  *  
//* IF IT IS NECESSARY TO RESTART THE FVP, THIS CLEAN UP MUST BE RUN *  
//* FIRST.                                                           *  
//*                                                                  *  
//* IF YOU HAVE ADDED TAPES FOR BACKUP, MIGRATION, OR DUMP, YOU      *  
//* SHOULD DELVOL PURGE THOSE VOLUMES.                               *  
//*                                                                  *  
//* YOU SHOULD DELETE THE MCD RECORDS CREATED BY MIGRATION           *  
//********************************************************************  
//*   
//STEP1 EXEC PGM=IKJEFT01,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  DELETE '?AUTHID.PRIMER'
  DELETE '?AUTHID.DATA1'
  DELETE '?AUTHID.DATA2'
  DELETE '?AUTHID.DATA3'
  DELETE '?AUTHID.DATA4'
  DELETE '?AUTHID.DATA5'
  DELETE '?AUTHID.DATA6'
 HSEND WAIT DELVOL ?MIGVOL MIGRATION
 HSEND WAIT DELVOL ?PRIVOL PRIMARY
//*  
//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
  DELETE (?UID.SMALLDS.V?MIGVOL) CLUSTER PURGE
  DELETE (?AUTHID.DATAV7) CLUSTER PURGE
  DELETE (?AUTHID.DATAV8) CLUSTER PURGE
/*
//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 FIXCDS D ?AUTHID.DATA1 DELETE
  HSEND WAIT FIXCDS D ?AUTHID.DATA2 DELETE
  HSEND WAIT FIXCDS D ?AUTHID.DATA3 DELETE
  HSEND WAIT FIXCDS D ?AUTHID.DATA4 DELETE
  HSEND WAIT FIXCDS D ?AUTHID.DATAV8 DELETE
/*
$A