ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(B) (C/S) |
Paragraphe d'utilisation
Tous
Syntaxe
REFAIRE
Description
Cet ordre marque la fin d'un pavé de traitement d'une itération.
A chaque ordre TANT_QUE doit correspondre un ordre REFAIRE.
Le programme, lorsqu'il rencontre un ordre REFAIRE, redonne la main à l'ordre TANT_QUE associé.
Important : bien que l'utilisation de l'ordre FIN à la place de l'ordre REFAIRE soit tolérée dans les programmes de type ADELIA, par souci de lisibilité et de cohérence, il est conseillé d'utiliser l'ordre FIN en association avec l'ordre SI et l'ordre REFAIRE en association avec l'ordre TANT_QUE.
Par exemple
a) expression simple :
*
LIRE_SUIVANT COMMANDES
TANT_QUE CODE COMMENCE_PAR 'S'
IMPRIMER FMT_LIGNE
LIRE_SUIVANT COMMANDES
REFAIRE
b) Expression complexe :
*
TANT_QUE CODE = 'S' ET ( CATEG_EMPLOYEE > 300 OU TYPE_REGLT = 'VIRT' )
TOTAL = TOTAL + ( MONTANT_SALAIRE * 12 )
TOTAL_JOURS = TOTAL_JOURS + JOURS_MOIS
REFAIRE
c) Condition utilisant des boucles imbriquées :
*
POSITIONNER_AV ENTETE_CDE
TANT_QUE ENTETE_CDE EXISTE
IMPRIMER FMT_ENTETE
*
POSITIONNER_AV LIGNES_CDE
TANT_QUE LIGNES_CDE EXISTE
IMPRIMER FMT_DETAIL
LIRE_SUIVANT LIGNES_CDE
REFAIRE
*
LIRE_SUIVANT ENTETE_CDE
REFAIRE