The Copy Source Type  command copies members of specified  source types
from one source  file to another.  A list of types  may be provided.  A
generic  name may be entered.   An option exists  to remove the 'copied
from' members.

A typical command would be:

           CPYSRCTYP   FROMFILE(SRC1) TOFILE(SRC2)
                         SRCTYPE(PF LF)

The  CPYSRCF  command   is  used  internally   to  copy  the   members.
Therefore, if  the member  exists in  the TOFILE, it  is replaced.   If
the member does not exist in the TOFILE, it is added.

Unique  escape messages are sent if the  file does not have any members
or none are copied.

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

   FROMFILE      The  qualified file  name  of  the  FROM  file.    The
                 library value  defaults to  *LIBL.   *CURLIB may  also
                 be specified.  The file must be a source file.

   TOFILE        The qualified  file name of the TO  file.  The library
                 value  defaults  to  *LIBL.    *CURLIB  may  also   be
                 specified.

   SRCTYP        A list  of up to  10 source types  to be copied.   The
                 values entered  must match the type  specified for the
                 member such as CLP, RPG, etc.

   MBR           The  member name  to be copied.   The  default is *ALL
                 for all members  that match the source  type criteria.

                 A specific  member name or  a generic member  name may
                 be  entered  to select  those members  that  match the
                 source type.

   RMVM          A *YES/*NO  value  that determines  whether  the  FROM
                 member that  is copied  will be removed.   *NO  is the
                 default.   Only  copied members  are considered.   You
                 must have  object  existence  authority  to  the  FROM
                 file to specify RMVM(*YES).

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

None.

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

The following TAA Tools must be on your system:

          ALCTMPMBR       Allocate temporary member
          EDTVAR          Edit variable
          EXTLST          Extract list
          SNDCOMPMSG      Send completion 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
   ------        ----    ---------      ----------    ----------

   CPYSRCTYP     *CMD                   TAASRDI       QATTCMD
   TAASRDIC      *PGM       CLP         TAASRDIC      QATTCL