I am building a KSAMXL file (in the HFS dir) -- it is named:
/DEV/PUB/BRIAN111rootsumm
Firstly, upon the build I do an FOPEN then an FWRITELABEL and the data written
to the user label is:
ROOTSUMM File Created On: 12/22/2009 At: 00:20:42.70 By: #S2 BRIAN,MGR.DEV,PUB
Then before I do an FWRITE to the file I do a LISTFILE on the file via the
COMMAND intrinsic. Works fine:
H106 BEFORE FWRITE
********************
FILE: /DEV/PUB/BRIAN111rootsumm
FILE CODE : -9658 FOPTIONS: ASCII,FIXED,NOCCTL,KSAMXL
BLK FACTOR: 71 OWNER : MGR.DEV
REC SIZE: 138(BYTES) GROUP ID: DEV
BLK SIZE: 10240(BYTES) SECURITY--READ : ANY
EXT SIZE: 0(SECT) WRITE : ANY
NUM REC: 0 APPEND : ANY
NUM SEC: 320 LOCK : ANY
NUM EXT: 3 EXECUTE : ANY
MAX REC: 575000 **SECURITY IS ON
FLAGS : 1 ACCESSOR,SHARED,1 R,1 W
NUM LABELS: 1 CREATED : TUE, DEC 22, 2009, 12:05 AM
MAX LABELS: 254 MODIFIED: TUE, DEC 22, 2009, 12:05 AM
DISC DEV #: 3 ACCESSED: TUE, DEC 22, 2009, 12:05 AM
SEC OFFSET: 65024 LABEL ADDR: $00000060.$003F6620
VOLCLASS : MPEXL_SYSTEM_VOLUME_SET:DISC
KEY KEY TYPE KEY LOCATION KEY SIZE DUP/RDUP
--- -------- ------------ -------- --------
1 BYTE 1 60 NONE
2 BYTE 61 60 NONE
NUM KSAM KEYS: 2 FIRST KSAM RECORD: 0
LANGUAGE : NATIVE-3000 REUSE RECORD : YES
PRIMARY KEY : RANDOM COMPUTE BLK SIZE : OPTMBLK
VERSION : 2 DATA BLOCK SIZE : 10240
As you can see it is an empty file with zero records in it.
The I do the FWRITE (a single FWRITE).
H106 AFTER FWRITE
********************
FILE: /DEV/PUB/BRIAN111rootsumm
FILE CODE : -9658 FOPTIONS: ASCII,FIXED,NOCCTL,KSAMXL
BLK FACTOR: 71 OWNER : MGR.DEV
REC SIZE: 138(BYTES) GROUP ID: DEV
BLK SIZE: 10240(BYTES) SECURITY--READ : ANY
EXT SIZE: 0(SECT) WRITE : ANY
NUM REC: 2 APPEND : ANY
NUM SEC: 640 LOCK : ANY
NUM EXT: 4 EXECUTE : ANY
MAX REC: 575000 **SECURITY IS ON
FLAGS : 1 ACCESSOR,SHARED,1 R,1 W
NUM LABELS: 1 CREATED : TUE, DEC 22, 2009, 12:05 AM
MAX LABELS: 254 MODIFIED: TUE, DEC 22, 2009, 12:05 AM
DISC DEV #: 3 ACCESSED: TUE, DEC 22, 2009, 12:05 AM
SEC OFFSET: 65024 LABEL ADDR: $00000060.$003F6620
VOLCLASS : MPEXL_SYSTEM_VOLUME_SET:DISC
KEY KEY TYPE KEY LOCATION KEY SIZE DUP/RDUP
--- -------- ------------ -------- --------
1 BYTE 1 60 NONE
2 BYTE 61 60 NONE
NUM KSAM KEYS: 2 FIRST KSAM RECORD: 0
LANGUAGE : NATIVE-3000 REUSE RECORD : YES
PRIMARY KEY : RANDOM COMPUTE BLK SIZE : OPTMBLK
VERSION : 2 DATA BLOCK SIZE : 10240
Huh? The numrecs = 2 ??
I went into MPEX, changed the file code to zero so I could print the file.
I did a PRINT command on the file and it returned only one record, which is
correct.
So why is the LISTFILE command showing 2 records as the EOF ?
TIA,
Brian Donaldson.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|