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
|
