CALCULATEV1.1

IDENTIFICATION DIVISION.
PROGRAM-ID. Calc.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 c PIC X(6) VALUE NULL.
01 n PIC 999V999 VALUE 9.99.
01 i PIC 999V999 VALUE 9.99.
01 b PIC +++,++9.999 VALUE 9.99.
PROCEDURE DIVISION.
DISPLAY "Enter 2 nums"
ACCEPT i
ACCEPT n
DISPLAY "Enter Char"
ACCEPT c
EVALUATE c
WHEN "a"
    COMPUTE b = i + n
    DISPLAY b
WHEN "s"
    COMPUTE b = i - n
    DISPLAY b
WHEN "m"
    COMPUTE b = i * n
    DISPLAY b
WHEN "d"
    COMPUTE b = i / n
    DISPLAY b
WHEN "e"
    COMPUTE b = i ** n
    DISPLAY b
END-EVALUATE.