9.120 GET_MULTVAR_LIST
Þ Note: Built-In Function Rules.
Retrieves a list of multilingual variables (*MTXT) and their value in the current language and returns them to the calling RDML function in a variable length working list.
Þ This is a Specialized Built-In Function for use in a Development Environment only.
For use with
|
Arguments
|
Return Values
|
Example
A user wants to print a list of all *MTXT variables.
DEF_LIST NAME(#MTXLST) FIELDS(#MTXNAM #MTXVAL #SPARE)
TYPE(*WORKING) ENTRYS(1000)
********** -Define the report layout-
DEF_REPORT PRT_FILE(QSYSPRT)
DEF_HEAD NAME(#HEAD01) FIELDS(#TEXT #PAGE . . . )
DEF_LINE NAME(#MTXPRT) FIELDS(#MTXNAM #MTXVAL)
********** -Set start *MTXT variable to blanks-
CHANGE FIELD(#MTXVAR) TO(*BLANKS)
********** -Get list of system variables-
USE BUILTIN(GET_MULTVAR_LIST) WITH_ARGS(#MTXVAR)
TO_GET(#MTXLST)
********** -Process list-
SELECTLIST NAME(#MTXLST)
********** -Print *MTXT variables-
PRINT LINE(#MTXPRT)
ENDSELECT
********** -Close printer file-
ENDPRINT