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

Use of WHEN condition with OR


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
deepak.kec

New User


Joined: 26 Feb 2007
Posts: 71
Location: bangalore

PostPosted: Fri Mar 23, 2007 4:15 pm
Reply with quote

How WHEN condition is used with OR condition
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Fri Mar 23, 2007 4:38 pm
Reply with quote

As in EVALUATE? It isn't.
Back to top
View user's profile Send private message
guptae

Moderator


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

PostPosted: Fri Mar 23, 2007 5:32 pm
Reply with quote

Hi Deepak,

There is no need to put OR condition in when clause

EX

Code:
EVALUATE POLICY-CLASS
   WHEN '81'
   WHEN '83'
             PERFORM PARAA
   WHEN 'E1'
   WHEN 'E3'
             PERFORM PARAB
   WHEN 'M2'
   WHEN 'M3'
             PERFORM PARAC
   WHEN OTHER
             PERFORM PARAD
END-EVALUATE 


In the above code if policy class is 81 or 83 it will execute PARAA
If it is E1 or E3 then it will execute PARAB if it is M2 or M3 then it will execute PARAC otherwise for rest of the classes it will execute PARAD

Hope it's answered ur question.
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 How to give complex condition in JCL . CLIST & REXX 30
No new posts selectively copy based on condition DFSORT/ICETOOL 3
This topic is locked: you cannot edit posts or make replies. Control-m JOB executing even when the... Compuware & Other Tools 6
No new posts Dynamic condition checks COBOL Programming 5
No new posts Extract 2 more lines below line that ... DFSORT/ICETOOL 2
Search our Forums:

Back to Top