[ and we're back ! (after the 5/19 - now downtime]
Hmmm,
When you MOUNT/OVER=ID a backup tape as an ANSI tape, then you can START a COPY of the saveset with for example: $ COPY/LOG mt:*.* []
Now just interupt the copy and use BACK/LIST on the initial fragment of the saveset.
I tested that by using an LM device
(
http://www.digiater.nl/lddriver.html ).
That is of course to quick to abort the copy, so I used a SET FILE/ATTR=EBK=100 to fake an abort.
BACKUP listed the header, and some files then complained...
%BACKUP-E-READERR, error reading DKA:[TEMP]EXAMPLE.;1
-BACKUP-E-SHORTBLOCK, save-set block too short
%BACKUP-E-SSCHANGE, unexpected end of save set on DKA:[TEMP]EXAMPLE.;1
%BACKUP-I-OPERSPEC
%BACKUP-I-OPERASSIST, operator assistance has been requested
Still, the main goal was accomplished.
If would be 'nicer' if you had a tool to copy the first few blocks from the tape.
Since you probably do not have that, you can use DUMP to read some blocks (skipping over headers). I hacked up a DCL script to parse dump output to create a file from the dump.
Of course you should set the right file attributes, but BACK/REPAIR gets you over that hump.
Example run and DCL script below.
Hein
---------------------------------
$ moun/for lma1:
%MOUNT-I-MOUNTED, EXAMPL mounted on _BUNDY$LMA1:
$ set mag lma1/rewi
$ dump/block=(start=4,count=1) lma1: /out=example.dmp
$ @DUMP_TO_FILE.COM example.dmp example.tmp
%FDL-I-CREATED, DKA:[TEMP]EXAMPLE.TMP;1 created
%RMS-E-EOF, end of file detected
$ back/list/repai example.tmp/save
Listing of save set(s)
%BACKUP-I-REPAIRED, saveset attributes changed to RFM=FIX, MRS=8192
Save set: EXAMPLE.
Written by: SYSTEM
UIC: [000001,000004]
Date: 20-MAY-2010 00:10:55.88
Command: BACK/REWI/INIT/IGNO=LABEL SYS$EXAMPLES: LMA1:EXAMPLE
Operating system: hp OpenVMS I64 version V8.3
BACKUP version: V8.3-1H1
CPU ID register: 80000000
Node name: _BUNDY::
Written on: _BUNDY$LMA1:
Block size: 8192
Group size: 10
Buffer count: 1745
[SYSHLP.EXAMPLES]FMS.DIR;1 1 15-MAR-2009 17:26
Total of 1 file, 1 block
End of save set
----------------------------------
$ type DUMP_TO_FILE.COM
$ IF p1.EQS."" THEN EXIT 16
$ IF p2.EQS."" THEN p2 = "tmp.tmp"
$ CLOSE/NOLOG dump
$ CLOSE/NOLOG output
$ OPEN/ERROR=open_error dump 'p1
$ ! 2064656E 77617053 20212020 6B6F6F62 65746F6E 5F657461 64707520 21240048 H.$! update_notebook ! Spawned 000000
$ CREATE / FDL = "record; format fixed; size 512" /LOG 'p2
$ OPEN/APPEND/ERROR=open_error output 'p2
$ space = " "
$ out = F$FAO("!512AS", space)
$ bytes = 0
$
$record_loop:
$ READ/END=done dump record
$ longs = 8
$ IF 8.NE.F$LEN(F$ELEM(longs,space,record)) THEN GOTO record_loop
$
$longs_loop:
$ out[bytes*8,32] = %x'F$ELE(longs,space,record)
$ bytes = bytes + 4
$ longs = longs - 1
$ IF longs.GT.0 THEN GOTO longs_loop
$ IF bytes.LT.512 THEN GOTO record_loop
$ WRITE/SYMBOL output out
$ bytes = 0
$ GOTO record_loop
$
$done:
$ IF bytes.EQ.0 THEN GOTO open_error
$ out[bytes*8,32] = 0
$ bytes = bytes + 4
$ IF bytes.LT.512 THEN GOTO done
$ WRITE/SYMBOL output out
$
$open_error:
$ s = '$STATUS .AND. %x0FFFFFF
$ CLOSE/NOLOG dump
$ CLOSE/NOLOG output
$ EXIT 's
