COBOL: Decision based ARITHMETIC operation.

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID.  ARITHPRF.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01  NUM1           PIC 9  VALUE ZEROS.
000600 01  NUM2           PIC 9  VALUE ZEROS.
000700 01  RESULT         PIC 99 VALUE ZEROS.
000800 01  OPERATOR       PIC X  VALUE SPACE.
000900 PROCEDURE DIVISION.
001000 CALCULATOR.
001100     PERFORM 3 TIMES
001200        DISPLAY "ENTER FIRST NUMBER      : " WITH NO ADVANCING
001300        ACCEPT NUM1
001400        DISPLAY "ENTER SECOND NUMBER     : " WITH NO ADVANCING
001500        ACCEPT NUM2
001600        DISPLAY "ENTER OPERATOR (+ OR *) : " WITH NO ADVANCING
001700        ACCEPT OPERATOR
001800        IF OPERATOR = "+" THEN
001900           ADD NUM1, NUM2 GIVING RESULT
002000        END-IF
002100        IF OPERATOR = "*" THEN
002200           MULTIPLY NUM1 BY NUM2 GIVING RESULT
002300        END-IF
002400        DISPLAY "RESULT IS = ", RESULT
002500     END-PERFORM.
002600     STOP RUN.