* corpus charka — nivel 5: grupos, COMPUTE con paréntesis, ROUNDED
IDENTIFICATION DIVISION.
PROGRAM-ID. NOMINA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-EMPLEADO.
   05 WS-NOMBRE  PIC X(10)   VALUE 'ANA'.
   05 WS-HORAS   PIC 9(3)    VALUE 45.
   05 WS-TARIFA  PIC 9(3)V99 VALUE 8.50.
01 WS-BRUTO     PIC 9(6)V99 VALUE 0.
01 WS-EXTRA     PIC 9(6)V99 VALUE 0.
01 WS-IMPUESTO  PIC 9(6)V99 VALUE 0.
01 WS-NETO      PIC 9(6)V99 VALUE 0.
PROCEDURE DIVISION.
MAIN-PARA.
    PERFORM CALCULAR-BRUTO.
    PERFORM CALCULAR-IMPUESTO.
    COMPUTE WS-NETO = WS-BRUTO - WS-IMPUESTO.
    DISPLAY 'EMPLEADO: ' WS-NOMBRE.
    DISPLAY 'BRUTO: ' WS-BRUTO.
    DISPLAY 'IMPUESTO: ' WS-IMPUESTO.
    DISPLAY 'NETO: ' WS-NETO.
    STOP RUN.
CALCULAR-BRUTO.
    IF WS-HORAS > 40
        COMPUTE WS-EXTRA = (WS-HORAS - 40) * WS-TARIFA
        COMPUTE WS-BRUTO = 40 * WS-TARIFA + WS-EXTRA
    ELSE
        COMPUTE WS-BRUTO = WS-HORAS * WS-TARIFA
    END-IF.
CALCULAR-IMPUESTO.
    COMPUTE WS-IMPUESTO ROUNDED = WS-BRUTO * 0.15.
