Olá, pessoal!
Segue abaixo o meu código da Atividade 8 - Faça o que eu fiz na aula
IDENTIFICATION DIVISION.
PROGRAM-ID. AUMENTO-SALARIAL.
*************************************
*AREA DE COMENTARIOS - REMARKS
*AUTHOR - BRUNO DE JESUS PINTO
*OBJETIVO: CALCULANDO AUMENTO SALARIAL
*DATA - 16/10/2020
*************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WS-NOME PIC A(10) VALUE SPACES.
77 WS-TEMPO-DE-EMPRESA PIC 9(04) VALUE ZEROS.
77 WS-SALARIO PIC 9(04)V99 VALUE ZEROS.
77 WS-SALARIO-ED PIC $ZZZZ,99 VALUE ZEROS.
PROCEDURE DIVISION.
MOVE WS-SALARIO TO WS-SALARIO-ED.
DISPLAY 'NOME: '
ACCEPT WS-NOME FROM CONSOLE.
DISPLAY 'TEMPO DE EMPRESA: '
ACCEPT WS-TEMPO-DE-EMPRESA FROM CONSOLE.
DISPLAY 'SALARIO: '
ACCEPT WS-SALARIO FROM CONSOLE.
***************************************************
EVALUATE WS-TEMPO-DE-EMPRESA
WHEN 0 THRU 1
DISPLAY 'SEM AUMENTO SALARIAL'
WHEN 2 THRU 5
COMPUTE WS-SALARIO-ED = (WS-SALARIO * 0,05) +
WS-SALARIO
WHEN 6 THRU 15
COMPUTE WS-SALARIO-ED = (WS-SALARIO * 0,10) +
WS-SALARIO
WHEN OTHER
COMPUTE WS-SALARIO-ED = (WS-SALARIO * 0,15) +
WS-SALARIO
END-EVALUATE.
*****************************************************
DISPLAY '=================='
DISPLAY 'SALARIO COM REAJUSTE: ' WS-SALARIO-ED.
STOP RUN.Aceito sugestões de melhorias para o código ;-)
Obrigado!!