Logo 
Search:

Cobol Articles

Submit Article
Home » Articles » Cobol » Homework HelpRSS Feeds

EXAMPLE OF EVALUATE VERB

Posted By: Hannah Brown     Category: Cobol     Views: 9109

PROGRAM THAT ILLUSTRATES EXAMPLE OF EVALUATE VERB

Code for EXAMPLE OF EVALUATE VERB in Cobol

      IDENTIFICATION DIVISION.
        PROGRAM-ID. eva.

      DATA DIVISION.

        WORKING-STORAGE SECTION.

        01 calculate PIC X(6).
         88 add1 VALUES "1","add".
         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"
         PERFORM add-para.

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

       STOP RUN.

       add-para.
         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
*********************************

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

ENTER YOUR CHOICE
1
ENTER TWO OPERANDS
25
30
THE RESULT IS 000055
  
Share: 


Didn't find what you were looking for? Find more on EXAMPLE OF EVALUATE VERB Or get search suggestion and latest updates.

Hannah Brown
Hannah Brown author of EXAMPLE OF EVALUATE VERB is from London, United Kingdom.
 
View All Articles

 
Please enter your Comment

  • Comment should be atleast 30 Characters.
  • Please put code inside [Code] your code [/Code].

 
No Comment Found, Be the First to post comment!