The Duplicate  Program  and Source  command allows  a  program and  its
source to be duplicated from one library to another.

A typical command would be:

            DUPPGMSRC     PGM(ABC) TOLIB(LIB2)

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

A REPLACE option exists to  determine what should occur if  the program
or source  already exists.  The  default is REPLACE(*NO)  in which case
neither  the  program  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 DUPPGMSRC will end with an appropriate escape message.

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

   PGM           The qualified  name  of  the  program.    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                   TAAPGMN       QATTCMD
   TAAPGMNC      *PGM       CLP         TAAPGMNC      QATTCL