⎇ 4d9ce11b1e444430e6e2bcc0a72baa1d40a4527c
crates/modules/charka/corpus/06-nomina.cob
Ñawpa willay
ch'uya
feat(charka): charka-shadow — validador en sombra + corpus COBOL
1* corpus charka — nivel 5: grupos, COMPUTE con paréntesis, ROUNDED
2IDENTIFICATION DIVISION.
3PROGRAM-ID. NOMINA.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-EMPLEADO.
7 05 WS-NOMBRE PIC X(10) VALUE 'ANA'.
8 05 WS-HORAS PIC 9(3) VALUE 45.
9 05 WS-TARIFA PIC 9(3)V99 VALUE 8.50.
1001 WS-BRUTO PIC 9(6)V99 VALUE 0.
1101 WS-EXTRA PIC 9(6)V99 VALUE 0.
1201 WS-IMPUESTO PIC 9(6)V99 VALUE 0.
1301 WS-NETO PIC 9(6)V99 VALUE 0.
14PROCEDURE DIVISION.
15MAIN-PARA.
16 PERFORM CALCULAR-BRUTO.
17 PERFORM CALCULAR-IMPUESTO.
18 COMPUTE WS-NETO = WS-BRUTO - WS-IMPUESTO.
19 DISPLAY 'EMPLEADO: ' WS-NOMBRE.
20 DISPLAY 'BRUTO: ' WS-BRUTO.
21 DISPLAY 'IMPUESTO: ' WS-IMPUESTO.
22 DISPLAY 'NETO: ' WS-NETO.
23 STOP RUN.
24CALCULAR-BRUTO.
25 IF WS-HORAS > 40
26 COMPUTE WS-EXTRA = (WS-HORAS - 40) * WS-TARIFA
27 COMPUTE WS-BRUTO = 40 * WS-TARIFA + WS-EXTRA
28 ELSE
29 COMPUTE WS-BRUTO = WS-HORAS * WS-TARIFA
30 END-IF.
31CALCULAR-IMPUESTO.
32 COMPUTE WS-IMPUESTO ROUNDED = WS-BRUTO * 0.15.