The Send  Diagnostic  Message command  provides a  simple solution  for
sending a diagnostic  message from a CL program or  a HLL program.  The
major  intent  of  SNDDIAGMSG  is  to  allow  you  to  send  diagnostic
messages from a  HLL program.   This provides feedback  in the job  log
and  can be  used  in production  or  when you  are  testing a  program
(particularly a batch program).

  **   For  a CL  program there is  not much  of an  advantage in using
       SNDDIAGMSG  over   sending  the   message  yourself   with   the
       SNDPGMMSG command.   The  interface for  SNDDIAGMSG is  a little
       simpler, in that you would say:

            SNDDIAGMSG  MSG('First you say you will and then ..')

  **   For an RPG program you would specify:

     IMSGDS       DS                            512
     .
     C                     CALL 'SNDDIAG'
     C                     PARM           MSGDS

       Prior to  calling the SNDDIAG program, you  would fill the MSGDS
       data structure with the text you want to send.

SNDDIAGMSG sends message ID  TAA9851 from the  TAAMSGF message file  in
TAATOOL as  a  diagnostic message  with the  text provided  in the  MSG
parameter as the MSGDTA for TAA9851.

If  you want a  more flexible solution  for your HLL  program, consider
the use of the TAA Tool RPGSNDMSG.

The  SNDDIAGMSG tool  uses the  QMHSNDPM API  and sends  the diagnostic
message to  the program prior  to yours on  the Call  Stack (it uses  a
Stack Counter value of 2).

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

   MSG           The text of  the message you want to  send.  A maximum
                 of 512 bytes may be sent.

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

None.

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

None.

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

None, the tool is ready to use.

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

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

   SNDDIAGMSG    *CMD                   TAAMSGT       QATTCMD
   SNDDIAG       *PGM       CLP         TAAMSGTC      QATTCL