Page History
[ 
|../../index.htm#lansa/dlt_entry_e.htm]
現在地:
...
7.37.3 DLT_ENTRY の使用例
例1：明細行作業リストから3番目の項目を削除します。このリストは、プログラムで定義されている最初のリストです。例1：明細行作業リストから3番目の項目を削除します。このリストは、プログラムで定義されている最初のリストです。
| Code Block |
|---|
DEF_ |
...
LIST NAME(#ORDERLINE) |
...
FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE) TYPE(*WORKING) * |
...
... |
...
<entries added to the order line list via ADD_ENTRY> GET_ENTRY NUMBER(3) |
...
FROM_LIST(#ORDERLINE) |
...
DLT_ |
...
ENTRY |
これは以下の例と同じ結果になります。
| Code Block |
|---|
GET_ENTRY NUMBER(3) FROM_LIST(#ORDERLINE) DLT_ENTRY NUMBER(*CURRENT) FROM_LIST(*FIRST) |
これは以下の例とも同じ結果になります。
| Code Block |
|---|
GET_ENTRY NUMBER(3) FROM_LIST(#ORDERLINE) DLT_ENTRY NUMBER(*CURRENT) FROM_LIST(#ORDERLINE) |
...
|
これは以下の例とも同じ結果になります。
| Code Block |
|---|
DLT_ENTRY NUMBER(3) FROM_LIST(#ORDERLINE) |
...
例2：#ORDERLINEという既存の作業リストの項目をすべて削除します。フィールド#QUANTITYの値は0以下です。
| Code Block |
|---|
DEF_ |
...
LIST NAME(#ORDERLINE) |
...
FIELDS(#ORDLIN #PRODUCT #QUANTITY #PRICE) TYPE(*WORKING) |
...
DEFINE FIELD(#ENTRY) |
...
TYPE(*DEC) |
...
LENGTH(7) |
...
DECIMALS(0) |
...
SELECTLIST NAMED(#ORDERLINE) |
...
IF COND(' |
...
#QUANTITY *LE 0') DLT_ |
...
ENTRY NUMBER(*CURRENT) |
...
FROM_LIST(#ORDERLINE) ENDIF |
...
ENDSELECT |