IDENTIFICATION DIVISION.
PROGRAM-ID. PROGAUMENTOSALARIO.
******************************************************************
*AREA DE COMENTARIOS - REMARKS
* Author: RODRIGO BARRETO
* OBJETIVO: APLICAR O AUMENTO DE SALARIAL COM BASE NO
* ******** TEMPO DE EMPRESA
* UTILIZAR MOSTRAR O AUMENTO SALARIAL POR TEMPO DE EMPRESA
* DATA: 18/05/2021
*******************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
****************** VARIAVEIS ***************************
77 WRK-NOME PIC X(20) VALUE SPACES.
77 WRK-TEMPO-EMPRESA PIC 9(04) VALUE ZEROS.
77 WRK-SALARIO PIC 9(04)V99 VALUE ZEROS.
77 WRK-SALARIO-ED PIC $ZZZZ,99 VALUE ZEROS.
PROCEDURE DIVISION.
****************** CONDICOES ***************************
* AUMENTO SALARIAL CONFORME ABAIXO:
* 0 a 1 ano 0%
* de 2 a 05 anos 5%
* de 06 a 15 anos 10%
* a partir de 16 anos 15%
***************************************************************
MOVE WRK-SALARIO TO WRK-SALARIO-ED.
DISPLAY 'NOME .. '
ACCEPT WRK-SALARIO FROM CONSOLE.
DISPLAY 'TEMPO DE EMPRESA .. '
ACCEPT WRK-TEMPO-EMPRESA FROM CONSOLE.
DISPLAY 'SALARIO .. '
ACCEPT WRK-SALARIO FROM CONSOLE.
******************* LOGICA DAS CONSICOES *************************
EVALUATE WRK-TEMPO-EMPRESA
WHEN 0 THRU 1
DISPLAY ' SEM AUMENTO DEVIDO AO TEMPO DE EMPRESA'
WHEN 2 THRU 5
COMPUTE WRK-SALARIO-ED = (WRK-SALARIO * 0,05) +
WRK-SALARIO
WHEN 6 THRU 15
COMPUTE WRK-SALARIO-ED = (WRK-SALARIO * 0,10) +
WRK-SALARIO
WHEN OTHER
COMPUTE WRK-SALARIO-ED = (WRK-SALARIO * 0,15) +
WRK-SALARIO
END-EVALUATE.
*********************** CONSOLE ********************************
DISPLAY '========================'
DISPLAY 'O AUMENTO DE SALARIAL E '
WRK-SALARIO-ED.
STOP RUN.
