tawasuyu

tawasuyu/brahman

Rust 492TOML 194Markdown 53JSON 176939 Sutichaykuna

⎇ 82ba0b7a1a04b7ff2d7e2175ac74766da0d16066 crates/modules/charka/corpus/16-bandera.cob 22 siq'ikuna · 541 B Ñawpa willay ch'uya

feat(charka): SET ... TO TRUE — escribir nombres de condición (88) 82ba0b7a1 · sergio · 

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.