Page History
[ 
|../../index.htm#lansa/get_sysvar_list.htm]
現在地:
| Anchor | ||||
|---|---|---|---|---|
|
注意: 9.1 組み込み関数の規則 &<a href="bifcat3_04.htm"&>利用オプション&</a&>利用オプション
システム変数、その記述、プログラム、およびプログラム・タイプのリストを取得して、呼び出し元のRDMLファンクションに可変長の作業リストで戻します。
この BIF は、9は、9.2 開発環境のみで使用される組み込み関数です。開発環境のみで使用される組み込み関数です。
引数
番号 | タイプ | 必須/任意 | 記述 | 最小長 | 最大長 | 最小小数桁数 | 最大小数桁数 |
1 | A | 必須 | ポジショニング・システム変数。戻されるリストは、ディレクトリの中で、この引数で渡された値よりも大きく、かつ一番近い名前のシステム変数から始まります。 | 1 | 20 |
|
|
...
例
すべてのシステム変数のリストを印刷します。
DEF_LIST NAME(#VARLST) FIELDS(#VARNAM #VARDES #VARPGM #VARTYP #SPARE) TYPE(*WORKING) ENTRYS(1000) ********** Define the report layout DEF_REPORT PRT_FILE(QSYSPRT) DEF_HEAD NAME(#HEAD01) FIELDS(#TEXT #PAGE . . . ) DEF_LINE NAME(#VARPRT) FIELDS(#VARNAM #VARDES #VARPGM #VARTYP) ********** Set start system variable to blanks CHANGE FIELD(#STRVAR) TO(*BLANKS) ********** Get list of system variables USE BUILTIN(GET_SYSVAR_LIST) WITH_ARGS(#STRVAR) TO_GET(#VARLST #LAST #RETCOD) ********** If return code is OK then process list IF COND('#RETCOD *EQ OK') SELECTLIST NAMED(#VARLST) ********** Print system variables PRINT LINE(#VARPRT) ENDSELECT ********** Otherwise issue an error ELSE MESSAGE MSGTXT('An error has occurred. Report not produced.') ENDIF ********** Close printer file ENDPRINT
[ |../../index.htm#lansa/get_sysvar_list.htm]