BOUCLES
Tant que NON (cond) faire (jusqu'à
cond)
PERFORM UNTIL cond
…
END-PERFORM
Répéter tant que NON (cond) : au – 1 fois
PERFORM UNTIL
TEST AFTER cond
…
END-PERFORM
Pour
|
PERFORM n TIMES … END-PERFORM |
PERFORM VARYING <indice> FROM iDéb BY <pas> UNTIL cond … END-PERFORM |
Affecter un
booléen
SET booléen
TO TRUE
SET booléen
TO FALSE
Opérateurs
|
= |
<> |
>= |
> |
<= |
< |
RUPTURES
Rupture = boucle(s) à l'intérieur
d'une boucle
une boucle pour le fichier
une boucle pour le groupe
Þ structures indispensables
!!
Rupture à un niveau Û 1 boucle interne
Rupture à +s niveaux Û +s boucles internes
Û +s groupes
la boucle la plus interne est pour la plus
petite entité
Rq : la lecture se fait dans
la boucle la plus interne
Groupe = ensemble d'éléments communs à +s enregistrements
d'un fic
Ex :
enregistremt
:
|
NumCli |
NumCmde |
… |
groupe = ensemble de NumCli
Tant que non fin_de_fic
Répéter
Répéter
Traitement
Lecture
Tant que non fin_groupe_interne
Tant que non fin_groupe_externe
(même NumCli)
ftq