HP3000-L Archives

December 2000, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Deblock a tape?
From:
Keven Miller <[log in to unmask]>
Reply To:
Keven Miller <[log in to unmask]>
Date:
Wed, 13 Dec 2000 17:16:06 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (32 lines) 
The tape is and IBM, ebcdic tape bearing the label A2522.

The first file is rec size 15, block size 6000 (blocking factor 400)
The second file is rec size 134, block size (blocking factor 50)
The third file is rec size 217, block size 6510 (blocking factor 30)
The fourth file is rec size 301, block size 6020 (blocking factor 20)

I'll have a go...

FILE IN;DEV=TAPE;LABEL=A2522,IBM;REC=-6000,1,U,ASCII
FILE OUT=F1,NEW;SAVE;REC=-15,,F,ASCII;DISC=100000
FCOPY FROM=*IN;TO=*OUT;EBCDICIN;DEBLOCK=-15

FILE IN;DEV=TAPE;LABEL=A2522,IBM;REC=-134,50,F,ASCII
FILE OUT=F2,NEW;SAVE;REC=-134,,F,ASCII;DISC=100000
FCOPY FROM=*IN;TO=*OUT;EBCDICIN;SKIPEOF=+1

FILE IN;DEV=TAPE;LABEL=A2522,IBM;REC=-6510,1,U,ASCII
FILE OUT=F3,NEW;SAVE;REC=-217,,F,ASCII;DISC=100000
FCOPY FROM=*IN;TO=*OUT;EBCDICIN;SKIPEOF=+2;DEBLOCK=-217

FILE IN;DEV=TAPE;LABEL=A2522,IBM;REC=-6020,1,U,ASCII
FILE OUT=F4,NEW;SAVE;REC=-301,,F,ASCII;DISC=100000
FCOPY FROM=*IN;TO=*OUT;EBCDICIN;SKIPEOF=+3;DEBLOCK=-301

Choose DISC=xxxxxx appropriately if you can.

> _____________________________________________________________
> Keven Miller   mailto:[log in to unmask]   http://www.exegesys.com
>
>

ATOM RSS1 RSS2