ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(B) (C/S) |
Warning: In the case of ADELIA programs, this instruction is not compatible with C generator.
Section for use
All
Syntax
LEAVE_LOOP
Description
This instruction can be used to force the system to exit from a DO_WHILE, LOADING_LST or READ_LST loop.
Example
Visual Adelia context:
READ_LST ZLIST:LIST *SELECT
CALL PGM1 PRET_CODE ZFIELD1
IF PRET_CODE = 'ER'
LEAVE_LOOP
END
END_READ_LST
Adelia and Visual Adelia context:
I = 1
DO_WHILE I<1000
IF T(I) = *BLANK
LEAVE_LOOP
END
I = I + 1
REDO