The Copy Directory  Entry command retrieves information about  the From
User ID  from the Directory Entries (as seen  with WRKDIRE) and prompts
for  a new entry using ADDDIRE.  The  existing values for the From User
ID are  used as the  defaults for  ADDDIRE with the  exceptions of  the
USRID, USER, and SYSNAME parameters.

The values entered for To User ID become the defaults for USRID.

If the  To User name is  the same as  the To User Address,  the To User
must be an existing profile and the following defaults are used:

          USRPRF    The name of the To User ID
          SYSNAME   The name of the current system

If  the  To User  ID differs  from the  To  User Address,  the defaults
become:

          USRPRF    *NONE
          SYSNAME   The name of the To User Address

You  must have  *ALLOBJ  special  authority  to  use  CPYDIRE  and  the
command may only be used in an interactive job.

A typical command would be:

              CPYDIRE   FROMUSRID(USER1 USER1) TOUSRID(USER2 USER2)

CPYDIRE escape messages you can monitor for
-------------------------------------------

      TAA9894    The From User ID is not in the directory
      TAA9895    The To User ID exits in the directory
      TAA9896    Because the To User ID and Address are the same,
                   the To User profile must exist

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

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

   FROMUSRID     A two  part entry  to describe  the From  User.   Both
                 parts are required.

                 The first part is the user profile name.

                 The second part is the Address as seen on WRKDIRE.

   TOUSRID       A  two  part entry  to  describe the  To  User.   Both
                 parts are required.

                 The first  part is  the  user profile  name.   If  the
                 second part  is the same  name, the user  profile must
                 exist on the current system.

                 The  second  part   is  the  Address  where  the  user
                 exists.


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

You must have *ALLOBJ special authority to use CPYDIRE.

The command may only be used in an interactive job.

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

The following TAA Tools must be on your system:

     CHKALLOBJ       Check *ALLOBJ special authority
     RSNLSTMSG       Resend last message
     RTVDIRE         Retrieve directory entry
     SNDCOMPMSG      Send completion message
     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
   ------        ----    ---------      ----------    ----------

   CPYDIRE       *CMD                   TAADSTH       QATTCMD
   TAADSTHC      *PGM       CLP         TAADSTHC      QATTCL