次に以下のような再利用可能パーツを作成します。
以下のようなテスト・フォームを使用します。
EVTROUTINE HANDLING(#COM_OWNER.Initialize) select (#deptment #deptdesc) from_file(deptab) add_entry #CMBX_1 endselect get_entry number(1) from_list(#CMBX_1) ENDROUTINE