Section for use

All

Syntax

READ_LST ListName Option

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

↑ Top of page