*DECK TLOGDEF 
      PROC TLOGDEF; 
      BEGIN 
      CONTROL STEXT;
#                                                                      #
      STATUS RQTYPE                # REQUEST TYPE INP. PARAM. VALUES   #
        OPEN,                      # 0 - LOG AN OPEN                   #
        CLOSE,                     # 1 - LOG A CLOSE                   #
        TERMINATE,                 # 2 - TERMINATE LOG PROCESSING      #
        TRANSACTION,               # 3 - LOG A TRANSACTION             #
        INSERT,                    # 4 - LOG AN INSERT                 #
        UPDATE,                    # 5 - LOG AN UPDATE                 #
        DELETE,                    # 6 - LOG A DELETE                  #
        ENDOFLIST;                 # UPPER BOUND FOR REQUEST TYPE      #
#                                                                      #
      END 
      TERM
