IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Please explain this syntax of 'EVALUATE' - see the code.


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
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
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: 2481
Location: @my desk

PostPosted: Wed Apr 25, 2007 10:12 am
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: 1436
Location: Bangalore,India

PostPosted: Wed Apr 25, 2007 10:12 am
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts PARSE Syntax for not fix length word ... JCL & VSAM 7
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts DB2 Statistics - Using EXPLAIN and qu... DB2 1
Search our Forums:

Back to Top