feat(charka): SET ... TO TRUE — escribir nombres de condición (88)
1* corpus charka — nivel 5: SET de nombres de condición (nivel 88)
2IDENTIFICATION DIVISION.
3PROGRAM-ID. BANDERA.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-ESTADO PIC X VALUE 'N'.
7 88 ACTIVO VALUE 'S'.
8 88 INACTIVO VALUE 'N'.
901 WS-NIVEL PIC 9(1) VALUE 0.
10 88 NIVEL-MAX VALUE 9.
11PROCEDURE DIVISION.
12MAIN.
13 IF INACTIVO
14 DISPLAY 'EMPIEZA INACTIVO'
15 END-IF.
16 SET ACTIVO TO TRUE.
17 IF ACTIVO
18 DISPLAY 'AHORA ACTIVO'
19 END-IF.
20 SET NIVEL-MAX TO TRUE.
21 DISPLAY 'NIVEL = ' WS-NIVEL.
22 STOP RUN.