Case 11: Recovering a deleted ML1 data set without a backup

This procedure assumes that you have a DUMP of the ML1 volume and that you know when the ML1 data set was deleted. You must determine the ML1 volume and the HSM-generated name from either the journal or activity log. This scenario does not account for data sets in an SDSP on a ML1 volume.

To reestablish access to previously deleted migrated data sets, perform the following steps:

Determine the ML1 volume and HSM-generated name from the journal. Use the following jobs to obtain this information:

Copy the journal using IEBGENER before you use SORT.

//COPY  JOB ,
//
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,
//          DSN=journal name (the journal data set where the information
//                            about the deleted migrated data set resides)
//SYSUT2 DD DISP=(NEW,CATLG),UNIT=SYSDA,
//          DCB=(LRECL=6556,BLKSIZE=13112,RECFM=VB),
//          SPACE=(CYL,(10,5),RLSE),
//          DSN= copied journal name
/*

Process the SORT job.

//SORTANY  JOB ,
//
//SORT1   EXEC PGM=SORT
//SYSPRINT DD  SYSOUT=*
//SORKWK01 DD  UNIT=SYSDA,SPACE=(CYL,(10,10))
//SORKWK02 DD  UNIT=SYSDA,SPACE=(CYL,(10,10))
//SORTIN   DD  DISP=SHR,
//             DSN=copied journal name
//SORTOUT  DD  DISP=(NEW,CATLG),UNIT=SYSDA,
//*            DCB=(LRECL=121,BLKSIZE=27951,RECFM=FB),
//*            DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VB),
//             SPACE=(CYL,(500,5),RLSE),
//             DSN=output name
//MSGOUT1  DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//SYSIN    DD  *
     OPTION VLSHRT
     MERGE FIELDS=COPY
     RECORD TYPE=V
     INCLUDE COND=((63,1,BI,EQ,X'00'),and,(17,len,CH,EQ,C'dsn'))
     END
/*

Substitute the length of the user data set name for len and the data set name for dsn. This job will retrieve the MCD records for the data set that was erroneously deleted.

You will have the journal records for the deleted data set in the sorted output data set. The ML1 volume can be determined by going to +76 into the journal record. The HSM-generated name will be at +232. Record the volser of the ML1 volume and the HSM-generated name.

Create a NON-VSAM catalog entry that specifies a DEVT(device type) and VOL(MIGRAT) where device type is the device type of the ML1 volume.
```
//IDCAMS   JOB ,CLASS=A,MSGCLASS=H
//STEP   EXEC PGM=IDCAMS	
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
   DEFINE NONVSAM -
	            (NAME(dsname) -
	            DEVT(device type) -
	            VOL(MIGRAT))
/*
```
Note: For VSAM data sets, you must create a NON-VSAM entry for both the base and data components.
Run the following command to determine which dump volumes you should use:
```
LIST VOLUME(ml1volser) BCDS ALLDUMPS
```
This will list all of the tape volumes that this ML1 volume was dumped to, and when.
Restore the data set. Use the list of volumes created by Step 3 as the source volumes to a DFSMSdss RESTORE job specifying the DFSMShsm-generated name in DATASET(INCL(dsn)).
Run the following command to rebuild the MCD and MCA records for the volume:
```
AUDIT MEDIACONTROLS VOLUMES(ml1volser) FIX
```
RECALL the data set.