Fiz o exercício conforme demonstração abaixo, mas o "REMAINDER WRK-RESTO. " apresenta erro mesmo acrescentando 1 a 2 posições. Poderiam me auxiliar por gentileza ?
IDENTIFICATION DIVISION.
PROGRAM-ID. PROGCOB05.
******************************************************************
*AREA DE COMENTARIOS - REMARKS
* Author: RODRIGO F. BARRETO
* OBJETIVO: OPERADORES ARITMETICOS
* DATA: 13/05/2021
*******************
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WRK-NUM1 PIC 9(02) VALUE ZEROS.
77 WRK-NUM2 PIC 9(02) VALUE ZEROS.
77 WRK-RESUL PIC 9(04) VALUE ZEROS.
77 WRK-RESTO PIC 9(02) VALUE ZEROS.
PROCEDURE DIVISION.
ACCEPT WRK-NUM1 FROM CONSOLE.
ACCEPT WRK-NUM2 FROM CONSOLE.
DISPLAY '======================='.
DISPLAY 'NUMERO1.. ' WRK-NUM1.
DISPLAY 'NUMERO2.. ' WRK-NUM2.
*********************** SOMA
ADD WRK-NUM1 WRK-NUM2 TO WRK-RESUL.
DISPLAY 'SOMA ..... 'WRK-RESUL.
********************** SUBTRACAO
SUBTRACT WRK-NUM1 FROM WRK-NUM2 GIVING WRK-RESUL.
DISPLAY 'SUBTRAÇÃO ..... ' WRK-RESUL.
********************** DIVISAO
DIVIDE WRK-NUM1 BY WRK-NUM2 GIVING WRK-RESUL.
REMAINDER WRK-RESTO. >>>>>> ELE FICA EM VERMELHO COM ERRO DE SINTAXE<<<<<<
DISPLAY 'DIVISÃO ..... ' WRK-RESUL.
DISPLAY 'RESTO .... ' WRK-RESTO.
********************** MULTIPLICAO
MULTIPLY WRK-NUM1 BY WRK-NUM2 GIVING WRK-RESUL.
DISPLAY 'MULTIPLICACAO ..... ' WRK-RESUL.
********************** COMPUTE
COMPUTE WRK-RESUL = (WRK-NUM1 + WRK-NUM2) / 2.
DISPLAY 'MEDIA ..... ' WRK-RESUL.
STOP RUN.
