Example 1: Delete the 3rd entry from the order line working list, which is the first list defined in the program:
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 |
which is equivalent to:
GET_ENTRY NUMBER(3) FROM_LIST(#ORDERLINE) DLT_ENTRY NUMBER(*CURRENT) FROM_LIST(*FIRST) |
which is also equivalent to:
GET_ENTRY NUMBER(3) FROM_LIST(#ORDERLINE) DLT_ENTRY NUMBER(*CURRENT) FROM_LIST(#ORDERLINE) |
which is also equivalent to:
DLT_ENTRY NUMBER(3) FROM_LIST(#ORDERLINE) |
Example 2: Delete all entries in an existing working list named #ORDERLINE, where the field #QUANTITY is less than or equal to 0:
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 |