Page 1 - Page 2 - Page 3 -

7. SWITCH avec EVALUATE

IDENTIFICATION DIVISION.
PROGRAM-ID. MenuSimple.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 CHOIX PIC 9 VALUE 2.

PROCEDURE DIVISION.
    EVALUATE CHOIX
        WHEN 1 DISPLAY "Option 1"
        WHEN 2 DISPLAY "Option 2"
        WHEN OTHER DISPLAY "Option inconnue"
    END-EVALUATE.
    STOP RUN.

Les démos : EVALUATE

8. Affichage multilignes

IDENTIFICATION DIVISION.
PROGRAM-ID. MessageCompose.

PROCEDURE DIVISION.
    DISPLAY "Bienvenue".
    DISPLAY "dans la formation COBOL".
    STOP RUN.

9. Virgule décimale virtuelle (V)

IDENTIFICATION DIVISION.
PROGRAM-ID. CalculMontant.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 PRIX PIC 9(3)V99 VALUE 12500.
01 TVA PIC 9(3)V99 VALUE 0.20.
01 TOTAL PIC 9(5)V99.

PROCEDURE DIVISION.
    COMPUTE TOTAL = PRIX + (PRIX * TVA).
    DISPLAY "Montant TTC : ", TOTAL.
    STOP RUN.

10. WITH NO ADVANCING

IDENTIFICATION DIVISION.
PROGRAM-ID. AffichageLigne.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NOM PIC X(10) VALUE "Luc".

PROCEDURE DIVISION.
    DISPLAY "Bonjour, " WITH NO ADVANCING.
    DISPLAY NOM.
    STOP RUN.

En COBOL, l’instruction DISPLAY affiche un texte ou la valeur d’une variable, et elle ajoute automatiquement un saut de ligne après l'affichage, comme println dans d'autres langages. L’option WITH NO ADVANCING empêche le saut de ligne. Elle permet donc de continuer l’affichage sur la même ligne.

Les démos : WITH NO ADVANCING