The Work  Server Authentication Entries  command provides a  display of
a  user,  generic user,  all  users, or  all  non-Q users  for  a named
server.   A *SELECT option exists to  provide a display of the existing
servers.   When a list  of users  is displayed for  a specific  server,
options  exist  to  add,  change,  remove,  or  display  authentication
entries.

The   QSYRTVSE  API  is  used  to  determine   if  a  profile  has  any
authentication entries.

You must have *ALLOBJ and *SECADM to use WRKSVRAUTE.

A typical command would be:

             WRKSVRAUTE   SERVER(*SELECT) USRPRF(*ALL)

A display of all  existing servers would appear.   A single server  may
be selected.

The next  display has  a one for  each user profile  on the  system and
whether  the user has an  authentication entry for that  server.  If an
entry exists, the  change, remove,  display, and print  options may  be
used.  If an entry does not exist, the add option may be used.

The display and print  options use the system DSPSVRAUTE  command which
displays or  prints all authentication  entries that have  been entered
for a user.

The  system does  not consider it  an error to  use a  server name that
does not  exist.   The authentication entries  are held  by the  system
waiting for the server to start.

The QSYRTVSE API  is used to determine if the user  is currently on the
authentication list.

WRKSVRAUTE escape messages you can monitor for
----------------------------------------------

      TAA9897    No server entries exist

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

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

   SERVER        The  server name to  be worked with.   The system does
                 not consider it  an error  to use a  server name  that
                 does not exist.

                 *SELECT  may  be entered  to  display  a list  of  the
                 existing servers.  A selection may then be made.

   USRPRF        The  name of  the user  to be  displayed.   A specific
                 name, a generic  name, or the  special value *ALL  may
                 be used.  The  special value *NONQ may be  entered for
                 all user  profiles that do  not start with  the letter
                 Q.

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

You must have *ALLOBJ and *SECADM to use WRKSVRAUTE.

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

The following TAA Tools must be on your system:

     CHKALLOBJ       Check *ALLOBJ special authority
     CHKSECADM       Check *SECADM special authority
     CVTSVRAUTE      Convert server authentication entries
     DSPERRMSG       Display error message
     SNDESCMSG       Send escape message
     SNDSTSMSG       Send status message

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

None, the tool is ready to use.

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

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

   WRKSVRAUTE    *CMD                   TAASEFI       QATTCMD
   TAASEFIC      *PGM       CLP         TAASEFIC      QATTCL
   TAASEFIC2     *PGM       CLP         TAASEFIC2     QATTCL
   TAASEFIC3     *PGM       CLP         TAASEFIC3     QATTCL
   TAASEFIC5     *PGM       CLP         TAASEFIC5     QATTCL
   TAASEFIR      *PGM       RPG         TAASEFIR      QATTRPG
   TAASEFIR5     *PGM       RPG         TAASEFIR5     QATTRPG
   TAASEFID      *FILE      DSPF        TAASEFID      QATTDDS
   TAASEFIE      *FILE      DSPF        TAASEFIE      QATTDDS

Structure
---------

WRKSVRAUTE Cmd
   TAASEFIC   CL pgm
      TAASEFIC5   CL Pgm for *SELECT
        TAASEFIR5  RPG pgm
          TAASEFIE  DSPF
      TAASEFIR   RPG pgm  Main display
         TAASEFID   DSPF
         TAASEFIC2  CL pgm - Calls API
         TAASEFIC3  CL pgm - Does menu options