*COMDECK RSBFXDCLS
  
# THIS COMDECK CONTAINS DESCRIPTIONS OF ENTRIES WHICH APPEAR IN THE    #
# FIXED PART OF THE RSB (RUN-UNIT STATUS BLOCK).                       #
  
      BASED ARRAY RSB;
  
          BEGIN              # RSB BASED ARRAY #
  
            ITEM RSFPTWD    U(0,0,60);  # COMPLETE POINTER WORD        #
            ITEM RSFRECPT   U(0,0,15);  # DISPL TO FIRST RECORD BLOCK  #
            ITEM RSFRELPT   U(0,15,15); # DISPL TO FIRST RELATION BLOCK#
            ITEM RSFILKPT  U(0,30,15);  # DISPL TO ITEM LOCK TABLE     #
            ITEM RSFRLEN   U(0,45,15);  # LENGTH IN WORDS OF THE RSB   #
  
            ITEM RSFDSWD    U(1,0,60);  # DISPL TO SEARCH/QUAL TABLES  #
            ITEM RSFSQPTR  U(1,0,15);   # DISPL TO SEARCH TABLE ENTRIES#
            ITEM RSFDNPTR  U(1,15,15);  # DISPL TO DATA NAME BUFFER    #
            ITEM RSFJNPTR  U(1,30,15);  # DISPL TO JOIN BUFFER         #
            ITEM RSFQSPTR  U(1,45,15);  # DISPL TO QUAL STACK BUFFER   #
  
            ITEM RSFVENAME C(2,00,07);  # REQUESTED VERSION NAME       #
            ITEM RSFAGE    U(2,42,03);  # AGE COUNT FOR RSB SWAP OUT   #
            ITEM RSFCONPT  U(2,45,15);  # POINTER TO FIRST CONSTRAINT  #
                                        # CONTROL BLOCK.               #
  
            ITEM RSFSTSWD  (3,0,60);   # INPUT/OUTPUT STATISTICS WORD  #
              ITEM RSFNRDS  U(3,00,30);# NUMBER OF READ OPERATIONS     #
              ITEM RSFNWRS  U(3,30,30);# NUMBER OF WRITE OPERATIONS    #
            ITEM RSFSTSW2  (4,0,60);   # INPUT/OUTPUT STATISTICS WORD 2#
              ITEM RSFNRWS  U(4,00,30);# NUMBER OF REWRITE OPERATIONS  #
              ITEM RSFNDLS  U(4,30,30);# NUMBER OF DELETE OPERATIONS   #
  
            ITEM RSFCAORD U(5,0,12);   # CURRENT AREA ORDINAL # 
            ITEM RSFCRORD U(5,12,12);  # CURRENT RECORD ORDINAL # 
            ITEM RSFSBREC  (5,24,18);  # CUR SUBSCH REC IMAGE ADDRESS#
            ITEM RSFSBRECL (5,42,18);  # CURRENT SUBSCH REC WD LENGTH#
  
            ITEM RSFDNNXWD U(6,0,12);  # DN SAVE BUF NEXT WORD TO USE#
            ITEM RSFCCORD U(6,12,12);  # CURRENT CONSTRAINT ORDINAL # 
            ITEM RSFVERSUB U(6,24,12); # VERSION SUBSCRIPT.            #
                                       # BITS 36-41 NOT USED           #
            ITEM RSFFKLLOC  (6,42,18); # ADDRESS OF FILE KEY LIST      #
  
#     THE FOLLOWING NAME IS ALWAYS SUBSCRIPTED WHEN IT IS REFERENCED.  #
#     IT IS AN ALTERNATE REFERENCE TO RSARALT.                         #
  
            ITEM RSFALT    (00,42,18); # POINTER TO AREA LOCK TABLE    #
  
          END                # RSB BASED ARRAY #
