I'm sure that very few HP3000 programmers areusing these intrinsics but I'm
going to throw it
out there hoping someone has a solution for me.
I am using AIFFILEGGET to get all the items for a file, any file. Items
5017 (EOF) and 5018 (FLIMIT)
do not return logical record counts, they return the number of bytes in
the file (EOF) and the
number of possible bytes a file can have (FLIMIT).
The documentation states that the calc for the EOF is:
EOF in logical_recs := (EOF bytes from AIFFILEGGET -
(256*max_labels_allowed_in_file)) / rec_size
This calc works great for every file type EXCEPT for KSAMXL files. It even
works fine on CM KSAM files.
I am hoping someone out there can assist me in discovering what the calc
will be to correctly
determine how to discover what the calc is to come up with a correct EOF
and FLIMIT in terms of
the number of logical records in the file.
TIA,
Brian Donaldson.
ENTER FILE NAME:
MPE-FILE-NAME=>BRIAN111 PUB DEV <
CREATOR NAME=>MGR <
FILE CODE =>-000009999<
LOCKWORD =>NEWPASS <
REC SIZE =>+000000844<
EOF =>003178148<
FLIMIT =>024151364<
LABELS MAX =>+000000254<
LABELS COUNT =>+000000000<
BLOCK SIZE =>000010240<
BLOCK FACTOR =>+000000012<
VOL RESTRICT =>DISC 1<
FILE TYPE =>000000003<
RECORD TYPE =>000000000<
FILE OWNER =>MGR.DEV <
ACD REQUIRED =>+004474198<
FILE GROUP => <
#1REAL FLIMIT=>+000000000<
#2REAL FLIMIT=>+000000000000028538<
#3REAL-EOF =>+000003688<
#3REAL-FLIMIT=>+000000000<
A104: FILE NAME=>BRIAN111.PUB.DEV >+000000422>+000025000<
AFTER get_ffileinfo_data=>+0000>+0000<
END OF PROGRAM
Brians World:
Brians World:LISTFILE BRIAN111,-5
********************
FILE: BRIAN111.PUB.DEV
FILE CODE : -9999 FOPTIONS: ASCII,FIXED,NOCCTL,KSAMXL
BLK FACTOR: 12 CREATOR : MGR.DEV
REC SIZE: 844(BYTES) LOCKWORD: NEWPASS
BLK SIZE: 10240(BYTES) SECURITY--READ : ANY
EXT SIZE: 0(SECT) WRITE : ANY
NUM REC: 422 APPEND : ANY
NUM SEC: 3072 LOCK : ANY
NUM EXT: 6 EXECUTE : ANY
MAX REC: 25000 **SECURITY IS ON
FLAGS : NO ACCESSORS
NUM LABELS: 0 CREATED : SAT, JAN 23, 2010, 7:25 PM
MAX LABELS: 254 MODIFIED: THU, FEB 11, 2010, 12:47 AM
DISC DEV #: 1 ACCESSED: WED, MAR 3, 2010, 11:56 AM
SEC OFFSET: 65024 LABEL ADDR: $00000013.$00417F20
VOLCLASS : MPEXL_SYSTEM_VOLUME_SET:DISC
KEY KEY TYPE KEY LOCATION KEY SIZE DUP/RDUP
--- -------- ------------ -------- --------
1 BYTE 5 8 DUP
2 BYTE 16 12 RDUP
3 BYTE 36 4 DUP
NUM KSAM KEYS: 3 FIRST KSAM RECORD: 1
LANGUAGE : NATIVE-3000 REUSE RECORD : NO
PRIMARY KEY : RANDOM COMPUTE BLK SIZE : OPTMBLK
VERSION : 2 DATA BLOCK SIZE : 10240
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|