7.122.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