The Expand Value command is intended for the situation where a RTV
command returns a list of values in a single variable that may not
have a space between the values and you want to use the list in
QCMDEXC.
For example, the RTVUSRPRF command returns the SUPGRPPRF value as a
list of up to 15 user profile names in a 150 byte return variable.
To use the list in QCMDEXC, there must be blanks separating the
values. EXPVAL puts the blanks in for you.
The coding would be as:
DCL &OUTVAR *CHAR LEN(1000)
DCL &SUPGRPPRF *CHAR LEN(150)
.
RTVSYSVAL SUPGRPPRF(&SUPGRPPRF)
EXPVAL INPVAR(&SUPGRPPRF) OUTVAR(&OUTVAR) VALLEN(10)
.
CALL QCMDEXC PARM(...SUPGRPPRF(' *CAT +
&OUTVAR *TCAT ')' ...)
EXPVAL bumps through the input variable. Each value is moved to the
output based on the length. After each value is moved, a blank is
inserted into the output.
When an all blank input value exists, the command ends.
An option exists to allow the values to be trimmed off when they are
returned (the blank separator still exists). This may be helpful
when using the return value in a message.
Command parameters *CMD
------------------
INPVAR The input variable. It may be up to 800 bytes. The
length of each value is determined by the VALLEN
parameter. The first all blank value determines the
end of the list. No other values will be
considered.
OUTVAR The return variable for the expanded value. It must
be declared as *CHAR LEN(1000). The output will
appear with a blank following the each value.
VALLEN The length of each value. The default is 10.
TRIM A *YES/*NO value for whether the values should be
trimmed off so there are not excess blanks.
The default is *NO meaning the values are not
trimmed. For example, if VALLEN(10) is specified,
each value will appear as 10 bytes followed by a
blank or 11 positions for each value.
*YES may be specified so if the values have trailing
blanks, they will be trimmed off. A single blank
will separate the values. This option can be
helpful if you are placing the values in a message.
Restrictions
------------
Because the command returns a variable, it can only be used in a CL
program.
The first all blank entry ends the command.
Prerequisites
-------------
None.
Implementation
--------------
None, the tool is ready to use:
Objects used by the tool
------------------------
Object Type Attribute Src member Src file
------ ----- --------- ---------- -----------
EXPVAL *CMD TAACLQE QATTCMD
TAACLQEC *PGM CLP TAACLQEC QATTCL
|
