The Check  Program Stack command  checks a named  program to see  if it
is  already  in the  program  stack of  the  current job.    If it  is,
TAA9893 is sent as an escape message.

This  allows testing for programs that you do  not want to call if they
are already in  the program  stack.  For  example, it  could be an  RPG
program which does not allow recursion.

A typical series of commands would be:

          CHKPGMSTK      PGM(xxx)
          MONMSG         MSGID(TAA9893) EXEC(DO) /* In stack */
           .
           .             /*    Error handling */
           .
          ENDDO          /* Already in the stack */
                         /* Not in the stack */
          CALL           PGM(xxx)

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

   PGM           The program name to be checked.

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

None.

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

The following TAA Tools from must be on your system:

     RTVPGMSTK    Retrieve program stack
     SNDESCMSG    Send escape message

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

None, the tool is ready to use.

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

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

   CHKPGMSTK     *CMD                   TAAPGMK       QATTCMD
   TAAPGMKC      *PGM       CLP         TAAPGMKC      QATTCL