O meu ficou assim
IDENTIFICATION DIVISION.
PROGRAM-ID. PROGCOBEX01.
*************************************************************************
* RECEBE NOME, ANO EMPRESA E SALARIO
* APLIQUE UM AUMENTO DE ACORDO COM O TEMPO DE EMPRESA
* 0 A 1 ANO = 0%
* 2 A 5 ANO = 5%
* 6 A 15 ANO = 10%
* 16 = 15%
*************************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WRK-CURRENT-DATE-TIME.
15 WRK-CURRENT-YEAR PIC 9(04) VALUE ZEROS.
77 WRK-NOME PIC X(99) VALUE SPACES.
77 WRK-ANO PIC 9(04) VALUE ZEROS.
77 WRK-SALARIO PIC 9(06)V99 VALUE ZEROS.
77 WRK-AUMENTO PIC 9(06)V99 VALUE ZEROS.
77 WRK-ANO-DIFERENCA PIC 9(04) VALUE ZEROS.
77 WRK-SALARIO-ED PIC ZZZ.ZZ9,99 VALUE ZEROS.
77 WRK-AUMENTO-ED PIC ZZZ.ZZ9,99 VALUE ZEROS.
PROCEDURE DIVISION.
DISPLAY 'NOME... '.
ACCEPT WRK-NOME FROM CONSOLE
DISPLAY 'ANO DE CONTRATACAO.. '.
ACCEPT WRK-ANO FROM CONSOLE
DISPLAY 'SALARIO.. '.
ACCEPT WRK-SALARIO FROM CONSOLE
ACCEPT WRK-CURRENT-DATE-TIME FROM DATE YYYYMMDD.
*************************************************************************
* PEGA SOMENTE O ANO CORRENTE E SUBTRAI DO ANO INFORMADO
SUBTRACT WRK-CURRENT-YEAR FROM WRK-ANO
GIVING WRK-ANO-DIFERENCA.
*************************************************************************
EVALUATE WRK-ANO-DIFERENCA
WHEN 0 THRU 1
COMPUTE WRK-AUMENTO = ( WRK-SALARIO * 0,00 )
WHEN 2 THRU 5
COMPUTE WRK-AUMENTO = ( WRK-SALARIO * 0,05 )
WHEN 6 THRU 15
COMPUTE WRK-AUMENTO = ( WRK-SALARIO * 0,10 )
WHEN >= 16
COMPUTE WRK-AUMENTO = ( WRK-SALARIO * 0,15 )
END-EVALUATE.
*************************************************************************
MOVE WRK-AUMENTO TO WRK-AUMENTO-ED.
DISPLAY 'AUMENTO DE..' WRK-AUMENTO-ED.
DISPLAY 'DATA: ' WRK-CURRENT-YEAR.
DISPLAY 'DIFERENCA.. ' WRK-ANO-DIFERENCA.
STOP RUN.
