HP3000-L Archives

December 2009, Week 4

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:
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Tue, 22 Dec 2009 03:51:13 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (92 lines)
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 *

ATOM RSS1 RSS2