Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Please explain this syntax of 'EVALUATE' - see the code.

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

New User


Joined: 02 Apr 2007
Posts: 12
Location: Chennai

PostPosted: Wed Apr 25, 2007 9:15 am    Post subject: Please explain this syntax of 'EVALUATE' - see the code.
Reply with quote

EVALUATE DSR-AA-APPL-ID ALSO DSR-AA-SYS-ID
WHEN '8' ALSO '2'
MOVE '1' TO DSR-AA-SYS-ID
MOVE 'G' TO DSR-AC-FLGE
MOVE SPACES TO DS41D032-DSR-ACCT-REC
WRITE DS41D032-DSR-ACCT-REC
FROM DSR-ACCT-REC


I havent used Evaluate with this Also statement.
Is this corect?

Thanks,
karthikeyan icon_smile.gif
Back to top
View user's profile Send private message

Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2287
Location: @my desk

PostPosted: Wed Apr 25, 2007 10:12 am    Post subject:
Reply with quote

Hi karthikeyan ,

The form of EVALUATE you have given is correct.

EVALUATE A ALSO B ALSO C

WHEN '1' ALSO '2' ALSO '3'

do something......

means IF A=1 and B=2 and C=3... do something

Thanks
Arun
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Wed Apr 25, 2007 10:12 am    Post subject:
Reply with quote

karthikeyan ,

Quote:
Is this corect?

Yes it is. Refer QW for more info.
Back to top
View user's profile Send private message
guruguha

New User


Joined: 02 Apr 2007
Posts: 12
Location: Chennai

PostPosted: Wed Apr 25, 2007 10:29 am    Post subject: Re: Please explain this syntax of 'EVALUATE' - see the code.
Reply with quote

Thanks Arun.
That was a nice reply.

Regards,
Karthikeyan.
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 IBEGENER RETURN CODE 12 anilkumar922 All Other Mainframe Topics 5 Wed Dec 13, 2017 11:41 am
No new posts Finding the plan when code compiled u... Ahemad DB2 1 Fri Dec 01, 2017 6:38 pm
No new posts Strange Code amitc23 COBOL Programming 6 Tue Nov 28, 2017 11:25 am
No new posts VBS and VB, COBOL syntax is the same ... natt.sut COBOL Programming 3 Sun Nov 12, 2017 6:36 am
No new posts Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us