The Send Job  Log Message command  provides a simple method  of sending
a message  with a message ID to  the job log.  This  allows for setting
a  'mark' in the job log that can be  read by a tool such as CHKSAVRST.
Only the message IDs TAA9871 - TAA9878 may be used.

A typical series of commands would be:

             SNDJLGMSG     MSG('SAVE1') MSGID(TAA9878)
             SAVLIB        ...
             CHKSAVRST     ... STRMSGVAL('SAVE1')

This would set  a mark  in the job  log so  that the CHKSAVRST  command
would  begin considering messages  when the  mark was  found (CHKSAVRST
requires the use of TAA9878).

The  message is sent to  the program message queue  of the program that
uses SNDJLGMSG.

SNDJLG Program
--------------

A program  (SNDJLG) is provided  to allow  simple messages  to be  sent
from a HLL program to the job log.  Typical RPG code would look like:

     C                     MOVEL'My msg  'MSG   256
     C                     CALL 'SNDJLG'
     C                     PARM           MSG

The  MSG  parameter must  be  specified  as  256  bytes.   The  TAA9871
message is sent to the job log with the provided text.

Sending messages  to the job log  can be followed by a  Call to the TAA
ABORT program which will end the current program.

For example, this could be used  if the program is processing  specific
code types and finds an unsupported type:

     C            'Bad typ'CAT  TYPE:1    MSG   256
     C                     CALL 'SNDJLG'
     C                     PARM           MSG
     C                     CALL 'ABORT'

SNDJLGMSG escape messages you can monitor for
---------------------------------------------

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

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

   MSG           The text of the message to be sent.

                 Up to 256 bytes  may be sent, but if the  intent is to
                 use the  value for a command like  CHKSAVRST, only the
                 first 20 bytes are tested.

   MSGID         The  Message ID to  be sent.   The default is TAA9871.
                 It must be a  message ID between the range  of TAA9871
                 and TAA9878.   These message IDs exist  in the TAAMSGF
                 message file in TAATOOL.

                 CHKSAVRST uses the TAA9878 message.

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

None.

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

None.

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

None, the tool is ready to use.

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

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

   SNDJLGMSG     *CMD                   TAAMSHV       QATTCMD
   TAAMSHVC      *PGM       CLP         TAAMSHVC      QATTCL
   SNDJLG        *PGM       CLP         TAAMSHVC2     QATTCL