How did you copy TEST01 to PROD01. When the dataset was initially created, the HDR1 label contained the text "TEST01" at offset 21. When copied to PROD01, if the program treated all the files as data, then the header and trailer labels were probably copied verbatim. That means that the header on PROD01 still contains the text "TEST01" and that is the reason for the label mismatch error.
Note that every dataset on this tape has this problem. You can get around this two ways: 1 - Use the same program to copy PROD01 to a new tape named TEST01. Then the HDR1 label for all the datasets will match and you can use your existing JCL. 2 - Use BLP, not NL. Each dataset on the tape consists of three files. The first contains the header labels; the second contains the dataset; and the third contains the trailer labels. Dataset 1 consists of files 1-3; dataset 2 consists of files 4-6; and dataset 17 consists of files 49-51. Change your tape DD statement to "LABEL=(50,BLP)". Since only the last 17 characters of the DSN are present in the labels, a security exposure exists for long DSNs. Therefore, some tape management systems have options to restrict the use of BLP. You may need to check with the data admin folks. > -----Original Message----- > From: IBM Mainframe Discussion List <[email protected]> On > Behalf Of venkat kulkarni > Sent: Wednesday, September 19, 2018 1:54 AM > To: [email protected] > Subject: Tape Migration > > Hello Group, > > Is there any way to bypass label written inside the tape and let system use > the name of tape we provide. like below. > > We are getting below issue, while restoring BKUP.PROH19.TP dataset from > PROD01 tape. But we encountered issue because initially BKUP.PROH19.TP > dataset was backed up into TEST01 tape and then we copied TEST01 into > PROD01 and now we trying to recover data from PROD01. > > Is there any way to solve this issue. TEST01 and PROD01 are VTL tape > volume. > > //S1 EXEC PGM=ADRDSSU,REGION=0M > //** DBACCT DATA > //SYSPRINT DD SYSOUT=* > //DASD1 DD UNIT=3390,VOL=SER=REST01,DISP=OLD > //TAPE DD UNIT=359D,DISP=(,PASS),DSN=BKUP.PROH19.TP,LABEL=(17,SL), > // VOL=SER=(PROD01) > //SYSIN DD * > RESTORE - > INDDNAME(TAPE) - > OUTDDNAME(DASD1) - > DATASET(INCLUDE(USS19.PROD.ETC)) - > RENAMEU(USS19.PROD.ETC,TRB01.USS19.PROD.ETC.PROD01) - > CATALOG - > TOL(ENQF) > /* > > O/P as below. > 14.46.02 JOB00070 ---- TUESDAY, 18 SEP 2018 ---- > 14.46.02 JOB00070 IRR010I USERID TRB01 IS ASSIGNED TO THIS JOB. > 14.46.03 JOB00070 ICH70001I TRB01 LAST ACCESS AT 14:39:45 ON > TUESDAY, > SEPTEM > 14.46.03 JOB00070 $HASP373 TRB01RS STARTED - INIT A - CLASS A - > SYS > 14.46.03 JOB00070 IEF403I TRB01RS - STARTED - TIME=14.46.03 > 14.46.03 JOB00070 *IEF233A M 0FA3,PROD01,,TRB01RS,S1 > 14.46.03 JOB00070 IEC502E R 0FA3,TEST01,SL,TRB01RS,S1 > 14.46.03 JOB00070 *IEC501A M 0FA3,PROD01,SL,,TRB01RS,S1 > 14.46.03 JOB00070 *IEC514D DCK OR LBL ERR 0FA3,PROD01,TRB01RS,S1 > 14.46.03 JOB00070 *65 IEC514D REPLY 'M'-UNLOAD OR 'A'-ABEND ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
