The Retrieve ILE Program Attributes command retrieves the attributes
from an ILE *PGM object. The RTVPGMA tool should be used to retrieve
the basic program attributes. See the RTVILEMODA command for
information about the modules of the program.
A typical command would be:
DCL &NBRMOD *DEC LEN(5 0)
.
RTVILEPGMA PGM(xxx) NBRMOD(&NBRMOD)
The number of modules in the ILE program would be retrieved.
TAA9893 is sent as an escape message if the program is not an ILE
type.
Command parameters *CMD
------------------
PGM The qualified program to be retrieved. It must be
an ILE program. The library value defaults to
*LIBL. *CURLIB may also be used.
RTNLIB An optional return variable that will contain the
library name where the program was found. The value
may be helpful if the program is accessed without a
specific library name. If specified, the variable
must be declared as *CHAR LEN(10).
ENTMOD An optional return variable that will contain the
entry module name. If specified, the variable must
be declared as *CHAR LEN(10).
ENTMODL An optional return variable that will contain the
entry module library. If specified, the variable
must be declared as *CHAR LEN(10).
ACTGRPATR An optional return variable that will contain the
activation group attribute. The value will be *NEW,
*DFTACTGRP, *CALLER, or an activation group name.
If specified, the variable must be declared as *CHAR
LEN(30).
ALLCRTDTA An optional return variable that will contain
whether creation data exists. The value will be
*NO, *ALL, or *UNOB (unobservable). If specified,
the variable must be declared as *CHAR LEN(5).
OBSCMP An optional return variable that will contain
whether the observable information associated with
the program has been compressed. The value will be
Y or N. If specified, the variable must be declared
as *CHAR LEN(1).
RUNTIMCMP An optional return variable that will contain
whether the run time information associated with the
program has been compressed. The value will be Y or
N. If specified, the variable must be declared as
*CHAR LEN(1).
RLSCRTON An optional return variable that will contain the
release the program was created on. The value will
be an entry such as V3R6M0. If specified, the
variable must be declared as *CHAR LEN(6).
RLSCRTFOR An optional return variable that will contain the
release the program was created for. This is the
target release of the program and is the earliest
release the program can run on. The value will be
an entry such as V3R6M0. If specified, the variable
must be declared as *CHAR LEN(6).
SHRACTGRP An optional return variable that will contain
whether the program runs in a shared activation
group. The value will by Y or N. If specified, the
variable must be declared as *CHAR LEN(1).
ALWUPD An optional return variable that will contain
whether the UPDPGM command may be used. The value
will by Y or N. If specified, the variable must be
declared as *CHAR LEN(1).
CCSID An optional return variable that will contain the
Coded Character Set ID of the program. If
specified, the variable must be declared as *DEC
LEN(5 0).
NBRMOD An optional return variable that will contain the
number of modules in the program. If specified, the
variable must be declared as *DEC LEN(5 0).
NBRSRVPGM An optional return variable that will contain the
number of service programs bound to the program. If
specified, the variable must be declared as *DEC
LEN(5 0).
NBRCPYRGT An optional return variable that will contain the
number of Copyrights in the program. If specified,
the variable must be declared as *DEC LEN(5 0).
NBRUNRREF An optional return variable that will contain the
number of unresolved references in the program.
This is the number of symbols that could not be
resolved at CRTPGM time. If specified, the variable
must be declared as *DEC LEN(5 0).
ALWSTGINZ An optional return variable that will contain
whether the program allows static storage
re-initialization. If specified, the variable must
be declared as *CHAR LEN(1).
Restrictions
------------
Because the command returns variables, it may only be used in a CL
program.
Prerequisites
-------------
The following TAA Tools must be on your system:
SNDESCMSG Send escape message
Implementation
--------------
None, the tool is ready to use.
Objects used by the tool
------------------------
Object Type Attribute Src member Src file
------ ---- --------- ---------- ----------
RTVILEPGMA *CMD TAAPGMP QATTCMD
TAAPGMPC *PGM CLP TAAPGMPC QATTCL
|
