IDENTIFICATION DIVISION. PROGRAM-ID. POSODNNN. * ****************************** * ÁREA DE COMENTÁRIOS - REMARKS * AUTHOR = JULIANA * OBJETIVO: CALCULAR SALARIO LIQUIDO * DATA = 02/09/2021 * ****************************** ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 77 WRK-SALARIOBRUTO PIC 9(06)V99 VALUE ZEROS. 77 WRK-HORASMENSAISTRABALHADAS PIC 9(06) VALUE ZEROS. 77 WRK-HORASMENSAIS PIC 9(06) VALUE 160. * 77 WRK-ADCIONAL PIC 9(05) VALUE 0,5. 77 WRK-CALCHORAEXTRA PIC 9(05) VALUE ZEROS. 77 WRK-SALARIOHORA PIC 9(05)V99 VALUE ZEROS. 77 WRK-CALCULOHORA PIC 9(05) VALUE ZEROS. 77 WRK-VALORHORAEXTRA PIC 9(05) VALUE ZEROS. 77 WRK-CALCULOIR PIC 9(05) VALUE ZEROS. 77 WRK-CALCULOENCARGOS PIC 9(05) VALUE ZEROS. 77 WRK-TOTALDESCONTOS PIC 9(05) VALUE ZEROS. 77 WRK-SALARIOBRUTOMES PIC 9(05)V99 VALUE ZEROS. 77 WRK-SALARIOLIQUIDO PIC 9(05)V99 VALUE ZEROS. PROCEDURE DIVISION. 1000-PRINCIPAL. PERFORM 2000-INICIALIZAR. PERFORM 3000-PROCESSAR. PERFORM 4000-FINALIZAR. STOP RUN. 2000-INICIALIZAR. DISPLAY 'INFORME O VALOR DO SALARIO'. ACCEPT WRK-SALARIOBRUTO FROM CONSOLE. DISPLAY 'INFORME O TOTAL DE HORAS TRABALHADAS NO MES'. ACCEPT WRK-HORASMENSAISTRABALHADAS FROM CONSOLE. 3000-PROCESSAR. ************ENCONTRAR SALARIO BRUTO MENSAL *********************ENCONTRAR O TOTAL DE HEX FEITAS SUBTRACT WRK-HORASMENSAISTRABALHADAS FROM WRK-HORASMENSAIS GIVING WRK-CALCHORAEXTRA. **************************CALCULAR O VALOR POR HORA DE TRABALHO DIVIDE WRK-SALARIOBRUTO BY WRK-HORASMENSAIS GIVING WRK-SALARIOHORA. **********************CALCULAR VALOR DE HEX FEITAS MULTIPLY WRK-SALARIOHORA BY WRK-CALCHORAEXTRA GIVING WRK-CALCULOHORA. *********************CALCULAR ADICIONAL DE 50% COMPUTE WRK-CALCHORAEXTRA = WRK-CALCULOHORA * 0,5 ***************** CALCULAR VALOR TOTAL HORA EXTRA + ADICIONAL COMPUTE WRK-VALORHORAEXTRA = WRK-CALCHORAEXTRA + WRK-CALCULOHORA. **********************CALCULAR SALARIO BRUTO COM HORA EXTRA COMPUTE WRK-SALARIOBRUTOMES = WRK-SALARIOBRUTO + WRK-VALORHORAEXTRA. DISPLAY 'TOTAL SALARIO BRUTO DO MES: ' DISPLAY WRK-SALARIOBRUTOMES. IF WRK-SALARIOBRUTOMES <= 800 DISPLAY 'SALARIO LIQUIDO MENSAL ' DISPLAY WRK-SALARIOBRUTOMES END-IF. IF WRK-SALARIOBRUTOMES > 800 AND WRK-SALARIOBRUTOMES <=1600 COMPUTE WRK-CALCULOIR = WRK-SALARIOBRUTOMES * 0,08 DISPLAY 'CALCULO IR: ' WRK-CALCULOIR COMPUTE WRK-CALCULOENCARGOS = WRK-SALARIOBRUTOMES * 0,05 DISPLAY 'CALCULO ENCARGOS: ' WRK-CALCULOENCARGOS COMPUTE WRK-TOTALDESCONTOS = WRK-CALCULOIR + WRK-CALCULOENCARGOS DISPLAY 'TOTAL DESCONTOS: ' WRK-TOTALDESCONTOS COMPUTE WRK-SALARIOLIQUIDO = WRK-SALARIOBRUTOMES - WRK-TOTALDESCONTOS DISPLAY 'SALARIO LIQUIDO MENSAL: ' WRK-SALARIOLIQUIDO END-IF. IF WRK-SALARIOBRUTOMES > 1600 COMPUTE WRK-CALCULOIR = WRK-SALARIOBRUTOMES * 0,15 DISPLAY 'CALCULO IR: ' WRK-CALCULOIR COMPUTE WRK-CALCULOENCARGOS = WRK-SALARIOBRUTOMES * 0,07 DISPLAY 'CALCULO ENCARGOS: ' WRK-CALCULOENCARGOS COMPUTE WRK-TOTALDESCONTOS = WRK-CALCULOIR + WRK-CALCULOENCARGOS DISPLAY 'TOTAL DESCONTOS: ' WRK-TOTALDESCONTOS COMPUTE WRK-SALARIOLIQUIDO = WRK-SALARIOBRUTOMES - WRK-TOTALDESCONTOS DISPLAY 'SALARIO LIQUIDO MENSAL: ' WRK-SALARIOLIQUIDO END-IF. 4000-FINALIZAR.