*DECK TDTABLE 
      PROC TDTABLE; 
      BEGIN 
      CONTROL STEXT;
      BASED ARRAY DTABLE;                #       DISPLAY TABLE         #
        BEGIN 
                                         #    WORD  ZERO               #
        ITEM CPTYPE        U(00,00,03);  #1 = CHAR MOVE, 2 = CONVERT   #
                                         #3 = EXPRESSION, 4 = FIG SUB  #
        ITEM CPEDIT        B(00,03,01);  #EDITING REQUIRED FLAG        #
        ITEM CPFCHAR       U(00,04,04);  #RELATIVE CHAR PTR (0-9)      #
        ITEM CPTCHAR       U(00,08,04);  #RELATIVE CHAR PTR (0-9)      #
        ITEM CPCHARLG      U(00,12,12);  #SIZE OF FIELD IN CHARACTERS  #
        ITEM CPFROMADDR    I(00,24,18);  #RELATIVE ADDR OF -FROM- FIELD#
        ITEM CPTOADDR      I(00,42,18);  #RELATIVE ADDR OF -TO- FIELD  #
                                         #    WORD  ONE                #
        ITEM CPCVTCD       U(00,00,06);  #TYPE OF CONVERSION REQUIRED  #
        ITEM CPSTACK       I(00,06,18);  #PTR TO EXPRESSION STACK      #
        ITEM CPADDRFROM    I(00,24,18);  #ACTUAL ADDR OF -FROM- FIELD  #
        ITEM CPADDRTO      I(00,42,18);  #ACTUAL ADDR OF -TO- FIELD    #
        ITEM CPENTRY       I(00,00,60);  #ENTIRE WORD                  #
                                         #    WORD  TWO                #
        ITEM CPPKEY        B(00,00,01);  #TRUE IF PRIMARY KEY          #
        ITEM CPKEYEXCL     B(00,01,01);  #TRUE IF EXCLUDED KEY         #
        ITEM CPALTKEY      B(00,02,01);  #TRUE IF ALTERNATE KEY        #
        ITEM CPOVERSIGN    B(00,03,01);  #TRUE IF OVERPUNCH            #
        ITEM CPRMAJKEY     B(00,04,01);  #TRUE IF MAJOR PRIMARY KEY    #
        ITEM CPALTMAJKEY   B(00,05,01);  #TRUE IF MAJOR ALTERNATE KEY  #
        ITEM CPAKEYSIZE    U(00,09,09);  #SIZE OF ALTERNATE KEY        #
                                         #OF WHICH THIS IS MAJOR       #
        ITEM CPRECDORD     U(00,27,12);  #RECORD ORD IF CDCS DATA NAME #
                                         #1 IF CRM DATA NAME, ELSE 0   #
        ITEM CPITEMORD     U(00,39,15);  #ITEM ORDINAL IF CDCS, ELSE 0 #
        ITEM DAREAORD      U(00,54,06);  #ORDINAL OF AREA TABLE        #
                                         #    OVERFLOW  WORD           #
        ITEM SAVFSIZE      I(00,24,18);  # CHAR LENGTH OF DISPLAY (IN  #
                                         # FIRST BLOCK ONLY)           #
        ITEM OVERFLOW      I(00,42,18);  #ADDR OF NEXT BLOCK OF DIS TBL#
        END 
      END 
      TERM
