[ 
|../../index.htm#lansa/l4wdev05_0255.htm]
現在地:
4.3.11.1 最初の例
姓をキーとして従業員データを検索するプログラムを、素朴に実装した例です。ユーザーが姓またはその一部を指定すると、これに合致する従業員データがリスト・ビューされます。
******** Define work variables and browse list to be used DEFINE FIELD(#L1COUNT) TYPE(*DEC) LENGTH(7) DECIMALS(0) DEF_LIST NAME(#L1) FIELDS((#SURNAME) (#GIVENAME) (#EMPNO) #ADDRESS1)) COUNTER(#L1COUNT) ******** Loop until terminated by EXIT or CANCEL BEGIN_LOOP ******** Get surname to search for REQUEST FIELDS(#SURNAME) ******** Build list of generically identical names CLR_LIST NAMED(#L1) SELECT FIELDS(#L1) FROM_FILE(PSLMSTV1) WITH_KEY(#SURNAME) GENERIC(*YES) ADD_ENTRY TO_LIST(#L1) ENDSELECT ******** If names found, display list to user IF COND('#L1COUNT *GT 0') DISPLAY BROWSELIST(#L1) ******** else issue error indicating none found ELSE MESSAGE MSGTXT('No employees have a surname matching request') ENDIF ******** Loop back and request next name to search for END_LOOP
機能的にはこれで充分ですが、例えば検索キーとして「D」を指定し、これに合致する従業員が800人いたとすればどうなるでしょうか。
この場合、800行ものリストが表示されることになってしまい、ユーザーにとって見にくい上に、相当の時間とコンピュータ資源を要します。
これを解消するため、所定の行数ごとにページで区切って表示する方法がよく使われます。すなわち、条件に合致するレコードを「1ページ分」だけ検索し、これを表示するという方法です。次のページに進むためのキーが押されれば、改めてレコードを検索し、表示することになります。
[ |../../index.htm#lansa/l4wdev05_0255.htm]