TAA Tools
RTVSRVPGMA      RETRIEVE SERVICE PROGRAM ATTRIBUTES    TAAPGMW

The  Retrieve  Service Program  Attributes  command  retrieves  various
return  variables about  a *SRVPGM object  type.   The QBNRSPGM  API is
used  to retrieve  the values.   The command may  only be used  in a CL
program.

A typical command would be:

            DCL        &NBRMODS *DEC LEN(5 0)
             .
            RTVSRVPGMA SRVPGM(xxx) NBRMODS(&NBRMODS)

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

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

   RTNLIB        An   optional   return   variable   for  the   library
                 containing the  service  program.   If  specified,  it
                 must be declared as *CHAR LEN(10).

   SRVPGMATR     An optional return  variable for the attribute  of the
                 service  program.  If  specified, it  must be declared
                 as *CHAR LEN(10).

   CRTDAT        An optional  return variable  for the  create date  of
                 the service  program.   The value  is returned in  the
                 format  CYYMMDDHHMMSS.    If  specified,  it  must  be
                 declared as *CHAR LEN(13).

   EXPSRCFIL     An  optional  return  variable for  the  export source
                 file  used  to   create  the  service  program.     If
                 EXPORT(*ALL)   was   specified   on   CRTSRVPGM,   the
                 EXPSRCFIL  value  will  be blank.    If  specified, it
                 must be declared as *CHAR LEN(10).

   EXPSRCLIB     An  optional   return   variable   for   the   library
                 containing the export  source file used to  create the
                 service  program.   If  EXPORT(*ALL) was  specified on
                 CRTSRVPGM, the  EXPSRCLIB value  will  be blank.    If
                 specified, it must be declared as *CHAR LEN(10).

   EXPSRCMBR     An  optional return  variable  for the  export  source
                 member  used  to  create  the  service  program.    If
                 EXPORT(*ALL)   was   specified   on   CRTSRVPGM,   the
                 EXPSRCMBR value  will  be  blank.   If  specified,  it
                 must be declared as *CHAR LEN(10).

   OWNER         An  optional  return variable  for  the  owner of  the
                 service  program.  If  specified, it  must be declared
                 as *CHAR LEN(10).

   CCSID         An optional  return  variable  for the  CCSID  of  the
                 service program.   If  specified, it must  be declared
                 as *DEC LEN(5 0).

   NBRMODS       An   optional  return  variable  for   the  number  of
                 modules in  the service  program.   If  specified,  it
                 must be declared as *DEC LEN(5 0).

   NBRSRVPGMS    An  optional  return   variable  for  the   number  of
                 service  programs bound  to the  service program.   If
                 specified, it must be declared as *DEC LEN(5 0).

   NBRCPYRGTS    An   optional  return  variable   for  the  number  of
                 copyrights in the  service program.  If  specified, it
                 must be declared as *DEC LEN(5 0).

   NBRUNRREFS    An  optional   return  variable  for   the  number  of
                 unresolved  references  in the  service  program.   If
                 specified, it must be declared as *DEC LEN(5 0).

   MINRLS        An optional return  variable for  the minimum  release
                 the service  program may  be restored  to.  The  value
                 is  returned in the  format VxRxMx.   If specified, it
                 must be declared as *CHAR LEN(6).

   DOMAIN        An optional return  variable for  the service  program
                 domain.   The value is  either S (can  be called by  a
                 system state  program) or U  (can be called  by a user
                 or  system state program).   If specified,  it must be
                 declared as *CHAR LEN(1).

   CUREXPSGN     An optional  return variable  for  the current  export
                 signature of  the service  program.  If  specified, it
                 must be declared as *CHAR LEN(16).

   ALLCRTDTA     An  optional return  variable that  determines whether
                 the ILE  program  has all  creation  data and  if  the
                 data  is  observable.     If  specified,  it  must  be
                 declared as *CHAR LEN(6).

                 *NO is  returned if not all  creation data is present.

                 *YES is returned if all  creation data exists and  the
                 program is observable.

                 *UNOBS is returned  if the program has  creation data,
                 but not all the data is observable.

   OBSERVECPS    An  optional  Y/N  return  variable  to  determine  if
                 observability  has been compressed.   If specified, it
                 must be declared as *CHAR LEN(1).

   ACTGRPATR     An optional return  variable for the  activation group
                 attribute.    The value  returned  is  *CALLER or  the
                 name  of the activation group.   If specified, it must
                 be declared as *CHAR LEN(30).

   SHRACTGRP     An optional Y/N  return variable  to determine if  the
                 activation group  is shared.   If  specified, it  must
                 be declared as *CHAR LEN(1).

   USRPRF        An  optional  return  variable  that  contains  either
                 *USER or  *OWNER for  whether program  adopt is  used.
                 If specified,  it must be  declared as  *CHAR LEN(10).

   USEADPAUT     An  optional   Y/N  return  variable   that  describes
                 whether  the program  is allowed  to run  with program
                 adoption from  programs higher in  the program  stack.
                 If specified, it must be declared as *CHAR LEN(1).

   CONVRQD       An optional  Y/N return  variable to determine  if the
                 service  program requires  conversion to  RISC format.
                 If specified, it must be declared as *CHAR LEN(1).

   ALWUPD        An  optional   return   variable   for   whether   the
                 UPDSRVPGM command  is allowed on  this program.   Y or
                 N  will  be  returned.    If  specified,  it  must  be
                 declared as *CHAR LEN(1).

   ALWBNDUPD     An  optional   return   variable   for   whether   the
                 UPDSRVPGM  command  is allowed  to  change  the  bound
                 *SRVPGM library  names on this  program.  Y  or N will
                 be  returned.   If specified,  it must  be declared as
                 *CHAR LEN(1).

   PROFLDATA     An optional  return  variable for  the profiling  data
                 attribute of the program.

                 *NOCOL is  returned if  profiling data is  not enabled
                 and profiling data is not applied.

                 *COL  is returned if profiling data  is enabled for at
                 least one module bound into the service program.

                 *APYBLKORD is returned  if block-order profiling  data
                 has been applied to at least one module.

                 *APYPRCORD  is returned  if procedure-order  profiling
                 data has been applied to at least one module.

                 *APYALL    is     returned    if    block-order    and
                 procedure-order profiling  data  has been  applied  to
                 the service program.

                 If specified,  it must be  declared as  *CHAR LEN(10).

   TERASPCMOD    An   optional  return   variable  for   the  teraspace
                 storage   capability  of  the  modules  bound  to  the
                 service program.

                 0 is returned if no modules are enabled.

                 1 is returned if one or more modules are enabled.

                 2 is returned if all modules are enabled.

                 If specified, it must be declared as *CHAR LEN(1).

   STGMODEL      An  optional return  variable  for  whether  automatic
                 and static  storage are allocated  from the teraspace.

                 *SNGLVL  is  returned if  allocated  from single-level
                 storage.

                 *TERASPACE is  returned if  allocated from  teraspace.

                 *INHERIT is  returned if automatic and  static storage
                 are allocated from either.

                 If  specified, it must  be declared  as *CHAR LEN(10).

   TEXT          An optional return variable  for the text  description
                 of the  service  program.   If specified,  it must  be
                 declared as *CHAR LEN(50).

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

Because  the command returns  variables, it may  only be executed  in a
CL program.

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

None.

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

None, the tool is ready to use.

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

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

   RTVSRVPGMA    *CMD                   TAAPGMW       QATTCMD
   TAAPGMWC      *PGM       CLP         TAAPGMWC      QATTCL
					

Added to TAA Productivity tools November 1, 1997


Home Page Up to Top