Page History
7.124.3 UPD_ENTRY Examples
Example 1: Define, initialize and accept input into a list from the workstation. Process and validate the input, then update the database:
...
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