7.65.2 GET_ENTRY の使用例
例1：#ORDERLINEというリストから項目番号5の項目を取得します。
GET_ENTRY NUMBER(5) FROM_LIST(#ORDERLINE)
例2：#ORDERLINEという既存のリストから項目番号7～42の項目を取得し、フィールド#QUANTITYの値を10%増加させます。
DEF_LIST NAME(#ORDERLINE) FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE) DEFINE FIELD(#ENTRY) TYPE(DEC) LENGTH(7) DECIMALS(0) CHANGE FIELD(#ENTRY) TO(7) DOWHILE COND('#ENTRY *LE 42') GET_ENTRY NUMBER(#ENTRY) FROM_LIST(#ORDERLINE) CHANGE FIELD(#QUANTITY) TO('#QUANTITY 1.1') UPD_ENTRY IN_LIST(#ORDERLINE) CHANGE FIELD(#ENTRY) TO('#ENTRY + 1') ENDWHILE