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:
//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
/*
//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
/*
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.
//IDCAMS JOB ,CLASS=A,MSGCLASS=H
//STEP EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE NONVSAM -
(NAME(dsname) -
DEVT(device type) -
VOL(MIGRAT))
/*
LIST VOLUME(ml1volser) BCDS ALLDUMPS
This will
list all of the tape volumes that this ML1 volume was dumped to, and
when.AUDIT MEDIACONTROLS VOLUMES(ml1volser) FIX