HRシステムの全社員を選択し、インスタンスリストに追加する場合の非表示フィルターの例を以下に示します。
フィルターが見えていないことに注意してください。このフィルターは、以下のような初期化されていないルーチンを持っています。
Mthroutine Name(uInitialize) Options(*Redefine)
* アンセスターを実行 ....
Invoke #Com_Ancestor.uInitialize
* これを非表示フィルターとして定義 (非表示フィルターの場合、常識的にも
* フィルターは 1 つのみにする)
Set #Com_Owner avHiddenFilter(TRUE)
* すべての社員詳細でインスタンスリストを埋める
Invoke #avListManager.BeginListUpdate
Invoke #avListManager.ClearList
Select Fields(#EmpNo #SurName #GiveName) From_File(PSLMST)
Use BConcat (#GiveName #SurName) #Std_TextL
Invoke Method(#avListManager.AddtoList) Visualid1(#Empno) Visualid2(#Std_TextL) Akey1(#Empno)
EndSelect
Invoke #avListManager.EndListUpdate
* 終了
EndRoutine
