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
 

 

Can we use Move In Evaluate

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

New User


Joined: 15 Aug 2006
Posts: 5

PostPosted: Mon Sep 04, 2006 10:47 pm    Post subject: Can we use Move In Evaluate
Reply with quote

Can we use Move In Evaluate, If yes, Can anyone send the Syntax.

For Example

Evaluate x

When x1
move ---
when x2
move---
when x3
move ---
End evaluate

IS this Syntax Correct ? , If no Please let me know the correct Syntax

Waiting for early Replies.

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

priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Mon Sep 04, 2006 11:13 pm    Post subject: Re: Cobol -Evaluate
Reply with quote

Yes, you can use MOVE in Evaluate.
Back to top
View user's profile Send private message
vijay_bn11

New User


Joined: 11 Sep 2006
Posts: 3
Location: Bangalore

PostPosted: Mon Sep 11, 2006 2:08 pm    Post subject: Can we use Move In Evaluate
Reply with quote

I am proving one example, this may help you to understand clearly that move statement in the Evaluate

EVALUATE SQLCODE OF SQLCA
WHEN 0
CONTINUE
WHEN OTHER
MOVE SQLCODE OF SQLCA TO WS-SQLCODE
END-EVALUATE.

Quote:
Back to top
View user's profile Send private message
vijay_bn11

New User


Joined: 11 Sep 2006
Posts: 3
Location: Bangalore

PostPosted: Mon Sep 11, 2006 2:08 pm    Post subject: Can we use Move In Evaluate
Reply with quote

I am proving one example, this may help you to understand clearly the move statement in the Evaluate

EVALUATE SQLCODE OF SQLCA
WHEN 0
CONTINUE
WHEN OTHER
MOVE SQLCODE OF SQLCA TO WS-SQLCODE
END-EVALUATE.
Back to top
View user's profile Send private message
guptae

Moderator


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

PostPosted: Mon Sep 11, 2006 2:10 pm    Post subject:
Reply with quote

Yes we can use move stmt in evaluate
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 755
Location: Germany

PostPosted: Wed Sep 13, 2006 4:15 pm    Post subject:
Reply with quote

Hi,

You can use what ever you want. If you have to do more than one or two
things, it's a better way to use a Perform an put all the commands in a
specific Section

Regards, UmeySan

Evaluate Field
When 1 Move...
Add...
Multiplay
When 2 Move...
Add...
Multiplay
End-Evaluate

Evaluate Field
When 1 Perform OtherSection-1
When 2 Perform OtherSection-2
When Other Continue
End-Evaluate
Back to top
View user's profile Send private message
shankarravi1984
Warnings : 1

New User


Joined: 15 Sep 2006
Posts: 9
Location: pune

PostPosted: Sat Sep 16, 2006 11:48 pm    Post subject: Re: Can we use Move In Evaluate
Reply with quote

Quote:
hi this is ravi,
you can use move statement in evaluate
ex:
evaluate true
when(basic pay > 10000)
move 1000 to hra
when other
add 0 to basic pay
end-evaluate.
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 DB2 9.1.0 not move values to Host-Var... Miguel Fernandez DB2 8 Wed Jan 25, 2017 8:24 pm
No new posts DB2 9.1.0 not move values to Host-Var... Miguel Fernandez DB2 0 Wed Jan 25, 2017 8:23 pm
No new posts DB2 9.1.0 not move values to Host-Var... Miguel Fernandez DB2 0 Wed Jan 25, 2017 8:21 pm
This topic is locked: you cannot edit posts or make replies. How to move a long alphanumeric data ... lind sh COBOL Programming 8 Mon Dec 05, 2016 7:51 pm
No new posts Protection Exception while move 0 to ... Kevin Vaz CICS 10 Tue Oct 18, 2016 4:19 pm


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