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: 2285
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 WER268A OUTREC STATEMENT : SYNTAX E... frozenblood87 SYNCSORT 12 Sat Aug 26, 2017 9:45 pm
This topic is locked: you cannot edit posts or make replies. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am
No new posts I want to retire TRX and use only Rex... Abhinav Sharma CLIST & REXX 6 Sat Jul 29, 2017 2:53 am
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm

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