TAA Tools
RTVSRVMODA      RETRIEVE SERVICE PGM MODULE ATTR       TAAPGMX

The Retrieve  Service Program Module  Attributes command  retrieves the
attributes for  a module of a Service Program.   Either a module number
(default is first) or a module name may be specified.

The API QBNLSPGM is used to retrieve the attributes.

A typical command would be:

             DCL          &MODULE *CHAR LEN(10)
              .
             RTVSRVMODA   SRVPGM(ABC) RTVNBR(1) MODULE(&MODULE)

The  module name of  the first module  of the service  program would be
returned.   Additional return  variables  for such  information as  the
source file, library, and member may also be returned.

If the  information for all of  the modules should be  returned, a loop
is  needed in the  CL program.   The return value  TOTMOD will describe
the total number of modules that exist.

Escape messages you may be interested in monitoring for:

       - TAA9894    The RTVNBR number exceeds the modules in the pgm
       - TAA9895    The RTVMOD name module does not exist in the pgm

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

   SRVPGM        The qualified service  program to  be retrieved.   The
                 library value  defaults to  *LIBL.   *CURLIB may  also
                 be used.

   RTVNBR        The  number  of  the  module  to  be retrieved.    The
                 default is 1.   You  must specify either  a RTVNBR  or
                 RTVMOD.  RTVNBR(*NAME)  must be specified if  a module
                 name is used in the RTVMOD parameter.

   RTVMOD        The name  of the module to be  retrieved.  The default
                 is  *NONE meaning  the RTVNBR parameter  will be used.
                 *NONE  must be  used  if  a RTVNBR  value  other  than
                 *NAME is specified.

   RTNLIB        An  optional return  variable  that  will contain  the
                 library  name  where the  service  program  was found.
                 The value may  be helpful  if the  service program  is
                 accessed  without   a  specific  library  name.     If
                 specified,  the  variable must  be  declared  as *CHAR
                 LEN(10).

   TOTMOD        An optional  return  variable that  will  contain  the
                 total number  of modules in  the service program.   If
                 specified,  the  variable  must  be declared  as  *DEC
                 LEN(5 0).

   MODNBR        An  optional  return  variable that  will  contain the
                 number of  the module in  the service  program.   This
                 value  may be  of  interest  if RTVMOD  is  used.   If
                 specified,  the  variable  must  be  declared  as *DEC
                 LEN(5 0).

   MODULE        An optional  return  variable that  will  contain  the
                 name of the  module.  If specified,  the variable must
                 be declared as *CHAR LEN(10).

   MODULEL       An  optional  return variable  that  will  contain the
                 name  of  the  module  library.    If  specified,  the
                 variable must be declared as *CHAR LEN(10).

   MODATR        An  optional return  variable  that will  contain  the
                 attribute of  the module.  If  specified, the variable
                 must be declared as *CHAR LEN(10).

   CRTDATE       An  optional  return  variable that  will  contain the
                 date the  module was  created in  the format  CYYMMDD.
                 If specified,  the variable must be  declared as *CHAR
                 LEN(7).

   CRTTIME       An  optional  return variable  that  will  contain the
                 time the  module was  created  in the  format  HHMMSS.
                 If specified, the  variable must be declared  as *CHAR
                 LEN(6).

   SRCFILE       An  optional  return variable  that  will  contain the
                 source  file   used  to   create  the   module.     If
                 specified,  the variable  must  be declared  as  *CHAR
                 LEN(10).

   SRCLIB        An  optional  return variable  that  will contain  the
                 library   of  the  source  file  used  to  create  the
                 module.  If specified,  the variable must be  declared
                 as *CHAR LEN(10).

   SRCMBR        An  optional return  variable  that  will contain  the
                 member  of the source file used  to create the module.
                 If specified, the variable  must be declared as  *CHAR
                 LEN(10).

   RLSCRTON      An  optional return  variable  that  will contain  the
                 release  the module  was created on.   The  value will
                 be an  entry  such  as  V4R1M0.    If  specified,  the
                 variable must be declared as *CHAR LEN(6).

   RLSCRTFOR     An  optional return  variable  that will  contain  the
                 release  the module  was  created  for.   This  is the
                 target  release  of  the module  and  is  the earliest
                 release the module can  run on.  The value will  be an
                 entry  such as  V4R2M0.   If  specified, the  variable
                 must be declared as *CHAR LEN(6).

   SRCCHGDATE    An  optional  return variable  that  will  contain the
                 date of  last  update  of  the source  member  in  the
                 format CYYMMDD.   If specified,  the variable  must be
                 declared as *CHAR LEN(7).

   SRCCHGTIME    An  optional  return variable  that  will  contain the
                 time of  last  update  of the  source  member  in  the
                 format HHMMSS.   If  specified, the  variable must  be
                 declared as *CHAR LEN(6).

   CCSID         An  optional  return variable  that  will contain  the
                 Coded  Character Set ID of  the module.  If specified,
                 the variable must be declared as *DEC LEN(5 0).

   DEBUGDATA     An  optional  return   variable  that  will   describe
                 whether  the module  contains  debug data.   Either  a
                 *YES  or  *NO will  be  returned.   If  specified, the
                 variable must be declared as *CHAR LEN(4).

   MAXOPTLVL     An optional  return  variable that  will  contain  the
                 Maximum  Optimization   Level  of  the  module.     If
                 specified,  the  variable  must  be  declared as  *DEC
                 LEN(5 0).

                 The values  returned are  explained in  detail in  the
                 API manual.    The brief  description is  65535 =  Not
                 restricted,   40   =   Maximum   level,  30   =   More
                 optimization  is performed, 20  = Some optimization is
                 performed,  10   =  No   additional  optimization   is
                 performed.

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

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

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

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     CRTUSRSPC       Create user space
     EDTVAR          Edit variable
     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   RTVSRVMODA    *CMD                   TAAPGMX       QATTCMD
   TAAPGMXC      *PGM       CLP         TAAPGMXC      QATTCL
					

Added to TAA Productivity tools August 1, 1998


Home Page Up to Top