*COMDECK RSNQTDCLS
#**********************************************************************#
  
# BASED ARRAY FOR RELATION QUALIFICATION TABLE                         #
  
      BASED ARRAY RSNQTAB;
        BEGIN 
        ITEM RSNQHEAD  U(0,0,60);       # HEADER WORD                  #
        ITEM RSNQMXRK  U(0,12,12);      # MAXIMUM QUALIFIED RANK       #
        ITEM RSNQTWRD  U(0,0,60);       # ENTIRE STACK ENTRY WORD      #
        ITEM RSNQTYPE  U(0,0,3);        # STACK ENTRY TYPE             #
        ITEM RSNQOPOR  U(0,3,18);       # OPERATION CODE/ORDINAL       #
         ITEM RSNQOPER U(0,3,6);        # OPERATOR CODE                #
         ITEM RSNQORDN U(0,9,12);       # ITEM/RECORD ORDINAL          #
        ITEM RSNQDNAM  U(0,3,18);       # DATA NAME BCP/BUFFER POINTER #
         ITEM RSNQBCP  U(0,3,6);        # BCP OF DATA NAME VALUE       #
         ITEM RSNQDNBP U(0,9,12);       # OFFSET TO DATA NAME BUFFER   #
        ITEM RSNQLENG  U(0,21,9);       # STACK LENGTH                 #
        ITEM RSNQRANK  U(0,30,12);      # RANK NUMBER (ROOT=1)         #
        ITEM RSNQATPT  U(0,45,15);      # ATTRIBUTE OFFSET POINTER     #
        ITEM RSNQDNAD  U(0,42,18);      # ADDRESS OF DATA NAME         #
        END 
