[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference clt::vax_basic

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 14: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.RTitleUserPersonal
Name
DateLines
1788.1first tryTLE::PUDERThose who do not know LISP are doomed to reimplement it.Thu Feb 13 1997 17:4911
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.2mismatchATZIS3::ARCH_RRaimund ARCH,MCS Austria *791/2259Sat Feb 15 1997 13:116
    Hello Karl,
    thank you for your response.
    
    There was mismatch in primary Key definition .
    
    					raimund