*DECK TSBTBL
      PROC TSBTBL;           # SYMPL TEXT FOR SUBSCHEMA TABLES         #
      BEGIN 
  
      CONTROL STEXT;
      BASED ARRAY CBWORKBUF [0] S(1);  # SUBSCHEMA TABLE ENTRIES       #
        BEGIN 
          ITEM BUFWORD U(0,0,60);         # SCRATCH ITEM.              #
          ITEM RQTWORD U(0,0,60);         # SCRATCH ITEM - USED DURING #
                                          # RELATION PROCESSING.       #
          ITEM SBENTRYTYPE U(0,0,3);      # SYMBOL TABLE ENTRY TYPE -  #
                                          # USED BY THE HASH ROUTINE.  #
          ITEM SBENTRYNAME U(0,0,60);     # DATA-BASE-ELEMENT NAME -   #
                                          # USED BY THE HASH ROUTINE.  #
*CALL SBCWDECLS 
*CALL SUBDECLS
*CALL SBDCDECLS 
*CALL SBRLHDDCL 
*CALL SBRLDBDCL 
*CALL SBRQHDDCL 
        END 
  
      XREF ARRAY SYMBUF [512];         # SYMBOL TABLE BUFFER.          #
        BEGIN 
          ITEM HASHOCCUP     B(00,00,01); # TRUE - SLOT OCCUPIED.      #
          ITEM HASHALIASFLG  B(00,01,01); # TRUE - ALIAS-NAME ASSOCIAT-#
                                          #        ED WITH HASH VALUE. #
          ITEM HASHALIASLEN  U(00,02,03); # LENGTH IN WORDS OF THE     #
                                          # ALIAS NAME.                #
          ITEM HASHTYPE      U(00,05,04); # ENTRY TYPE - REALM,REC,ITEM#
          ITEM HASHALIAS1FG  B(00,09,01); # TRUE - SUBJECT SCHEMA NAME #
                                          #        HAS AN ALIAS-NAME   #
                                          #        ASSOCIATED WITH IT. #
          ITEM HASHENTRY     U(00,12,18); # WA IN SB DIRECTORY OF ENTRY#
                                          # THAT HASHED TO THIS SLOT   #
          ITEM HASHALIASENT  U(00,30,18); # WA IN ALIAS FILE OF ENTRY  #
                                          # THAT HASHED TO THIS SLOT   #
        END 
  
      BASED ARRAY REALMLIST [0] S(1);  # REALM LIST TABLE              #
        BEGIN 
*CALL SBRLMLST
        END 
  
      BASED ARRAY RECORDLIST [0] S(1); # RECORD LIST TABLE             #
        BEGIN 
*CALL SBRECLST
        END 
  
      END 
      TERM; 
