*DECK TEMLST
      PROC TEMLST;
      BEGIN 
      CONTROL STEXT ; 
#                                                                      #
      STATUS EVMVTYP               # EVMVTYP - THIS LIST ASSIGNS VALUES#
                                   # TO THE IDENTIFIERS IN ORDER TO    #
                                   # PROVIDE AN INDEX DENOTING THE 1ST #
                                   # PART OF THE CURRENT DIRECTIVE.    #
                                   # THE INDEX CORRESPONDS TO THE INDEX#
                                   # USED FOR THE LITERALS IN RPTDRTV. #
          EVALBEF,                 # 0 - EVALUATE BEFORE               #
          EVALAFT,                 # 1 - EVALUATE AFTER                #
          MOVEBEF,                 # 2 - MOVE BEFORE                   #
          MOVEAFT;                 # 3 - MOVE AFTER                    #
  
      STATUS BFAFTYP               # BFAFTYP - THIS LIST ENABLES THE   #
                                   # MNEMONIC REFERENCE TO A IDENTIFIER#
                                   # WHICH DENOTES WHICH REPORT DIRECT-#
                                   # IVE IS SPECIFIED AFTER A MOVE     #
                                   # BEFORE/AFTER OR EVALUATE BEFORE/  #
                                   # AFTER DIRECTIVE.                  #
                                   #*NOTE - ANY CHANGE TO THIS LIST    #
                                   # MUST ALSO BE REFLECTED IN RDRTSWT.#
          ANYBRK,                  # 0 - ANY BREAK                     #
          ANYDTL,                  # 1 - ANY DETAIL                    #
          ANYFTG,                  # 2 - ANY FOOTING                   #
          ANYHDG,                  # 3 - ANY HEADING                   #
          ANYSEL,                  # 4 - ANY SELECT                    #
          BREAKI,                  # 5 - BREAK (LEVEL NUMBER)          #
          BREAKO,                  # 6 - BREAK (OVERLEVEL)             #
          DTLVL,                   # 7 - DETAIL (TAG NUMBER)           #
          FTNGJ,                   # 8 - FOOTING (LEVEL NUMBER)        #
          HDNGJ,                   # 9 - HEADING (LEVEL NUMBER)        #
          NOSEL,                   # 10 - NO SELECT                    #
          RECAP1,                  # 11 - RECAP                        #
          RPT0,                    # 12 - REPORT (0)                   #
          RPTSUB,                  # 13 - REPORT (RPTCTR)              #
          SLECTI,                  # 14 - SELECT (TAG NUMBER)          #
          TITLE1;                  # 15 - TITLE                        #
#                                                                      #
      END 
      TERM
