The   Retrieve   Server   Authentication    Entry   command   retrieves
information  for   an  authentication  entry   (added  by  ADDSVRAUTE).
CCSID,  User ID,  and 'Password  specified' values  are returned.   You
must  have  both   *ALLOBJ  and  *SECADM   special  authority  to   use
RTVSVRAUTE.

A typical series of commands would be:

            DCL         &PWDSPEC *CHAR LEN(1)
             .
            RTVSVRAUTE  SERVER(xxx) USRPRF(yyy) PWDSPEC(&PWDSPEC)
            IF          (&PWDSPEC *EQ 'Y') DO /* Pwd specified */
             .
            ENDDO       /* Pwd specified */

RTVSVRAUTE escape messages you can monitor for
----------------------------------------------

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

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

   SERVER        The server name to retrieve from.

   USRPRF        The   user   profile    name   associated   with   the
                 authentication entry.

   SVRCCSID      The  CCSID  associated  with  the application  server.
                 This is  an  optional  return variable  that  if  used
                 must be specified as *DEC LEN(5 0).

   UID           The user name  for which requests will be  made to the
                 application  server.    This  is  an  optional  return
                 variable that  if  used  must be  specified  as  *CHAR
                 LEN(1000).

   UIDLEN        The length  of the  name in  the UID return  variable.
                 This  is  an optional  return  variable  that if  used
                 must be specified as *DEC LEN(5 0).'

   UIDCCSID      The  CCSID associated  with the user  ID.   This is an
                 optional  return  variable   that  if  used   must  be
                 specified as *DEC LEN(5 0).

   PWDSPEC       A  Y/N   return  value  for  whether   a  password  is
                 specified  for the authentication  entry.   This is an
                 optional  return  variable  that   if  used  must   be
                 specified as *CHAR LEN(1).


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

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

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

The following TAA Tools must be on your system:

     CHKALLOBJ       Check *ALLOBJ special authority
     CHKOBJ3         Check object 3
     CHKSECADM       Check *SECADM special authority
     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
   ------        ----    ---------      ----------    ----------

   RTVSVRAUTE    *CMD                   TAASEDV       QATTCMD
   TAASEDVC      *PGM       CLP         TAASEDVC      QATTCL
   TAASEDVR      *PGM       RPGLE       TAASEDVR      QATTRPG