* corpus charka — nivel 5: SET de nombres de condición (nivel 88)
IDENTIFICATION DIVISION.
PROGRAM-ID. BANDERA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-ESTADO   PIC X VALUE 'N'.
   88 ACTIVO   VALUE 'S'.
   88 INACTIVO VALUE 'N'.
01 WS-NIVEL    PIC 9(1) VALUE 0.
   88 NIVEL-MAX VALUE 9.
PROCEDURE DIVISION.
MAIN.
    IF INACTIVO
        DISPLAY 'EMPIEZA INACTIVO'
    END-IF.
    SET ACTIVO TO TRUE.
    IF ACTIVO
        DISPLAY 'AHORA ACTIVO'
    END-IF.
    SET NIVEL-MAX TO TRUE.
    DISPLAY 'NIVEL = ' WS-NIVEL.
    STOP RUN.