Page History
[ 
|../../index.htm#lansa/upd_entry_e.htm]
現在地:
...
7.124.3 UPD_ENTRY の使用例
...
例1：ワークステーションからリストへの入力を定義、初期化し、受け入れます。入力を処理し、妥当性検査を実行してから、データベースを更新します。
DEF_LIST NAME(#ORDERLINE)
...
FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE)
SET_MODE TO(*ADD)
...
CHANGE FIELD(#ORDERLINE)
...
TO(*NULL)
...
INZ_LIST NAMED(#ORDERLINE)
...
NUM_ENTRYS(10)
...
DISPLAY BROWSELIST(#ORDERLINE)
BEGINCHECK
SELECTLIST NAMED(#ORDERLINE) GET_ENTRYS(*NOTNULL)
...
* VALUECHECK --
* CONDCHECK | Various validation checks
* RANGECHECK | performed against each list entry
* FILECHECK --
UPD_ENTRY IN_LIST(#ORDERLINE)
...
ENDSELECT
ENDCHECK IF_ERROR(*LASTDIS)
...
SELECTLIST NAMED(#ORDERLINE)
...
GET_ENTRYS(*ALL)
...
INSERT FIELDS(#ORDERLINE)
...
TO_FILE(ORDLIN)
...
ENDSELECT