IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-UNSTRING-22.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-LIGNE      PIC X(60) VALUE SPACES.
01  WS-PRENOM     PIC X(15) VALUE SPACES.
01  WS-NOM PIC X(15) VALUE SPACES.
01  WS-VILLE      PIC X(15) VALUE SPACES.

PROCEDURE DIVISION.
    DISPLAY "Saisissez : prenom;nom;ville"
    DISPLAY "Exemple : Paul;Martin;Lyon"
    DISPLAY "Votre saisie : "
    ACCEPT WS-LIGNE

    MOVE SPACES TO WS-PRENOM
    MOVE SPACES TO WS-NOM
    MOVE SPACES TO WS-VILLE

    UNSTRING WS-LIGNE
		DELIMITED BY ";"
		INTO WS-PRENOM
			 WS-NOM
			 WS-VILLE
    END-UNSTRING

    DISPLAY "Prenom : " WS-PRENOM
    DISPLAY "Nom    : " WS-NOM
    DISPLAY "Ville  : " WS-VILLE
    STOP RUN.