The Retrieve  Audit  Model File  command retrieves  the  model file  in
QSYS  based on  an entry  type for  a journal  entry.   Only  the entry
types  associated with  the T journal  code (for Journal  type = Audit)
are supported.

A typical series of commands would be:

            DCL            &FILE *CHAR LEN(2)
             .
            RTVAUDMDLF     ENTTYP(xx) FILE(&FILE)

For entry type 'AF' the model file QASYAFJ5 would be returned.

RTVAUDMDLF escape messages you can monitor for
----------------------------------------------

      TAA9891    The Entry Type is not known
      TAA9892    No model file for the entry type

Escape messages from based on functions will be re-sent.

Command parameters                                    *CMD
------------------

   ENTTYP        The journal  entry  type  for  the T  Journal  Code  =
                 Audit  entry.   A 2  character value  must  be entered
                 that matches one of the valid entry types.

   MODELFILE     The  model file  in QSYS  that is associated  with the
                 entry type.   This  is a  required  return value  that
                 must be declared as *CHAR LEN(10).

Restrictions
------------

Because the  command returns  a variable, RTVAUDMDLF  may only  be used
in a CL program.

Prerequisites
-------------

The following TAA Tools must be on your system:

     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type    Attribute      Src member    Src file
   ------        ----    ---------      ----------    ----------

   RTVAUDMDLF    *CMD                   TAAJROK       QATTCMD
   TAAJROKC      *PGM       CLP         TAAJROKC      QATTCL