Page History
[ 
|../../index.htm#lansa/get_ilentry_list.htm]
現在地:
| Anchor | ||||
|---|---|---|---|---|
|
注意: 9.1 組み込み関数の規則 &<a href="bifcat2_11.htm"&>利用オプション&</a&>利用オプション
データ・ディクショナリから影響リスト・エントリーとその記述のリストを取得して、呼び出し元のRDMLファンクションに可変長の作業リストで戻します。事前にLANSA開発メニューを使用して影響リストを作成し、エントリーを追加しておく必要があります。
この BIF は、9は、9.2 開発環境のみで使用される組み込み関数です。開発環境のみで使用される組み込み関数です。
引数
番号 | タイプ | 必須/任意 | 記述 | 最小長 | 最大長 | 最小小数桁数 | 最大小数桁数 |
1 | A | 必須 | 取得するエントリーが入っている影響リストの名前 | 7 | 7 |
|
|
2 | A | 必須 | 開始位置の値。エントリー・タイプとエントリー名が含まれています。戻されるリストは、影響リストの中で、この引数で渡された値よりも大きく、かつ一番近いエントリーから始まります。 | 1 | 22 |
|
|
...
例
このファンクションを使用すれば、影響リストの中にあるファイル・エントリーをコンパイルすることができます。影響リストは、LANSA開発者メニュー・オプションのインパクト・リストの処理を使って、事前に作成してファイル・エントリーを追加しておく必要があります。
********** #ETYP *CHAR 2 ********** #FILE *CHAR 10 ********** #LIB *CHAR 10 ********** #DESC *CHAR 40 ********** #SPARE *CHAR 8 ********** #START *CHAR 22 ********** #LAST *CHAR 22 DEF_LIST NAME(#ELLST) FIELDS(#ETYP #FILE #LIB #DESC #SPARE) TYPE(*WORKING) ENTRYS(10) ********** Clear list CLR_LIST NAMED(#ELLST) ********** Request Impact List name REQUEST FIELDS(#ILNAME) TEXT(('Impact List to use' 5 5)) ********** Set the start value to start at the file entries CHANGE FIELD(#START) TO(FD) ********** Get the entries from the Impact List BEGIN_LOOP USE BUILTIN(GET_ILENTRY_LIST) WITH_ARGS(#ILNAME #START) TO_GET(#ELLST #LAST #RETCOD) ********** If entries found IF COND('(#RETCOD *EQ OK) *OR (#RETCOD *EQ OV)') SELECTLIST NAMED(#ELLST) IF COND('#TYP = FD') USE BUILTIN(MAKE_FILE_OPERATIONL) WITH_ARGS(#FILE #LIB) TO_GET(#RTN) ENDIF ENDSELECT ********** If more entries, set start value for repeat IF COND('#RETCOD *EQ OV') CHANGE FIELD(#START) TO(#LAST) ELSE RETURN ENDIF ********** ********** No entries ELSE RETURN ENDIF END_LOOP
[ |../../index.htm#lansa/get_ilentry_list.htm]