IDENTIFICATION DIVISION.
PROGRAM-ID. LISTE-FRUITS.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  FRUITS.
    05  FRUIT-ITEM      PIC X(12) OCCURS 6 TIMES.
01  IDX                 PIC 9 VALUE 1.

PROCEDURE DIVISION.
    MOVE "Pomme       " TO FRUIT-ITEM(1)
    MOVE "Poire       " TO FRUIT-ITEM(2)
    MOVE "Banane      " TO FRUIT-ITEM(3)
    MOVE "Kiwi        " TO FRUIT-ITEM(4)
    MOVE "Fraise      " TO FRUIT-ITEM(5)
    MOVE "Mangue      " TO FRUIT-ITEM(6)

    PERFORM VARYING IDX FROM 1 BY 1
            UNTIL   IDX > 6
        DISPLAY "Fruit numero " IDX " = " FRUIT-ITEM(IDX)
    END-PERFORM.

    STOP RUN.