[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | Discussions on VAX BASIC |
| Notice: | See Topic 1779 for latest kit info |
| Moderator: | EPS::VANDENHEUVEL |
|
| Created: | Sat Jan 25 1986 |
| Last Modified: | Tue May 13 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 1798 |
| Total number of notes: | 7362 |
1788.0. "FILATTNOT with indexed files" by ATZIS3::ARCH_R (Raimund ARCH,MCS Austria *791/2259) Thu Feb 13 1997 11:36
Hello,
it may be obvious that there's an error in coding but as I don't
know much about BASIC I'm trying to get your inputs...
Using VAX BASIC 3.6 and trying to open the following file
SYSTEM
SOURCE OpenVMS
FILE
ALLOCATION 64
GLOBAL_BUFFER_COUNT 0
NAME "ERG:[ERGDAT]ARBGATAB,DAT;1"
ORGANIZATION indexed
RECORD
BLOCK_SPAN yes
CARRIAGE_CONTROL carriage_return
FORMAT fixed
SIZE 56
AREA 0
KEY 0
CHANGES no
DUPLICATES no
TYPE string
KEY 1
CHANGES yes
DUPLICATES yes
TYPE string
End_of_file_description
with
++++++++++++++++ BASIC OPEN +++++++++++++
DECLARE BYTE CONSTANT ATA_DATEI = 1 &
, ATA_KEY = 0 &
, ATA_ALTKEY = 1
MAP (ATA) STRING ATA_ARBAGR = 3 &
, ATA_ARBA = 3 &
, ATA_BESCHR = 50
OPEN 'ERG:[ERGDAT]ARBGATAB.DAT' &
AS FILE #ATA_DATEI &
, ACESS MODIFY &
, ALLOW MODIFY &
, ORGANIZATION INDEXED FIXED &
, RECORDTYPE ANY &
, PRIMARY KEY ATA_ARBAGR &
, ALTERNATE KEY ATA_ARBA &
DUPLICATES CHANGES &
, MAP ATA
++++++++++++++++ BASIC OPEN END +++++++++++++
gives
%BAS-F-FILATTNOT, File attributes not matched
Any hints welcomed,
raimund
| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 1788.1 | first try | TLE::PUDER | Those who do not know LISP are doomed to reimplement it. | Thu Feb 13 1997 14:49 | 11 |
| My first guess at a suggestion (without actually comparing all those file
attributes in detail, I'm not an RMS expert) is to remove all the "extra"
stuff (organization, recordtype, the keys) from the OPEN statement. Oh, and
it's ACCESS, not ACESS.
If the file already exists, BASIC will accept the file as it is and deal with
it. If you really want to be explicit in the BASIC code, you can put the
extra lines back a few or one at a time until you detact which is causing the
disagreement.
:Karl.
|
| 1788.2 | mismatch | ATZIS3::ARCH_R | Raimund ARCH,MCS Austria *791/2259 | Sat Feb 15 1997 10:11 | 6 |
| Hello Karl,
thank you for your response.
There was mismatch in primary Key definition .
raimund
|