The  Retrieve Authority  Source Description  command  translates the  2
character 'Authority  Source' provided by  the QSYRUSRA API  or the TAA
RTVOBJAUT  command  and  returns  a  30  byte  text  description.   The
description  can  be  used  to  provide  a  meaningful  value  for  how
authority is determined.

A typical series of commands would be:

             DCL           &DESCRP *CHAR LEN(30)
              .
             RTVAUTSRCD    AUTSRC(GO) DESCRP(&DESCRP)

The following descriptions exist:

        UA     *ALLOBJ user
        UO     PvtAut to *OBJ by User
        UL     PvtAut to *AUTL by User
        GA     *ALLOBJ GrpPrf'
        GO     PvtAut to *OBJ by GrpPrf
        GL     PvtAut to *AUTL by GrpPrf
        GC     PvtAut to *AUTL and Obj by GrpPrf
        PO     *PUBLIC to *OBJ
        PL     *PUBLIC to *AUTL

RTVAUTSRCD escape messages you can monitor for
----------------------------------------------

      TAA9891    The 'position to' key does not exist.

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

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

   AUTSRC        The two  character value provided by  the QSYRUSRA API
                 or the TAA RTVOBJAUT command.

   DESCRP        The  description returned.   It  must be  specified as
                 *CHAR LEN(30).

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

Because the command  returns variables,  it may  only be used  in a  CL
program.

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

The following TAA Tools must be on your system:

     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   RTVAUTSRCD    *CMD                   TAASEFS       QATTCMD
   TAASEFSC      *PGM       CLP         TAASEFSC      QATTCL