|
VADELIA |
|
WADELIA |
|
(I) (S) |
(I) (S) |
Warning: This instruction can only be used in server blocks, not in client blocks.
Section for use
All
Syntax
LOADING_LST LoadingName Parameter
Parameter |
→ |
*NO_MR | *MR | None |
Description
This instruction defines the beginning of a list loading block. The end of the block is defined by the END_LOADING_LST instruction.
As long as elements are read successfully, the instructions in the block are executed.
To force the system to exit the block, you must use the LEAVE_LOOP instruction.
A program can only contain the LOADING_LST instruction once for each LoadingName.
The *MR parameter allows you to generate read implicit management rules associated with the entity, even if the program is generated without the option to generate implicit rules.
The *NO_MR parameter allows you not to generate read implicit management rules associated with the entity, even if the program is generated with the option to generate implicit rules.
Example
* In the DECL PGM section of the program, declaration of a loading:
LOADING BY_NAME ODER_LST:LIST *SEQ_KEY ORDER CUST_NAME
...
* In the INITIALIZATION section of SEL_ORDER_WIN window:
CLEAR_LST ORDER_LST:LIST
LOADING_LST BY_NAME
PRESENT ORDER
INSERT_ELT ORDER_LST:LIST
END_LOADING_LST
* In the DECL PGM section of the program, declaration of a loading:
LOADING LOAD_PROD_TYP SEL_PROD_WIN.LST:LIST *SQL PRODUCT *COND(PPROD_TYP = :ZPROD_TYP) *SORT(PPROD_CODE *ASC)
* Loading declaration for the graphic list PRD_LST of the window
* SEL_PRO_WIN, on the PRODUCT entity, sorted by product code
...
* In the INITIALIZATION section of SEL_PROD_WIN window
CLEAR_LST PROD_LST:LIST
LOADING_LST LOAD_PROD_TYP
PRESENT PRODUCT
INSERT_ELT PROD_LST:LIST *END
END_LOADING_LST
* these lines permit to insert element into the graphic list PROD_LST