TAA Tools

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

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

  **   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

                 A  module  name must  be  entered for  multiple module

   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.


  **   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.


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


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

Added to TAA Productivity tools April 15, 2005

Home Page Up to Top