7.50.2 GET_ENTRYの使用例

LANSA

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