IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-INITIALIZE-15.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-CLIENT.
    05  WS-NOM     PIC X(20) VALUE SPACES.
    05  WS-AGE     PIC 99    VALUE 00.
    05  WS-CODE    PIC X(03) VALUE SPACES.

PROCEDURE DIVISION.
    MOVE "DURAND" TO WS-NOM
    MOVE 35		  TO WS-AGE
    MOVE "A17"    TO WS-CODE

    DISPLAY "Avant initialize :"
    DISPLAY "Nom  : " WS-NOM
    DISPLAY "Age  : " WS-AGE
    DISPLAY "Code : " WS-CODE

    INITIALIZE WS-CLIENT

    DISPLAY "Apres initialize :"
    DISPLAY "Nom  : " WS-NOM
    DISPLAY "Age  : " WS-AGE
    DISPLAY "Code : " WS-CODE
    STOP RUN.