Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Perform with Evaluate?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
srinivas_443

New User


Joined: 19 Dec 2007
Posts: 11
Location: chennai

PostPosted: Wed Jan 23, 2008 10:58 am    Post subject: Perform with Evaluate?
Reply with quote

Hi all,
Please explain Perform with evaluate statement?

Regards,
Srinivas Jala
Back to top
View user's profile Send private message

guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Wed Jan 23, 2008 11:21 am    Post subject:
Reply with quote

Hi Srinivas,

Please go through the manual by tab top of this page & let us know if u need ne clarification
Back to top
View user's profile Send private message
futuremsk

New User


Joined: 20 Dec 2007
Posts: 10
Location: chennai

PostPosted: Wed Jan 23, 2008 12:05 pm    Post subject:
Reply with quote

In it's simplest form the EVALUATE statement goes something like this:

EVALUATE condition
WHEN value
imperative-statements
WHEN value
imperative statements
...........
END-EVALUATE.
Here's a simple example:

EVALUATE WS-X
WHEN 1
ADD 15 TO WS-TOTAL
PERFORM A-100-REPORT
WHEN 2
ADD 16 TO WS-TOTAL
MOVE 'WS-X IS 2' TO WS-DISPLAY
PERFORM A-200-REPORT
WHEN OTHER
PERFORM X-100-ERROR
END-EVALUATE.


I think this will solve your doubt
Back to top
View user's profile Send private message
the_gautam

Active User


Joined: 05 Jun 2005
Posts: 165
Location: Bangalore

PostPosted: Wed Jan 23, 2008 3:29 pm    Post subject:
Reply with quote

EVALUATE <condition>

WHEN <first condition>
PERFORM FIRST-CONDITION-PARA

WHEN <second condition>
PERFORM SECOND-CONDITION-PARA

WHEN <third condition>
PERFORM THIRD-CONDITION-PARA

WHEN OTHER
PERFORM OTHER-PARA

END-EVALUATE.[/quote][/list][/code]
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to perform Digest Access Authenti... vasanthz All Other Mainframe Topics 0 Tue Mar 15, 2016 4:47 pm
No new posts Infinite loop Issue in perform Until shankarm COBOL Programming 18 Wed Jul 31, 2013 7:53 pm
No new posts Perform airthmetic operations in JCL jithumohan JCL & VSAM 4 Fri Mar 15, 2013 12:06 am
No new posts Is it mandatory to Rebind after we pe... Furor DB2 1 Fri Mar 01, 2013 2:02 pm
No new posts Need to perform Date manipulation in ... Skolusu JCL & VSAM 14 Thu Feb 07, 2013 4:32 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us