REVMEDIA FKB Articles - AREV, OI, REV G, jREV, JCDC, LIVEWATER,ADVANCED REVELATION, OPENINSIGHT, REVELATION G

RevMedia FKB

Document	V2I7A7
Title	File Variables
Keywords	FILE VARIABLE STRUCTURE MFS BFS RTP57 REVMEDIA VOLUME
Text	Unlike some programming environments AREV shields the developer FROM system level I/O When files are read FROM and written to the physical DOS files are opened accessed and closed This explains why AREV can have an unlimited amount of files "open" at one time To facilitate this AREV stores the information it needs to access an AREV file quickly in the file variable In this one place the system brings together all the information that is required to gain rapid access to the DOS data file and if needs be the ASSOCIATED index Before considering file variables it is necessary to point out that this article will only be considering linear hash files (RTP57) as each BFS has its own way of implementing file VARIABLES To understand the structure of a file variable it is first necessary to consider what information AREV needs to actually access a file As you will be aware ALL file i/o is routed via a BFS the program that actually accepts the filing system opcodes and implements them This BFS needs to know what file it is working on in a native format; the rest of the information is implicit to the BFS Thus in its simplest form a file variable needs only to consist of the name of the BFS followed by the name of the DOS file (including path) to access Were we to open a non indexed file it would be seen that this is exactly what the file variable consists of An EVAL STATEMENT such as EVAL OPEN "VOC" TO VF THEN CALL MSG(VF "" "" "") would produce a display similar to this ��Ŀ � RTP57 � � 000012000008SPREZZ\REV52008 LK � � Press any key to continue � �� The file variable consists of two MULTIVALUES the first is the BFS and the second all information relating to the DOS file The first character of the 2nd multivalue is an offset into the value where the DOS file name is to be found The characters between this first byte and the offset character contain the Modulo of the file and additional information Thus in the above example the first character is a CHAR(13) and at an offset of 13 characters FROM the offset byte the DOS filename begins Thus to extract a DOS filename FROM a non indexed file variable one could just OPEN "VOC" TO VF THEN FILE_INFO = VF<0 2> OFFSET = FILE_INFO[1 1] ; FILE_INFO[1 1] = "" DOS_NAME = FILE_INFO[SEQ(OFFSET) 999] END The situation becomes more complex in the case of an indexed file variable In this case to ensure maximum efficiency when writing to the file it is desirable to have the index file information to hand as well as the data file information Under these circumstances the system adds additional information into the file variable as follows (where + represents sub value marks and "~" represents text marks) ��Ŀ � SI MFS+RTP57 � � USERS � � RTP57~0000180000B1SPREZZ\REV52041 LK � � 0000170000E3SPREZZ\REV52000 LK � � Press any key to continue � �� Note that in this instance the variable now has a structure as follows < 1 1 > Sub value delimited list of MFSs/BFSs for Data File < 1 2 > Filename < 1 3 > BFS of Index File : @TM : Dos File Info of Index File < 1 4 > Dos File Info of Data File Thus if it is necessary to disable indexing on the fly (for EXAMPLE when importing a DOS file into an indexed AREV file) the file could be opened to a file variable and the file variable stripped down to its BASIC "non indexed" form To do this it would be necessary to take the first multivalue of the file variable and as the BFS is the last subvalue of the first multivalue remove all other subvalues Then as the file information is in the last multivalue of the variable it would be necessary to remove values two and THREE leaving the last value Finally to construct a new file variable the first bit and the second bit would need to be concatenated together WITH a value MARK This could be achieved by the following section of CODE (using extended sub STRING manipulation features (see R/BASIC COMMAND Reference N4 3 et seq)) OPEN "PRODUCTS" TO FILE_VAR THEN * * Remove everything except RTP57 * NEW_VAR = FILE_VAR<0 1>[ 1 "B" : @SVM] * * Now remove file name indexing file file var and just leave file info * NEW_VAR<0 1> = FILE_VAR[ 1 "B" : @VM] FILE_VAR = NEW_VAR END A more generic version of the routine given above to obtain a DOS filename for a REV file could then be OPEN "VOC" TO VF THEN FILE_INFO = VF[ 1 "B" : @VM] OFFSET = FILE_INFO[1 1] ; FILE_INFO[1 1] = "" DOS_NAME = FILE_INFO[SEQ(OFFSET) 999] END Volume File Variables An incredibly useful APPLICATION of this theoretical knowledge can be gained if one considers that the REVMEDIA file is itself a Linear Hash file (hence the LK and OV extensions) This being the case given the file variable it would be possible to read and WRITE the REVMEDIA file and by so doing dynamically add/remove MFSs FROM a file regardless of the CURRENT ACCOUNT To do this normally requires that the USER be logged into SYSPROG but this is not always convenient As it is known that the REVMEDIA file is not indexed the simpler form of file variable (BFS : @VM : DOS_FILE_INFO) is required For a Linear Hash file it is known that the BFS is RTP57 the only additional information required is the Dos File Information This can be extracted FROM the VOLUMES file When a VOLUME is attached a record is constructed in the VOLUMES file similar to this (where + is a multi value mark) ��Ŀ � 14:52:30 02 APR 1989 � � SPREZZ � � TEMPLATES+POPUPS+HELP+MERGES+LABELS+DICT MARKETING � � RTP57 � � 000010000002SPREZZ\REVMEDIA LK � � Press any key to continue � �� Note that the fourth FIELD contains the BFS and that the fifth field contains the Dos File Information Thus it is possible to construct a volume file variable by simply taking the fourth and fifth fields of the volume record and concatenating them WITH a value mark EG OPEN "VOLUMES" TO VF THEN READ VOL_REC FROM VF "SPREZZ" THEN * CREATE file var FILE_VAR = VOL_REC<4> : @VM : VOL_REC<5> SELECT FILE_VAR EOF = 0 LOOP READNEXT ID ELSE EOF = 1 UNTIL EOF DO READ REC FROM FILE_VAR ID THEN * Display results CALL MSG(ID : "\|\|" : REC "" "" "") END REPEAT END END It can be seen that this can be used to permit manipulation of REVMEDIA entries As previously mentioned the above techniques can only be reliably used with RTP57 In the NEXT issue the use of DIRECT CALLS to the BFS to establish the volume file variable will be introduced (Volume 2 Issue 7 PAGE 9)

[revmedia/copyrigh.htm]

Page last modified: 08/02/03