Try this:

:file mag;dev=9;label=nnnnnn,ibm;rec=-6150,1,u,ascii   where nnnnnn is
volserno.
:build discfile;rec=-205,,f,ascii;disc=1000000
:fcopy from=*mag;to=discfile;deblock=-205;ebcdicin

This should work.


At 03:31 PM 97/03/06 -0800, you wrote:
>     I have a group of Mag tapes that were created on an IBM.  All but two
>of them translated nicely into HP flat files.  The two that do not translate
>do the same thing so I will take specifically about one in hopes that one of
>you great people will see what I am doing wrong.  The Mag Tape is labelled
>with 6150 byte blocks.  Each block contains thirty 205 byte records.  I
>build a like file on my HP3000, issue a file equation for the Mag drive
>(FILE MAG;DEV=9;LABEL="label",IBM;REC=etc.), and then I issue my FCOPY
>(FCOPY FROM=*MAG;TO="built file";EBCDICIN).  That all seems to work just
>fine and I do end up with the correct number of records.  The problem is
>that I loose a byte per record.  That is to say, my first record is fine,
>the second record is shifted by one byte (loosing the first byte), the third
>is shifted by another byte, etc.  I have done an FCOPY of a large chunk of
>data from the front of the tape using the SUBSET and I can see the missing
>byte in the chunk, but not in my data file.  Does anybody see what I am
>doing wrong?  This procedure worked fine for 6 out of 8 tapes, perhaps these
>two tapes require an additional parameter.
>
>Thanx,
>    Jon Backus
>    HP Systems Manager
>    AB&C Group
>
>
---------------------------------------------------------------------------
Gilles Schipper
GSA Inc.
HP3000 & HP9000 System Administration Specialists
300 John Street, Box 87651   Thornhill, ON Canada L3T 7R4
Voice: 905.889.3000     Fax: 905.889.3001
Internet:  [log in to unmask]  Compuserve: 71203,474
---------------------------------------------------------------------------