*COMDECK RSNSTDCLS
#**********************************************************************#
  
# BASED ARRAY FOR RELATION SEARCH TABLE                                #
  
      BASED ARRAY RSNSTAB;
        BEGIN 
        ITEM RSNSTWRD  U(0,0,60);       # ENTIRE FIRST WORD            #
        ITEM RSNJNPTR  U(0,0,15);       # JOIN BUFFER OFFSET PTR       #
        ITEM RSNSSTRA  U(0,15,3);       # SEARCH STRATEGY              #
        ITEM RSNMISCF  U(0,18,6);       # MISCELLANEOUS FLAG INFORMTN#
          ITEM RSNNOMAP  B(0,18,1);     # TRUE IFF NO MAPPING ON RANK#
          ITEM RSNFSTRK  B(0,19,1);     # TRUE IFF 1ST RANK RETRIEVED#
          ITEM RSNRETR   B(0,20,1);     # TRUE IFF QUAL CHILD RETURN #
          ITEM RSNBREAK  B(0,21,1);     # TRUE IFF RANK CONTROL BREAK#
          ITEM RSNCOLAT  U(0,22,2);     # COLLATING SEQUENCE OPTIONS #
                                        # BITS 24-26 RESERVE TO LATER#
        ITEM RSNJNSZ   U(0,27,9);       # SIZE (CHARS) OF JOIN ITEM    #
        ITEM RSNSCBCP  U(0,36,6);       # BEGIN CHAR POS OF SOURCE ITEM#
        ITEM RSNSCADD  U(0,42,18);      # ADDRESS OF SOURCE ITEM       #
        END 
