ADELIA |
VADELIA |
SADELIA |
WADELIA |
MADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(I) (C/S) |
Attention : dans le cas des programmes de type ADELIA, cet ordre n'est pas compatible avec le générateur C.
Paragraphe d'utilisation
Tous
Syntaxe
QUITTER_BOUCLE
Description
Cet ordre permet de forcer la sortie d'une boucle TANT_QUE, CHARGT_LST et LECTURE_LST.
Par exemple
Contexte Visual Adélia :
LECTURE_LST ZLISTE:LISTE *SELECT
APPELER PGM1 PCODE_RETOUR ZONE1
SI PCODE_RETOUR = 'ER'
QUITTER_BOUCLE
FIN
FIN_LECTURE_LST
Contexte Adélia et Visual Adélia :
I = 1
TANT QUE I<1000
SI T(I) = *BLANK
QUITTER_BOUCLE
FIN
I = I + 1
REFAIRE