⎇ 28ee1ae2602662b216549ba4db0d34a9b55b8deb
crates/modules/charka/corpus/10-condicion.cob
Historia
crudo
feat(charka): nivel 88 + modelo de datos compartido en charka-ir
1* corpus charka — nivel 5: nombres de condición (nivel 88)
2IDENTIFICATION DIVISION.
3PROGRAM-ID. SEMAFORO.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-LUZ PIC X(5) VALUE 'ROJO'.
7 88 ES-PARE VALUE 'ROJO'.
8 88 ES-SIGA VALUE 'VERDE'.
901 WS-CODIGO PIC 9(1) VALUE 0.
10 88 ES-EXITO VALUE 0.
11PROCEDURE DIVISION.
12MAIN.
13 IF ES-PARE
14 DISPLAY 'LUZ ROJA: DETENERSE'
15 END-IF.
16 IF ES-EXITO
17 DISPLAY 'CODIGO OK'
18 END-IF.
19 MOVE 'VERDE' TO WS-LUZ.
20 MOVE 9 TO WS-CODIGO.
21 IF ES-SIGA
22 DISPLAY 'LUZ VERDE: AVANZAR'
23 END-IF.
24 IF ES-EXITO
25 DISPLAY 'CODIGO OK'
26 ELSE
27 DISPLAY 'CODIGO DE ERROR'
28 END-IF.
29 STOP RUN.