4. Condition simple

IDENTIFICATION DIVISION.
PROGRAM-ID. ConditionAge.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 AGE PIC 99 VALUE 18.

PROCEDURE DIVISION.
    IF AGE GREATER THAN 17
        DISPLAY "Majeur"
    ELSE
        DISPLAY "Mineur".
    STOP RUN.

Les démos : IF

5. MOVE et affichage composé

IDENTIFICATION DIVISION.
PROGRAM-ID. UtilisationMove.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NOM PIC X(20).
01 MESSAGE PIC X(30).

PROCEDURE DIVISION.
    MOVE "Jean" TO NOM.
    MOVE "Bienvenue, " TO MESSAGE.
    DISPLAY MESSAGE WITH NO ADVANCING.
    DISPLAY NOM.
    STOP RUN.

Les démos : MOVE

6. Boucle PERFORM UNTIL

IDENTIFICATION DIVISION.
PROGRAM-ID. Compteur.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 COMPTEUR PIC 9(2) VALUE 1.

PROCEDURE DIVISION.
    PERFORM UNTIL COMPTEUR GREATER THAN 5
        DISPLAY "Valeur : ", COMPTEUR
        ADD 1 TO COMPTEUR
    END-PERFORM.
    STOP RUN.