IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-INSPECT-23.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-TEXTE      PIC X(60) VALUE SPACES.
01  WS-NB-TIRETS  PIC 99    VALUE 00.

PROCEDURE DIVISION.
    DISPLAY "Saisissez une phrase avec des tirets (ex : A-B-C) : "
    ACCEPT WS-TEXTE

    MOVE 0 TO WS-NB-TIRETS

    INSPECT WS-TEXTE
		TALLYING WS-NB-TIRETS FOR ALL "-"

    DISPLAY "Nombre de tirets : " WS-NB-TIRETS

    INSPECT WS-TEXTE
		REPLACING ALL "-" BY "/"

    DISPLAY "Texte modifie : " WS-TEXTE
    STOP RUN.