Téléchargement des produits


Version anglaise


 


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


↑ Haut de page

  • Aucune étiquette