PERFORM

La commande PERFORM en COBOL permet d'exécuter une section de code un nombre déterminé de fois ou selon une condition. Dans cet exemple introductif, nous l'utilisons pour répéter une action un nombre fixe de fois, ce qui est idéal pour les débutants apprenant les boucles simples.

Exemple de code

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO10.
PROCEDURE DIVISION.
    PERFORM 10 TIMES
        DISPLAY "Hello"
    END-PERFORM.
    STOP RUN.
        

Exemple de sortie

Lorsque vous exécutez ce programme, la sortie attendue sera :

Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
        

Explication détaillée du code

Voici une explication ligne par ligne des parties du code qui concernent le mot-clé PERFORM. Nous nous concentrons sur les éléments essentiels pour les débutants, en supposant que vous connaissez déjà les bases comme IDENTIFICATION DIVISION et PROGRAM-ID.

• PERFORM 10 TIMES : Cette ligne commence la boucle. Le mot-clé PERFORM indique au programme d'exécuter le code qui suit un certain nombre de fois. Ici, "10 TIMES" signifie que la boucle s'exécutera exactement 10 fois. C'est comme dire "répète cela 10 fois". Pour les débutants, pensez à cela comme une boucle "for" dans d'autres langages, mais en COBOL, c'est plus verbeux et lisible.
• DISPLAY "Hello" : À l'intérieur de la boucle, cette commande affiche le mot "Hello" à l'écran. DISPLAY est un mot réservé en COBOL pour imprimer du texte. Comme elle est indentée sous PERFORM, elle sera exécutée à chaque itération de la boucle (c'est-à-dire 10 fois).
• END-PERFORM : Cette ligne marque la fin de la boucle commencée par PERFORM. Tout ce qui est entre PERFORM et END-PERFORM est répété. Sans cela, le compilateur ne saurait pas où s'arrête la boucle. Pour les débutants, rappelez-vous que COBOL utilise souvent "END-" pour clore les structures comme les boucles ou les conditions.
• STOP RUN : Bien que non directement lié à PERFORM, cette ligne termine le programme après la boucle. Elle est essentielle pour que le programme s'arrête proprement.