|
VADELIA |
SADELIA |
WADELIA |
MADELIA |
|
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(I) (C/S) |
Section for use
All
Syntax
READ_LST ListName Option
Option |
Þ |
*SELECT | *CHANGE | None |
Description
This instruction reads the elements in the list ListName. Each time it is run it transfers the values into the corresponding variables.
If the *SELECT option is specified, the system only stops on the list elements that have been selected.
If the *CHANGE option is specified, the system only stops on the list elements that have been modified. The read elements then are set to the "Non-changed" status.
To force the system to exit the block, you must use the LEAVE_LOOP instruction.
Example
READ_LST ITEM_LST:LIST *SELECT
INITIALIZE ITEM_DETAIL
EXECUTE ITEM_DETAIL
END_READ_LST
* This section searches into the graphic list ITEM_LST records that
* have been changed, and updates database accordingly
READ_LST ITEM_LST:LIST *CHANGE
BRING_BACK ITEM
UPD_SQL ITEM *ALL *COND(IITEM_CODE = :ZIITEM_CODE)
END_READ_LST
COMMIT