⎇ 4d9ce11b1e444430e6e2bcc0a72baa1d40a4527c
crates/modules/charka/corpus/07-clasificar.cob
Historia
crudo
feat(charka): charka-shadow — validador en sombra + corpus COBOL
1* corpus charka — nivel 5: IF anidado y condiciones con AND
2IDENTIFICATION DIVISION.
3PROGRAM-ID. CLASIFICAR.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-EDAD PIC 9(3) VALUE 0.
701 WS-INDICE PIC 9(2) VALUE 1.
8PROCEDURE DIVISION.
9MAIN-PARA.
10 PERFORM CLASIFICAR-PARA 4 TIMES.
11 STOP RUN.
12CLASIFICAR-PARA.
13 COMPUTE WS-EDAD = WS-INDICE * 25.
14 IF WS-EDAD < 18
15 DISPLAY 'MENOR DE EDAD'
16 ELSE
17 IF WS-EDAD >= 18 AND WS-EDAD < 65
18 DISPLAY 'ADULTO'
19 ELSE
20 DISPLAY 'ADULTO MAYOR'
21 END-IF
22 END-IF.
23 ADD 1 TO WS-INDICE.