The Retrieve  Program Debug  Attributes command  retrieves a Y/N  value
about  whether  a  program  or  module  can  be  debugged  by  the  ILE
debugger.   APIs  for the  ILE debugger  are used  to return  the debug
information.

A typical series of commands would be:

             DCL           &SRCDBG *CHAR LEN(1)
              .
             RTVPGMDBGA    PGM(xxx) SRCDBG(&SRCDBG)
             IF            (&SRCDBG *EQ 'Y') DO
              .            /* Can use ILE debugger */

The SRCDBG returned value is Y or N.

Several conditions prevent the use of the ILE debugger:

  **   Removing observability.

  **   Creating an OPM program without specifying OPTION(*SRCDBG).

  **   Creating a CRTBNDxxx program  and specifying a DBGVIEW of  *STMT
       or *NONE.

  **   Creating  a module  and  specifying  a DBGVIEW  of  of *STMT  or
       *NONE.

  **   Using  CRTPGM and then deleting the  module object that you want
       to debug.

RTVPGMDBGA escape messages you can monitor for
----------------------------------------------

      TAA9896    An ILE program has multiple modules and
                   MODULE(*PGM) was specified

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

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

   PGM           The qualified name  of the  program to retrieve  debug
                 information  for.    The  library  value  defaults  to
                 *LIBL.  *CURLIB may also be used.

   PGMTYPE       The type  of program specified.   *PGM is the default.

                 *SRVPGM may be specified.

   MODULE        For ILE  programs, the  module to  be used.   *PGM  is
                 the  default  which   should  be  used   for  programs
                 created with  CRTBNDxxx.  OPM programs  should use the
                 default.

                 A  module  name must  be  entered for  multiple module
                 programs.

   SRCDBG        A  Y/N return  value  for whether  the  program/module
                 specified  is debuggable  by  the ILE  debugger.   The
                 return variable must be specified as *CHAR LEN(1).

                 For  OPM programs,  a 'Y'  is returned if  the program
                 was created with OPTION(*SRCDBG).

                 For ILE  programs created  with  CRTBNDxxx, a  'Y'  is
                 returned if  the program  was created  with a  DBGVIEW
                 value of *SOURCE, *LIST, *COPY, or *ALL.

                 For ILE  programs created with CRTPGM  or CRTSRVPGM, a
                 'Y' is returned  if the  named module  exists and  was
                 created  with  a  DBGVIEW  value  of  *SOURCE,  *LIST,
                 *COPY, or *ALL.

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

  **   Because the  command returns a variable, it may  only be used in
       a CL program.

  **   You may not be in debug mode when the command is run.

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

The following TAA Tools must be on your system:

     RTVILEPGMA      Retrieve ILE program attributes
     RTVPGMA         Retrieve program attributes
     RTVSRVPGMA      Retrieve service program attributes
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   RTVPGMDBGA    *CMD                   TAADBGD       QATTCMD
   TAADBGDC      *PGM       CLP         TAADBGDC      QATTCL