9.99 GET_MULTVAR_LIST
注意: 9.1 組み込み関数の規則 &<a href="bifcat3_04.htm"&>利用オプション&</a&>
現在の言語で言語変数(*MTXT)とその値のリストを取得して、呼び出し元のRDMLファンクションに可変長の作業リストで戻します。
この BIF は、9.2 開発環境のみで使用される組み込み関数です。
引数
番号 |
タイプ |
必須/任意 |
記述 |
最小長 |
最大長 |
最小小数桁数 |
最大小数桁数 |
1 |
A |
必須 |
ポジショニング用の*MTXT変数。戻されるリストは、ディレクトリの中で、この引数で渡された値よりも大きく、かつ一番近い名前の*MTXT変数から始まります。 |
1 |
20 |
|
|
戻り値
番号 |
タイプ |
必須/任意 |
記述 |
最小長 |
最大長 |
最小小数桁数 |
最大小数桁数 |
1 |
L |
必須 |
*MTXT 変数の情報を含める作業リスト |
108 |
108 |
|
|
2 |
A |
任意 |
リストの最後の*MTXT変数。通常、この値は次にこの組み込み関数を呼び出す時にポジショニング用の引数として使用されます。 |
1 |
20 |
|
|
3 |
A |
任意 |
戻りコード |
2 |
2 |
|
|
例
すべての*MTXT変数のリストを印刷します。
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