Job steps 6, 7, and 8: Deleting and re-creating data sets

This FVP job step (Figure 1) verifies that DFSMShsm can delete two data sets and then re-create them with recovered data.

Figure 1. FVP Step That Verifies That DFSMShsm Can Delete and Recover Data Sets

//*                                                                     
//********************************************************************  
//* THESE STEPS DELETE TWO OF THE DATA SETS AND RECREATE THEM WITH   *  
//* DIFFERENT DATA SO THAT RECOVERED DATA CAN BE TESTED.             *  
//*                                                                  *  
//*     STEP6 - IEFBR14 DELETE "?AUTHID.DATA1" AND "?AUTHID.DATA5".  *  
//*     STEP7 - IEBDG RECREATE "?AUTHID.DATA1" AND "?AUTHID.DATA5"   *  
//*             WITH NEW DATA.                                       *  
//*     STEP8 - AMS LIST "?AUTHID.DATA1" AND "?AUTHID.DATA5"         *  
//********************************************************************  
//*                                                                     
//STEP6 EXEC PGM=IEFBR14
//DD1 DD DSN=?AUTHID.DATA1,DISP=(OLD,DELETE)
//DD2 DD DSN=?AUTHID.DATA5,DISP=(OLD,DELETE)
//STEP7 EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=*
//DATA1 DD DSN=?AUTHID.DATA1,DISP=(,CATLG),
// UNIT=?PRIUNT,VOL=SER=?PRIVOL,
// SPACE=(TRK,(1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=400,DSORG=PS)
//DATA5 DD DSN=?AUTHID.DATA5,DISP=(,CATLG),
// UNIT=?PRIUNT,VOL=SER=?PRIVOL,
// SPACE=(CYL,(1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//SYSIN DD *
 DSD OUTPUT=(DATA1)
 FD  NAME=A,LENGTH=80,STARTLOC=1,FILL=' ',PICTURE=36,'FVP DATA1 NEW JOB
   =FVPFVP2 STEP=STEP7'
 CREATE NAME=A
 END
 DSD OUTPUT=(DATA5)
 FD  NAME=E,LENGTH=80,STARTLOC=1,FILL=' ',PICTURE=36,'FVP DATA5 NEW JOB
   =FVPFVP2 STEP=STEP7'
 CREATE NAME=E,QUANTITY=1000
 END
//STEP8 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=*
//DATA1 DD DSN=?AUTHID.DATA1,DISP=SHR
//DATA5 DD DSN=?AUTHID.DATA5,DISP=SHR
//SYSIN DD *
 PRINT INFILE(DATA1) COUNT(1)
 PRINT INFILE(DATA5) COUNT(1)
//*