# Program to generate arithmetic operation by using evaluate clause

```      IDENTIFICATION DIVISION.
PROGRAM-ID. eva.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 calculate PIC X(6).
88 sub VALUES \"2\",\"sub\".
88 mul VALUES \"3\",\"mul\".
88 div VALUES \"4\",\"div\".
88 rem VALUES \"5\",\"rem\".

77 choice PIC X(6).
77 a PIC 9(4).
77 b PIC 9(4).
77 c PIC 9(6).

PROCEDURE DIVISION.
display \"1 ) ADD \".
DISPLAY \"2 ) SUB \".
DISPLAY \"3 ) MUL \".
DISPLAY \"4 ) DIV \".
DISPLAY \"5 ) REM \".

DISPLAY \"ENTER THE OPERATION TO BE PERFORMED\".
ACCEPT choice.
DISPLAY \"ENTER TWO OPERANDS\".
ACCEPT a.
ACCEPT b.

EVALUATE choice
WHEN \"1\"  PERFORM add-para
WHEN \"2\"  PERFORM sub-para
WHEN \"3\"  PERFORM mul-para
WHEN \"4\"  PERFORM div-para
WHEN \"5\"  PERFORM rem-para
END-EVALUATE.

if calculate=\"1\" or \"add\"

disp-para.
DISPLAY \"THE RESULT IS \" c.

STOP RUN.

ADD a b GIVING c.

sub-para.
SUBTRACT a FROM b GIVING c.

mul-para.
MULTIPLY a BY b GIVING c.

div-para.
DIVIDE a INTO b GIVING c.

rem-para.
DIVIDE a INTO b GIVING a REMAINDER c.

*******
OUTPUT
*******

2 ) SUB
3 ) MUL
4 ) DIV
5 ) REM