*COMDECK BASIC
*     *****     BEGINNING OF COMMON DECK BASIC     *****
*                COMMON BLOCK TO COMMUNICATE BETWEEN THE SYNTAX 
*                ANALYSIS MODULES IN OVERLAYS 1-X AND THE EXECUTION 
*                MODULES FOR USE, INSERT, UPDATE, MOVE, IF, DELETE
          USE    /CBASIC/ 
CBASIC    BSS    0
INDEX     BSS    1           JUMP INDEX TO THE PROC TO EXECUTE
*                            IN THE CURRENT PRIMARY OVERLAY.
*                            OVERLAY 5-0
*                                  1  USE 
*                                  2  QULOAD
*                                  3  EXECUTE 
DIRCODE   BSS    1           DIRECTIVE CODE USED BY OWNCODE ROUTINES
                             AND IN LOGFILE RECORDS 
 REFERFI  BSS    1                 FLAG FOR AREA FILE REFERENCE 
 BASTLOC  BSS    1                 BASIC TABLE LOCATION 
 BASCPTR  BSS    1                 PTR TO CURRENT BASICTABLE            007040
 BASTIND  BSS    1                 BASIC TABLE INDEX
 SAME     BSS    3                 IF,DISP,USING -SAME- ARRAYS          007060
 SAMINIF  BSS    1           TRUE IF -SAME- INCLUDED IN -IF- CONDITION
 SKEYORD  BSS    1            SAME KEY ORDINAL POS IN USING 
 IFFLAG   BSS    1                                                      007080
 USGFLAG  BSS    1                                                      007090
 WRTRECD  BSS    1                                                      007100
 FILEPAS  BSS    1                                                      007110
 KEYLIT   BSS    1                 FLAG FOR KEY IN INS/UPD/DEL
 AREAORG  BSS    1                 FILE ORG FOR AREA FILE 
 VERAREA  BSS    1           ADDRESS OF VERIFY AREA TABLE 
VERIFBUF  BSS    1                 ADDRESS OF VERIFY BUFFER 
RECLNGTH  BSS    1           CHARACTER LENGTH OF CURRENT AREA RECORD
AREALOC   BSS    1           ADDRESS OF FIT FOR AREA
 SCANALL  BSS       1                                                   002930
 WCURENT  BSS       1                                                   002940
 IFKLOC   BSS       1                                                   002950
CCOMLOC   BSS    1           ADDRESS OF COMMON BLOCK /CCOMMON/          000120
*                   THE FOLLOWING ARE BOOLEAN ITEMS WITH THE VALUE
*                   0 WHEN THE CONDITION IS FALSE,
*                   NOT 0 WHEN THE CONDITION IS TRUE. 
MODPERM   BSS    1           MODIFY PERMISSION HAS BEEN GRANTED OR NOT
LOGKEYSZ  BSS    1           KEY LENGTH IN CHARACTERS ROUNDED UP TO 
                             NEAREST MULTIPLE OF 10.
 DATALOC  BSS    1
 TOREC   BSS    1 
 IFFRMFG  BSS       1 
ACCESSES  BSS    1                 NO. RECORDS OR RECORD SETS ACCESSED
HITS      BSS    1                 NO. RECORDS THAT MET QUERY OR UPDATE 
*                                  CRITERIA 
IOS       BSS    1                 NO. GETS OR GETNS FOR CURRENT DIR. 
OWNREJ    BSS    1                 NO. RECORDS REJECTED BY OWNCODE
OWNFORCD  BSS    1                 NO. RECORDS FORCED BY OWNCODE
DESPASS   BSS    1           DESCRIBE-FILE PASS 
HASNOKE   BSS    1
BITINDE   BSS   1 
RTBLLOC   BSS   1 
 KEYLIST  BSS   1 
 KEYFILE  BSS   1 
 AKEY     BSS   1 
 PKEY     BSS   1 
 DISUPD   BSS   1 
 ONEAKEY  BSS    1
 USIPTR   BSS    1           PTR TO *USING* ELEMENTARY ENTRY
CBASIC.   BSS    0
          USE    0
*     *****     END OF COMMON DECK BASIC     *****
