注意: 9.1 組み込み関数の規則 &<a href="bifcat2_11.htm"&>利用オプション&</a&>
データ・ディクショナリから影響リスト・エントリーとその記述のリストを取得して、呼び出し元のRDMLファンクションに可変長の作業リストで戻します。事前にLANSA開発メニューを使用して影響リストを作成し、エントリーを追加しておく必要があります。
この BIF は、9.2 開発環境のみで使用される組み込み関数です。
引数
番号 |
タイプ |
必須/任意 |
記述 |
最小長 |
最大長 |
最小小数桁数 |
最大小数桁数 |
1 |
A |
必須 |
取得するエントリーが入っている影響リストの名前 |
7 |
7 |
|
|
2 |
A |
必須 |
開始位置の値。エントリー・タイプとエントリー名が含まれています。戻されるリストは、影響リストの中で、この引数で渡された値よりも大きく、かつ一番近いエントリーから始まります。 |
1 |
22 |
|
|
戻り値
番号 |
タイプ |
必須/任意 |
記述 |
最小長 |
最大長 |
最小小数桁数 |
最大小数桁数 |
1 |
L |
必須 |
フィールド情報を含める作業リスト。呼び出し元のRDMLファンクションは、項目の長さの合計が正確に70バイトの作業リストを提供しなければなりません。 |
|
|
|
|
2 |
A |
任意 |
戻されたリストの最後のエントリー。通常、この値は次にこの組み込み関数を呼び出す時にポジショニング用の引数として使用されます。 |
1 |
22 |
|
|
3 |
A |
任意 |
戻りコード |
2 |
2 |
|
|
例
このファンクションを使用すれば、影響リストの中にあるファイル・エントリーをコンパイルすることができます。影響リストは、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