The Duplicate  Command and Source  command allows a  Command Definition
object and its source to be duplicated from one library to another.

A typical command would be:

            DUPCMDSRC     CMD(ABC) TOLIB(LIB2)

The  command would  determine the  source member  used for  command ABC
and  then  duplicate the  command to  LIB2.   The  source used  for the
command would be copied to the same name source file in LIB2.

A REPLACE option exists to  determine what should occur if  the command
or source  already exists.  The  default is REPLACE(*NO)  in which case
neither  the  command  nor  the source  member  must  exist  in  the To
library.

The To  source file must  always exist  in the  To library.   The  user
must   be  properly   authorized  to   the  objects   to  perform   the
duplication.

For  most typical error  conditions, duplication will  not be attempted
and DUPCMDSRC will end with an appropriate escape message.

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

   CMD           The qualified  name  of  the  command.    The  library
                 value defaults  to *LIBL.   *CURLIB may also  be used.

   TOLIB         The  library where the  object will be  duplicated to.

   TOSRCF        The  source file  to be copied  to in  the To library.
                 The  default  is *FROMSRCF.    The  source  file  must
                 exist in the To library.

   REPLACE       Whether  the  existing  object   and  source  will  be
                 replaced.   The  default is  *NO meaning  that neither
                 can exist before any duplication is attempted.

                 *YES  may  be  specified  in  which  case   either  or
                 neither  may  exist.    If  either  exists,  they  are
                 removed before duplication occurs.

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

None.

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

The following TAA Tools must be on your system:

     SNDCOMPMSG      Send completion message
     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   DUPPGMSRC     *CMD                   TAACMDW       QATTCMD
   TAACMDWC      *PGM       CLP         TAACMDWC      QATTCL