As always, ALL suggestions are GREATLY appreciated.
I made a change to a Compatability Mode program (PROG) that accesses a
couple of KSAMXL files and it compiles clean. However, a call to FREADBYKEY
is failing with 'CCL' and a call to FCHECK then FERRMSG results in the Error
Description of "BOUNDS VIOLATION (FSERR 73)". The file has 1,024 byte
records, but the information I need is in the first 300 bytes, so I changed the
record length to 300 in the Intrinsic calls and get the same error. Could this
be a Stack Space issue ?
The File Open is :
FNUMV = FOPEN(FV, %4005, %2300, 300);
The ReadByKey is :
L = FREADBYKEY(FNUMV, BUFFER, -300, MYKEY, 1);
The KsamXL File attributes are :
XL:LISTF VAPCON.TAXFILES,5
********************
FILE: VAPCON.TAXFILES
FILE CODE : 0 FOPTIONS: ASCII,FIXED,NOCCTL,KSAMXL
BLK FACTOR: 3 CREATOR : **
REC SIZE: 1024(BYTES) LOCKWORD: **
BLK SIZE: 4096(BYTES) SECURITY--READ : ANY
EXT SIZE: 0(SECT) WRITE : ANY
NUM REC: 13601 APPEND : ANY
NUM SEC: 76304 LOCK : ANY
NUM EXT: 37 EXECUTE : ANY
MAX REC: 20000 **SECURITY IS ON
FLAGS : NO ACCESSORS
NUM LABELS: 0 CREATED : TUE, JAN 6, 2009, 11:36 AM
MAX LABELS: 0 MODIFIED: TUE, JAN 6, 2009, 11:39 AM
DISC DEV #: 41 ACCESSED: WED, JAN 7, 2009, 2:06 PM
SEC OFFSET: 0 LABEL ADDR: **
VOLCLASS : PROD:DISC
KEY KEY TYPE KEY LOCATION KEY SIZE DUP/RDUP
--- -------- ------------ -------- --------
1 BYTE 1 11 NONE
NUM KSAM KEYS: 1 FIRST KSAM RECORD: 0
LANGUAGE : NATIVE-3000 REUSE RECORD : NO
PRIMARY KEY : RANDOM COMPUTE BLK SIZE : DEFBLK
VERSION : 2 DATA BLOCK SIZE : 4096
XL:
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|