The Copy  Data Base File  to Data  Queue command copies  a member of  a
data  base file to  a data queue.   The  data queue must  be non-keyed,
have  a length  less than or  equal to 5000  bytes, and  not exceed the
entry length specified for the  data queue.  The QSNDDTAQ API  is used.

A typical command would be:

              CPYDBFDTAQ FILE(ABC) DTAQ(DEF)

All records  for the first member of  file ABC would be  written to the
data queue DEF.  Any existing entries would still exist.

CPYDBFDTAQ escape messages you can monitor for
----------------------------------------------

      TAA9891    The record length of the file is too big
      TAA9892    The data queue cannot be keyed

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

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

   FILE          The  qualified name  of the  file to  copy from.   The
                 library value defaults to  *LIBL.  A specific  library
                 or *CURLIB may also be used.

   DTAQ          The  qualified name  of  the data  queue  to copy  to.
                 The  library  value  defaults to  *LIBL.    A specific
                 library or *CURLIB may also be used.

                 Keyed data queues  are not supported.   The length  of
                 the data queue cannot exceed 5000 bytes.

   FROMMBR       The  member  of  the data  base  file  to  copy  from.
                 *FIRST  is the default.   A  specific member  or *LAST
                 may be specified.

   REPLACE       A  *YES/*NO value  for whether to  replace the entries
                 in the data queue.

                 *NO is the default  to add entries to the  data queue.

                 *YES may  be specified to clear the  data queue before
                 writing new entries.

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

  **   The  record length  of the file  cannot exceed  the entry length
       of the data queue.

  **   The data queue  must be non-keyed  and have a  length less  than
       or equal to 5000 bytes.

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

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     CLRDTAQ         Clear data queue
     EDTVAR          Edit variable
     RSNLSTMSG       Resend last message
     RTVDBFA         Retrieve data base file attributes
     RTVDTAQD        Retrieve data queue attributes
     SNDCOMPMSG      Send completion message
     SNDESCINF       Send escape information
     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
   ------        ----    ---------      ----------    ----------

   CPYDBFDTAQ    *CMD                   TAADTQW       QATTCMD
   TAADTQWC      *PGM       CLP         TAADTQWC      QATTCL
   TAADTQWC2     *PGM       CLP         TAADTQWC2     QATTCL
   TAADTQWR      *PGM       RPG         TAADTQWR      QATTRPG