Aula 04 - Faça o que eu fiz na aula

Bom dia, pessoal!

Segue abaixo o meu código com as melhorias sugeridas na aula 04 - Faça o que eu fiz na aula

       IDENTIFICATION DIVISION.
           PROGRAM-ID. PROGCOB09.
      *************************************
      *AREA DE COMENTARIOS - REMARKS
      *AUTHOR - BRUNO DE JESUS PINTO
      *OBJETIVO: CALCULANDO AUMENTO SALARIAL
      *DATA - 17/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.
       0001-PRINCIPAL.
           PERFORM 0100-INICIALIZAR.
           PERFORM 0200-PROCESSAMENTO
           PERFORM 0300-FINALIZAR.
           STOP RUN.
       0100-INICIALIZAR.
           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.
       0200-PROCESSAMENTO.
           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.
       0300-FINALIZAR.
           DISPLAY '=================='
           IF WS-SALARIO > 0 AND WS-TEMPO-DE-EMPRESA > 0
               DISPLAY 'SALARIO COM REAJUSTE: ' WS-SALARIO-ED
           ELSE
                DISPLAY 'INFORME UM SALARIO E/OU TEMPO DE EMPRESA'
           END-IF

Aceito sugestões de melhorias no código ;-)

Obrigado!