*COMDECK VECTORS
*CALL DBPDEFS                                                            VECTORS
#----------------------------------------------------------------------#
#     C O M M O N   D E C K   V E C T O R S                            #
#                                                                      #
#     THIS COMDECK CONTAINS THE VECTOR DEFINING THE ASSOCIATIVE        #
#     VALUES FOR THE VALUES OF BASIC CODE (BASCODE).                   #
#                                                                      #
#     CARE SHOULD BE TAKEN TO MAKE SURE THAT ALL STATUS LISTS USED     #
#     BY THE PRESETS ARE MADE AVAILABLE TO THE CODE.  PREFERABLY       #
#     THE STATUS LISTS SHOULD BE PLACED IN COMMON DECKS THEMSELVES.    #
  
  
      COMMON VECTORS; 
      BEGIN  #VECTORS#
  
      ARRAY BASCODEVECT [0:15];        #ASSOCIATIVE VECTOR FOR BASCODES#
         BEGIN  #BASCODEVECT#          #VALUES ARE PULLED OUT BY INDEX-#
                                       #ING THE ARRAY WITH THE BASCODE #
                                       #THE SIZE OF THE ARRAY WAS FIXED#
                                       #SINCE BASCODE IS 4-BITS LONG   #
  
         ITEM DIRCODEVAL S:DCODE(0,0,6) = [ 
                                       #DIRECTIVE CODE VALUES FOR DBPS #
               S"OTHER",               #ENDCODE                        #
               S"DISPLAY",             #DISPLAY                        #
               S"DELETE",              #DELETE                         #
               S"DELETE$USING",        #DELETE USING                   #
               S"INSERT",              #INSERT                         #
               S"INSERT$USING",        #INSERT USING                   #
               S"UPDATE",              #UPDATE                         #
               S"UPDATE$USING",        #UPDATE USING                   #
               S"END",                 #STOP                           #
               S"UPDATE",              #MOVE                           #
             2(S"OTHER"),              #EVALUATE, IF                   #
               S"EXTRACT",             #EXTRACT                        #
             3(S"OTHER")];             #UNUSED VALUES AND CONTINUATION #
         END  #BASCODEVECT# 
  
      END  #VECTORS#
  
#     E N D   O F   V E C T O R S                                      #
#----------------------------------------------------------------------#
