use disp=old,label=(50,blp) 3 parts to a std lbl so 16 files is 48 actual skips and 49 is the 17 std lbl so 50 should get you right into the data of the 17th file.
John C On Wed, Sep 19, 2018 at 4:53 AM, venkat kulkarni <[email protected] > wrote: > 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 > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
