The Check  for Passthru Job  command checks the  current job to  see if
it is  a passthru job.  Escape  message TAA9894 is sent if  it is not a
passthru  job.  The command  has no parameters and  may only be used in
the interactive environment.

A typical set of coding would be:

             CHKPASTHR
             MONMSG      MSGID(TAA9894) EXEC(DO) /* Not passthru */
               .
             ENDDO       /* Not passthru */

The QDCRDEVD API is used to extract the information.

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

None.

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

None.

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

The following TAA Tools must be on your system:

     SNDCOMPMSG      Send completion message
     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   CHKPASTHR     *CMD                   TAADEVE       QATTCMD
   TAADEVEC      *PGM       CLP         TAADEVEC      QATTCL