Page History
[ 
|../../index.htm#lansa/get_entry_e.htm]
現在地:
...
7.65.2 GET_ENTRY の使用例
例1：#ORDERLINEというリストから項目番号5の項目を取得します。 例1：#ORDERLINEというリストから項目番号5の項目を取得します。
GET_
...
ENTRY NUMBER(5)
...
FROM_LIST(#ORDERLINE)
例2：#ORDERLINEという既存のリストから項目番号7～42の項目を取得し、フィールド#QUANTITYの値を10%増加させます。 例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