Section courante

A propos

Section administrative du site

Il existe deux instructions de conditionnelle en langage Cobol et elle est la suivante :

IF

L'instruction «IF» permet le teste d'une condition et de choisir d'effectuer des instructions plutôt que d'autre dans le cas ou celle-ci serait vrai. Voici donc les syntaxes :

IF expression_vrai
   instruction_exécuté_si_vrai

ou

IF expression_vrai
   instruction_exécuté_si_vrai
END-IF

ou

IF expression_vrai
   instruction_exécuté_si_vrai
ELSE
   instruction_exécuté_si_faux

ou

IF expression_vrai
   instruction_exécuté_si_vrai
ELSE
   instruction_exécuté_si_faux
END-IF

Vous y remarquerez donc après les syntaxes proposé que les instructions «ELSE» et «END-IF» ne sont pas obligatoires.

EVALUATE

Lorsqu'on effectue une série de teste répétitive sur une même variable avec différente valeur de la manière suivante :

IF valeur = 1
 instruction1_exécuté_si_vrai1
ELSE
   IF
valeur = 2
    instruction_exécuté_si_vrai2
   ELSE
      IF
valeur = 3
       instruction_exécuté_si_vrai3
      ELSE
       instruction_exécuté_si_faux
END-IF

On devrait plutôt tenté d'utiliser l'instruction «EVALUATE» laquelle permet une meilleure lisibilité en plus de simplifié la compréhension pour un programmeur externe à votre code. Ainsi, l'instruction EVALUATE permet d'effectuer de nombreuses comparaisons sur un unique résultat. Voici donc sa syntaxe :

EVALUATE résultat
 WHEN valeur1
  instruction1_exécuté_si_vrai1
 WHEN valeur2
  instruction_exécuté_si_vrai2
 WHEN valeur3
  instruction_exécuté_si_vrai3
 WHEN OTHER
  instruction_exécuté_si_faux
END-EVALUATE.

L'instruction «WHEN OTHER» n'est pas obligatoire, il est tout de même préférable de l'inclure pour prévenir une situation anormale ou d'erreur.



Dernière mise à jour : Jeudi, le 4 août 2011