You might face an issue where the TAPE data set get deleted, but the VOLUME SERIAL allocated to that data set still showing the same data set in any of the TAPE utilities you have (Like TMS – TAPE MANAGEMENT SYSTEM).
Now you know the TAPE data set is having the same Data set that got deleted (And you are not able to find in 3.4). In this scenario, you can make use of below JCL to recover the dataset to a different data set.
Deleted TAPE DSN: HLQ1.HLQ2.DELTED.TAPE
Recovered TAPE DSN: HLQ1.HLQ2.COPIED.TAPE
//STEP01 EXEC PGM=SORT
//SORTIN DD DSN=HLQ1.HLQ2.DELTED.TAPE,DISP=OLD,
// UNIT=TAPE,VOL=SER=123456
//SORTOUT DD DSN=HLQ1.HLQ2.COPIED.TAPE,
// DISP=(,CATLG,CATLG),UNIT=TAPE,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
/*
Now you know the TAPE data set is having the same Data set that got deleted (And you are not able to find in 3.4). In this scenario, you can make use of below JCL to recover the dataset to a different data set.
Deleted TAPE DSN: HLQ1.HLQ2.DELTED.TAPE
Recovered TAPE DSN: HLQ1.HLQ2.COPIED.TAPE
//STEP01 EXEC PGM=SORT
//SORTIN DD DSN=HLQ1.HLQ2.DELTED.TAPE,DISP=OLD,
// UNIT=TAPE,VOL=SER=123456
//SORTOUT DD DSN=HLQ1.HLQ2.COPIED.TAPE,
// DISP=(,CATLG,CATLG),UNIT=TAPE,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
/*
No comments:
Post a Comment