ADELIA |
VADELIA |
SADELIA |
WADELIA |
MADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(I) (C/S) |
Warning: In the case of ADELIA programs, this instruction is not compatible with C generator.
Section for use
All
Syntax
CHANGE_ELT ListName Option
Option |
Þ |
*SELECT | *UNSELECT | None |
Description
This instruction modifies the current element in the list ListName, taking the new values of the variables in it.
The option Option can be used to select (*SELECT) or unselect (*UNSELECT) the current element. It sets the modified element's "Changed" status to TRUE.
Warning: This option (*SELECT or *UNSELECT) cannot be used with ADELIA programs.
Once this instruction has been executed, the modified element becomes the current element.
The predefined function &CODE_LST on the list indicates whether the modification was successful.
Below are the possible values:
Value |
|
*INVALID_OP |
The modification failed (current element is invalid). |
*NORMAL |
The modification was successful. |
Example
Adelia context:
DECL LIST ITEM_LST WITEM WITEM_PRICE
READ_F_ELT ITEM_LST
DO_WHILE &LST_CODE(ITEM_LST) = *NORMAL
WITEM_PRICE = WITEM_PRICE*1,1
CHANGE_ELT ITEM_LST
READ_NX_ELT ITEM_LST
REDO
Visual Adelia context:
CHANGE_ELT List1
CHANGE_ELT List1 *SELECT
CHANGE_ELT List2 *UNSELECT
* The following program seeks elements in the graphical list ITEM_LST,
* modifies the unit price if it is higher than 1,500 and selects from the list the lines which have been modified
READ_LST ITEM_LST:LIST
IF ZIITEM_PRICE > 1,500
ZIITEM_PRICE = ZIITEM_PRICE * 0.8
CHANGE_ELT ITEM_LST:LIST *SELECT
END
END_READ_LST
Other example:
* read loop on a graphic list (VADELIA or WADELIA program) to take into account all the selected lines for updating
READ_LST LST_EMPLOYEE:LIST *SELECT
*
P_ACTION_CODE = 'UP'
P_EMPL_CODE = *BLANK
P_EMPL_CODE = ZZ_EMPL_CODE
*
CALL UPD_EMPLOYEE P_EMPL_CODE P_ACTION_CODE
IF P_ACTION_CODE = 'OK'
READ_SQL EMPLOYEE *COND(EM_EMPL_CODE = :P_EMPL_CODE)
PRESENT EMPLOYEE
CHANGE_ELT LST_EMPLOYEE:LIST *DESELECT
END
*
END_READ_LST