注意: 9.1 組み込み関数の規則 &<a href="ladtgub1_0016.htm"&>利用オプション&</a&>
データ・ディクショナリから物理ファイルとその記述のリストを取得して、呼び出し元のRDMLファンクションに可変長の作業リストで戻します。
この BIF は、9.2 開発環境のみで使用される組み込み関数です。
引数
番号 |
タイプ |
必須/任意 |
記述 |
最小長 |
最大長 |
最小小数桁数 |
最大小数桁数 |
1 |
A |
必須 |
ポジショニング・ファイルの値。戻されるリストは、ディレクトリの中で、この引数で渡された値よりも大きく、かつ一番近い名前のファイルから始まります。 |
1 |
10 |
|
|
戻り値
番号 |
タイプ |
必須/任意 |
記述 |
最小長 |
最大長 |
最小小数桁数 |
最大小数桁数 |
1 |
L |
必須 |
ファイル情報を含める作業リスト |
70 |
70 |
|
|
2 |
A |
任意 |
戻されたリストの最後のファイル。通常、この値は次にこの組み込み関数を呼び出す時にポジショニング用の引数として使用されます。 |
1 |
10 |
|
|
3 |
A |
任意 |
戻りコード |
2 |
2 |
|
|
例
このファンクションを使用すれば、サイトで既存のLANSAデータベースを修正できるプログラムを作成することができます。
DEF_LIST NAME(#FILLST) FIELDS(#FILNAM #FILLIB #FILDES #SPARE) TYPE(*WORKING) ENTRYS(10) DEF_LIST NAME(#FILDSP) FIELDS((#SELECTOR *SEL) #FILNAM #FILLIB #FILDES) ********** Clear lists CLR_LIST NAMED(#FILLST) CLR_LIST NAMED(#FILDSP) ********** Request file to start from in list REQUEST FIELDS(#STRTFL) TEXT(('File to start from' 5 5)) ********** Get the list of files USE BUILTIN(GET_PHYSICAL_LIST) WITH_ARGS(#STRTFL) TO_GET(#FILLST #LAST #RETCOD) ********** If records found IF COND('(#RETCOD *EQ OK) *OR (#RETCOD *EQ OV)') SELECTLIST NAMED(#FILLST) ADD_ENTRY TO_LIST(#FILDSP) ENDSELECT ********** DISPLAY BROWSELIST(#FILDSP) ********** Process selected records SELECTLIST NAMED(#FILDSP) GET_ENTRYS(*SELECT) EXECUTE SUBROUTINE(FILE_EDIT) ENDSELECT ELSE MESSAGE MSGTXT('No files found .... Program ended') RETURN ENDIF