Compile and Execute COBOL Online

IDENTIFICATION DIVISION.
PROGRAM-ID. CALCULATOR.
ENVIRONMENT DIVISION.
DATA DIVISION.

WORKING-STORAGE SECTION.
01 FIRST-NUMBER     PICTURE IS 9999.
01 CALC-VALUE       PICTURE IS xxxx VALUE 'S'.
01 THE-RESULT       PICTURE IS 9999.
01 SECOND-NUMBER    PICTURE IS 9999.

PROCEDURE DIVISION.

PROGRAM-BEGIN.
    
    SET FIRST-NUMBER TO 5.
    
    SET SECOND-NUMBER TO 15.
    
    EVALUATE TRUE 
        WHEN CALC-VALUE = 'A'
            ADD FIRST-NUMBER SECOND-NUMBER TO THE-RESULT
            DISPLAY "The first number is:"
            DISPLAY FIRST-NUMBER
            DISPLAY "The second number is:"
            DISPLAY SECOND-NUMBER
            DISPLAY "The result is"
            DISPLAY THE-RESULT
        WHEN CALC-VALUE = 'M'
            MULTIPLY FIRST-NUMBER BY SECOND-NUMBER GIVING THE-RESULT ROUNDED
            DISPLAY "The first number is:"
            DISPLAY FIRST-NUMBER
            DISPLAY "The second number is:"
            DISPLAY SECOND-NUMBER
            DISPLAY "The result is"
            DISPLAY THE-RESULT
        WHEN CALC-VALUE = 'D'
            DIVIDE FIRST-NUMBER BY SECOND-NUMBER GIVING THE-RESULT
            DISPLAY "The first number is:"
            DISPLAY FIRST-NUMBER
            DISPLAY "The second number is:"
            DISPLAY SECOND-NUMBER
            DISPLAY "The result is"
            DISPLAY THE-RESULT
        WHEN CALC-VALUE = 'S'
            SUBTRACT FIRST-NUMBER FROM SECOND-NUMBER GIVING THE-RESULT
            DISPLAY "The first number is:"
            DISPLAY FIRST-NUMBER
            DISPLAY "The second number is:"
            DISPLAY SECOND-NUMBER
            DISPLAY "The result is"
            DISPLAY THE-RESULT
    END-EVALUATE.
    
STOP RUN.