Here's the solution for posterity, the Smithsonian etc.....
<<
Just write as you would to any file with no other user labels. You will not
overwrite the hidden one, and your numbers will be exactly as if that label
didn't exist. That label is truly transparent, except for the fact that listf,5 told
you about its existence.
Steve
Steve:
Thanks for the info. However, if I have to write labels to this KSAM file how do
I know
I won't overwrite the label already put there by KSAMUTIL ? Which user label
would
I do the fwritelabel to (zero, 1,2,3, ?)
Thanks,
Brian.
On Mon, 29 Oct 2007 17:59:13 -0400, Brian Donaldson
<[log in to unmask]> wrote:
>I built this CM KSAM file named "KSAMFILE" via KSAMUTIL
>
>BUILD KSAMFILE;REC=-
>256,,F,ASCII;DISC=5001;KEY=B,1,10,,RDUP;KEY=B,12,14,,RDUP;KEY=B,27,13,,
R
>DUP;KEY=B,40,11,,RDUP;KEY=B,51,12,,RDUP;KEY=B,65,11,,RDUP;KEY=B,77,13,
,
>RDUP;KEY=B,91,14,,RDUP;KEY=B,105,18,,RDUP;KEY=B,125,11,,RDUP;KEY=B,13
9
>,14,,RDUP;KEY=B,155,11,,RDUP;KEY=B,167,21,,RDUP;KEY,B,191,18,,RDUP;KEY
=
>B,212,12,,RDUP;KEY=B,232,21,,RDUP;FIRSTREC=1;LABELS=0;KEYFILE=KSAMFI
L
>K
>
>
>The file was built ok, no problem..... so...
>
>At the colon prompt I did a listf KSAM@,-5 to look at all the attribs of the file
>and its keyfile
>
> LISTF KSAM@,-5
>
>FILE: KSAMFILE.PUB.DEV FILE CODE : 0 FOPTIONS:
>ASCII,FIXED,NOCCTL,KSAM BLK FACTOR: 1 CREATOR : MGR.DEV REC SIZE:
256
>(BYTES) LOCKWORD: BLK SIZE: 256(BYTES) SECURITY--READ : ANY EXT
>SIZE: 0(SECT) WRITE : ANY NUM REC: 0 APPEND : ANY NUM SEC: 640
LOCK :
>ANY NUM EXT: 1 EXECUTE : ANY MAX REC: 5001 **SECURITY IS ON FLAGS :
>NO ACCESSORS NUM LABELS: 1 CREATED : MON, OCT 29, 2007, 2:13 PM
MAX
>LABELS: 1 MODIFIED: MON, OCT 29, 2007, 2:13 PM DISC DEV #: 4
ACCESSED:
>MON, OCT 29, 2007, 2:13 PM SEC OFFSET: 256 LABEL ADDR:
>$00000061.$0008F120 VOLCLASS : MPEXL_SYSTEM_VOLUME_SET:DISC
>
>FILE: KSAMFILK.PUB.DEV FILE CODE : 1080 FOPTIONS:
>BINARY,FIXED,NOCCTL,KSAM BLK FACTOR: 1 CREATOR : MGR.DEV REC SIZE:
>256(BYTES) LOCKWORD: BLK SIZE: 256(BYTES) SECURITY--READ : ANY EXT
>SIZE: 1817(SECT) WRITE : ANY NUM REC: 14530 APPEND : ANY NUM SEC:
>14544 LOCK : ANY NUM EXT: 1 EXECUTE : ANY MAX REC: 14530 **SECURITY
>IS ON MAX EXT: 8 FLAGS : NO ACCESSORS NUM LABELS: 0 CREATED : MON,
>OCT 29, 2007, 2:13 PM MAX LABELS: 0 MODIFIED: MON, OCT 29, 2007, 2:13
>PM DISC DEV #: 4 ACCESSED: MON, OCT 29, 2007, 2:13 PM SEC OFFSET: 0
>LABEL ADDR: $00000061.$00092420 VOLCLASS :
>MPEXL_SYSTEM_VOLUME_SET:DISC
>
>
>It looked ok until I saw that the NUM LABELS and MAX LABELS both = 1
(huh?)
>I built the file with labels=0, so can anyone tell me why KSAMUTIL made
these
>label counts=1 ?
>
>I wrote a quickie program to read this label but the FREADLABEL intrinsic
>bombs with C-C > 0 (A label was referenced beyond the label written on the
>file) -- I started reading at label zero and read all the way thru to label 254.
>It's telling me there is no label to be read?
>
>Any help would be appreciated.
>
>TIA, Brian Donaldson.
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|