*COMDECK RSBRNDCLS
#**********************************************************************#
  
#     BASED ARRAY FOR RSB RELATION CONTROL BLOCK                       #
  
      BASED ARRAY RSBRLNBLK;
        BEGIN 
        ITEM RSNWRD1   U(0,0,60);       # FIRST WORD                   #
        ITEM RSNFF     B(0,0,1);        # FIRST FLAG. SET=1 BY INVOKE  #
                                        # -RESET BY READ REL SYMBIONT  #
        ITEM RSNSTPTR  U(0,15,15);      # DISPL TO SEARCH TABLE        #
        ITEM RSNQTPTR  U(0,30,15);      # DISPL TO QUALIFICATION TABLE #
        ITEM RSNCSPTR  U(0,45,15);      # DISPL TO CST WORK BLOCK      #
        ITEM RSNWRD2   U(1,0,60);       # SECOND WORD                  #
        ITEM RSNRUPTR  U(1,0,15);       # DISPL TO RELATION USAGE LIST #
                                        # ENTRY FOR THIS RELATION      #
        ITEM RSNRELFP  U(1,15,9);       # RELATION FILE POSITION (ROOT)#
        ITEM RSNCURRK  U(1,42,18);      # CURRENT RANK (SET BY MFP)    #
        END 
  
