IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-SET-16.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-ETAT				PIC X VALUE "N".
    88  ETAT-ACTIF		VALUE "O".
    88  ETAT-INACTIF    VALUE "N".

PROCEDURE DIVISION.
    DISPLAY "Etat initial :"
    IF ETAT-INACTIF
		DISPLAY "Inactif."
    END-IF

    SET ETAT-ACTIF TO TRUE
    DISPLAY "Apres activation :"
    IF ETAT-ACTIF
		DISPLAY "Actif."
    END-IF

    SET ETAT-INACTIF TO TRUE
    DISPLAY "Apres desactivation :"
    IF ETAT-INACTIF
		DISPLAY "Inactif."
    END-IF

    STOP RUN.