*DECK TINDTBL 
      PROC TINDTBL; 
      BEGIN 
      CONTROL STEXT ; 
                                                                         INDTBL 
                                                                         INDTBL 
#     THIS ARRAY DESCRIBES THE ITEMS FOR A SUBSCRIPT TABLE ENTRY       # INDTBL 
                                                                         INDTBL 
      BASED ARRAY INDTBL;                                                INDTBL 
        BEGIN                                                            INDTBL 
                                                                         INDTBL 
        ITEM DPTYPE        I( 0, 0, 6);  #TYPE OF -DEPENDING ON- ITEM  # INDTBL 
        ITEM DEPNDFG       B( 0, 0, 1);  #TRUE IF -DEPENDING ON- EXISTS# INDTBL 
        ITEM INTESUB       B( 0, 1, 1);  #INTEGER ITEM SUBSCRIPT       # INDTBL 
        ITEM NEXTFG        B( 0, 2, 1);  #SUBSCRIPT IS -NEXT-          # INDTBL 
        ITEM LASTFG        B( 0, 3, 1);  #SUBSCRIPT IS -LAST-          # INDTBL 
        ITEM ALLFG         B( 0, 4, 1);  #SUBSCRIPT IS -ALL-           # INDTBL 
        ITEM ANYFG         B( 0, 5, 1);  #SUBSCRIPT IS -ANY-           # INDTBL 
        ITEM INDFG         U(00,00,06);  #DEPEND,ITEM,NEXT,ALL,ANY FLAG#
        ITEM TBLGS         I( 0, 6, 4);  #LENG OF INDEX TBL/CHAR POS   # INDTBL 
        ITEM CONSUB        B( 0,10, 1);  #CONSTANT SUBSCRIPT           # INDTBL 
        ITEM ENTYLG        I( 0,15,15);  #LENG OF EACH ENTRY/DEPEND ITM# INDTBL 
        ITEM UPBND         U( 0,30,12);  #UPPER BOUND OF INDEX         #
                                         #OR WORD POS OF -DEPND ON- ITM# INDTBL 
        ITEM INDCE         I( 0,42,18);  #LOCATION OR VALUE OF INDEX   # INDTBL 
                                         #OR WORD POS OF -DEPND ON- ITM# INDTBL 
        ITEM INDTBLWD      I( 0, 0,60);  #WHOLE WORD OVERLAY           # INDTBL 
                                                                         INDTBL 
        END                                                              INDTBL 
      END 
      TERM
