Subject: RE: 4113D NO HDR1 LABEL FOUND
From: Dick Oden (roden@davisvision.com)
Date: Wed Jul 23 2008 - 10:49:30 EDT
Cant your operator just enter "ignore" to the 4113d message ?
Dick Oden
Davis Vision
________________________________
From: owner-vse-l@Lehigh.EDU [mailto:owner-vse-l@Lehigh.EDU] On Behalf
Of Loeffen, Harry
Sent: Wednesday, July 23, 2008 10:38 AM
To: VSE Discussion List
Subject: 4113D NO HDR1 LABEL FOUND
Hello Listers,
Can anyone tell me what we are doing wrong?
We backup our VSAM catalogs with the IDCAMS backup utility to virtual
tapes. Later on we copy these virtual tapes with the Ditto utility to a
real tape. We want to put all our catalogs on one 3590 cartridge.
All seems to go all right but if we want to do a restore from the second
or following catalog this fails.
Following jcl is used to backup to virtual tape:
// JOB MOBCKH1 VSAM CATALOG UCATH1
ON $ABEND GOTO RELTAP
ON $CANCEL GOTO RELTAP
* STEP MOBCKH1 BACKUP ALL VSAM FILES FROM UCATH1
DVCDN X'281'
VTAPE START,UNIT=281,LOC=VSAM,FILE='MOBCKH1',WRITE
DVCUP X'281'
// EXEC PROC=UCATH1
// ASSGN SYS005,281
// MTC REW,SYS005
// TLBL TAPE,'UCATH1'
// EXEC IDCAMS,SIZE=AUTO
BACKUP (*) SLBL(TAPE) -
EXCLUDE (DEFAULT.MODEL.*)
IF LASTCC GT 8 THEN CANCEL JOB
/*
/. RELTAP
DVCDN X'281'
VTAPE STOP,UNIT=281
DVCUP X'281'
/&
Following jcl is used to copy virtual tape to real tape:
// JOB COPYBCK COPY ALL VSAM CATALOGS
// ASSGN SYS012,TPA
// PAUSE MOUNT CATALOG BACKUP TAPE OUTPUT ON SYS012
// MTC REW,SYS012
* STEP COPYBCK1 COPY ALL VSAM FILES FROM UCATH1
ON $ABEND GOTO RELTAP1
ON $CANCEL GOTO RELTAP1
DVCDN X'281'
VTAPE START,UNIT=281,LOC=VSAM,FILE='MOBCKH1',READ
DVCUP X'281'
// ASSGN SYS005,281
// MTC REW,SYS005
// UPSI 1
// EXEC DITTO
$$DITTO SET PAGESKIP=YES
$$DITTO TT INPUT=SYS005,OUTPUT=SYS012,NFILES=EOV
/*
/. RELTAP1
DVCDN X'281'
VTAPE STOP,UNIT=281
DVCUP X'281'
* STEP COPYBCK2 COPY ALL VSAM FILES FROM UCATH2
ON $ABEND GOTO RELTAP2
ON $CANCEL GOTO RELTAP2
DVCDN X'282'
VTAPE START,UNIT=282,LOC=VSAM,FILE='MOBCKH2',READ
DVCUP X'282'
// ASSGN SYS005,282
// MTC REW,SYS005
// UPSI 1
// EXEC DITTO
$$DITTO SET PAGESKIP=YES
$$DITTO TT INPUT=SYS005,OUTPUT=SYS012,NFILES=EOV
/*
/. RELTAP2
DVCDN X'282'
VTAPE STOP,UNIT=282
DVCUP X'282'
And so on for all other catalogs.
Following jcl is used to restore:
// ASSGN SYS012,TPA
// PAUSE MOUNT CATALOG BACKUP TAPE INPUT ON SYS012
// ASSGN SYS004,SYS012
// MTC REW,SYS004
// TLBL TAPE,'UCATH1'
// EXEC IDCAMS,SIZE=AUTO
RESTORE OBJECTS(DUMMYX) -
CATALOG(UCATT1) -
VOLUMES(TSTWK1) -
NOREWIND -
STDLABEL(TAPE)
/*
// TLBL TAPE,'UCATH2'
// EXEC IDCAMS,SIZE=AUTO
RESTORE OBJECTS(DUMMYX) -
CATALOG(UCATT2) -
VOLUMES(TSTWK2) -
NOREWIND -
STDLABEL(TAPE)
/*
// TLBL TAPE,'UCATH3'
// EXEC IDCAMS,SIZE=AUTO
RESTORE OBJECTS(CNTREG) -
CATALOG(UCATT3) -
VOLUMES(TSTWK3) -
NOREWIND -
STDLABEL(TAPE)
/*
The 'DUMMYX' objects are non existing files.
The restore job already fails at the second catalog with 4113D message.
If I do a ditto print after the job canceled, I see that the tape was
positioned at the right (second) VOL1 and HDR1 label.
Harry Loeffen
Nacco MHG
------------------------------------------------------------------------
The information contained in this communication is intended
only for the use of the recipient(s) named above. It may
contain information that is privileged or confidential, and
may be protected by State and/or Federal Regulations. If
the reader of this message is not the intended recipient,
you are hereby notified that any dissemination,
distribution, or copying of this communication, or any of
its contents, is strictly prohibited. If you have received
this communication in error, please return it to the sender
immediately and delete the original message and any copy
of it from your computer system. If you have any questions
concerning this message, please contact the sender.
------------------------------------------------------------------------
This archive was generated by hypermail 2b25 : Fri Aug 29 2008 - 00:50:10 EDT