*DECK TRPTLST 
      PROC TRPTLST; 
      BEGIN 
      CONTROL STEXT;
      XREF BASED ARRAY REPORTLIST S(3); 
        BEGIN 
        ITEM BEYOND        B(00,00,01);  #TRUE IF AT LINE N BEYOND     #
        ITEM ONCE          B(00,01,01);  #TRUE IF DETAIL ONCE          #
        ITEM CENTERED      B(00,02,01);  #TRUE IF CENTERED             #
        ITEM ALLPAGE       B(00,03,01);  #TRUE IF HEADING ALL PAGES    #
        ITEM CONTINUATN    B(00,04,01);  #TRUE IF CONTINUED RPTLIST ENT#
        ITEM CALLTYPE      U(00,05,04);  #1 = DETAIL, 2 = HEADING,     #
                                         #3 = FOOTING, 4 = TITLE,      #
                                         #5 = RECAP, 6 = DATE, 7 = TIME#
                                         #8 = PAGE-NUMBER              #
        ITEM LEVEL         I(00,12,09);  #LEVEL NO OF HEADING, FOOTING #
        ITEM LINEN         B(00,21,01);  #TRUE IF AT LINE ITEM-NAME    #
        ITEM LINENBN       I(00,24,18);  #ADDRESS OF VALUE OF ITEM-NAME#
                                         #IF AT LINE ITEM-NAME         #
        ITEM LINENUMBER    I(00,33,09);  #LINE NUMBER                  #
        ITEM HEADPOINTER   I(00,42,18);  #ADDR (WITHIN CREPORT) OF PTR #
                                         #TO FIRST REPORTLIST ENTRY OF #
                                         #THIS DIRECTIVE               #
        ITEM TYPENTRY      U(01,00,03);  #1 = CHAR MOVE, 2 = CONVERT   #
                                         #3 = EXPRESSION, 4 = FIG SUB  #
        ITEM EDITBIT       B(01,03,01);  #EDITING REQUIRED FLAG        #
        ITEM FROMCHAR      U(01,04,04);  #RELATIVE CHAR PTR (0-9)      #
        ITEM TOCHAR        U(01,08,04);  #RELATIVE CHAR PTR (0-9)      #
        ITEM CHARLENGTH    U(01,12,12);  #SIZE OF FIELD IN CHARACTERS  #
        ITEM FROMADDRESS   I(01,24,18);  #RELATIVE ADDR OF -FROM- FIELD#
        ITEM TOADDRESS     I(01,42,18);  #RELATIVE ADDR OF -TO- FIELD  #
        ITEM CNVTCODE      U(02,00,06);  #TYPE OF CONVERSION REQUIRED  #
        ITEM STACKADD      I(02,06,18);  #PTR TO EXPRESSION STACK      #
        ITEM ADDRFROM      I(02,24,18);  #ACTUAL ADDR OF -FROM- FIELD  #
        ITEM ADDRTO        I(02,42,18);  #ACTUAL ADDR OF -TO- FIELD    #
        ITEM REPORTWORD1   I(00,00,60);  #1ST WORD                     #
        ITEM REPORTWORD2   I(01,00,60);  #2ND WORD                     #
        ITEM REPORTWORD3   I(02,00,60);  #3RD WORD                     #
        END 
      END 
      TERM
