The Check  Job Log  Message ID  command allows  you to  determine if  a
message ID  exists in a job log.   This can be used  for such functions
as  determining if a message  ID exists in any  job log or for deleting
the job logs caused by a disconnect.

A typical command would be:

         CHKJLGMSG   JOB(123456/USERA/JOBX) MSGID(CPC2198)

You can  specify a list  of up  to 40 message  IDs to  search for.   If
none of  the message  IDs are  found, the command  sends CPF9898  as an
escape message.

The  CHKJLGMSG command can be used against  all of the QPJOBLOG spooled
files in the QEZJOBLOG output queue by using the TAA Tool CVTOUTQ.

A typical solution would be:

             PGM
             DCLF       FILE(TAASPLCP) /* CVTOUTQ outfile */
                        /* TAA Tool to create outfile */
             CVTOUTQ    OUTQ(QUSRSYS/QEZJOBLOG) OUTLIB(QTEMP)
             OVRDBF     TAASPLCP TOFILE(QTEMP/OUTQP) SECURE(*YES)
 READ:       RCVF       /* Read a record */
             MONMSG     MSGID(CPF0864) EXEC(GOTO EOF)
             CHKJLGMSG  JOB(&SPJNBR/&SPUSER/&SPJNAM) MSGID(CPFxxxx)
             MONMSG     MSGID(CPF9898) EXEC(DO) /* Not found */
             GOTO       READ
             ENDDO      /* Not found */
                        /* MSGID exists */
                        /*                      */
                        /*    Your code to      */
                        /*      process the     */
                        /*      job log         */
                        /*                      */
             GOTO       READ
 EOF:        ENDPGM     /* End of file */

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

   JOB           The qualified  job name.   The  default  is *  meaning
                 the job log in the current job.

                 The last  spooled file by  the name of  QPJOBLOG would
                 be  accessed.   You can  have multiple  QPJOBLOG files
                 for a  single  job  if  DSPJOBLOG  OUTPUT(*PRINT)  had
                 been specified previously.

   MSGID         A list of up to 40 message IDs to check for.

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

None.

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

The following TAA Tools must be on your system:

     ALCTMPMBR       Allocate temporary member
     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
   ------        ----    ---------      ----------    ----------

   CHKJLGMSG     *CMD                   TAALOGC       QATTCMD
   TAALOGCC      *PGM       CLP         TAALOGCC      QATTCL
   TAALOGCR      *PGM       RPG         TAALOGCR      QATTRPG