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