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
 

 

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: 2238
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 JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm
No new posts FINDREP Syntax Error seahawk789 DFSORT/ICETOOL 4 Thu Mar 09, 2017 10:11 pm
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts CA Workload Automation event code help vinu78 CA Products 10 Wed Mar 01, 2017 10:05 am
No new posts MAX-RC 88 and Return code 606 in DFH0... lind sh CICS 2 Tue Jan 24, 2017 1:23 pm


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