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
 

 

88 level condition ERROR

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
sunil kumar reddy B

New User


Joined: 25 Jul 2011
Posts: 2
Location: india

PostPosted: Wed Aug 24, 2011 3:36 pm    Post subject: 88 level condition ERROR
Reply with quote

Code:
05  WS-CONDITION                         PIC X(05).             
                                                               
    88  xxxxxxxxx         VALUE '81418' '81431'   
                                     '81491' '81701' '81703'   
                                     '81746'                   
                                     '81704' '81709' '81718'   
                                     '81721' '81731'.         
                                                               
    88  yyyyyyyyy         VALUE '81425' '81426'   
                                     '81711' '81712' '81725'   
                                     '81726' '81727' '81728'   
                                     '81729' '81732' '81733'   
                                    '81734' '81735' '81736'.   
EVALUATE WS-CONDITION                                               
                                                               
        WHEN xxxxxxxxx                             
           PERFORM 8100-PARA   THRU 8100-EXIT       
        WHEN yyyyyyyyy                             
           PERFORM 8105-PARA   THRU 8105-EXIT       
END-EVALUATE     


hi above is my code. while compiling i am facing the below ERROR.
please any one can help me.

THE SELECTION OBJECT AT POSITION 1 IN THE "WHEN" PHRASE DID NOT MATCH THE TYPE OF THE CORRESPONDING SELECTION SUBJECT IN THE "EVALUATE" STATEMENT.
THE SELECTION OBJECT WAS DISCARDED.


thanks inadvance.
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7251

PostPosted: Wed Aug 24, 2011 4:05 pm    Post subject: Reply to: 88 level condition ERROR
Reply with quote

Did you check in the manuals (link at the top of the page) when you got your error?

If you want to use condition names (like I would) you'd need to use EVALUATE TRUE (or FALSE, if that is what you want).

Your first half of the EVALUATE is the literal-bound version.

EVLUATE dataname
WHEN "12345"
...
WHEN "23456"
...
WHEN OTHER
....
END-EVALUATE
Back to top
View user's profile Send private message
Jose Mateo

Active User


Joined: 29 Oct 2010
Posts: 110
Location: Puerto Rico

PostPosted: Wed Aug 24, 2011 7:28 pm    Post subject:
Reply with quote

Good day to all!

Is your subject (ws-condition) a numeric field? If so, then make your 88 level condition values numeric.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Wed Aug 24, 2011 7:44 pm    Post subject:
Reply with quote

Jose Mateo wrote:
Good day to all!

Is your subject (ws-condition) a numeric field? If so, then make your 88 level condition values numeric.


Code:

05  WS-CONDITION                         PIC X(05).


don't think so.

The TS already received the correct advice from Bill.
Back to top
View user's profile Send private message
sunil kumar reddy B

New User


Joined: 25 Jul 2011
Posts: 2
Location: india

PostPosted: Thu Aug 25, 2011 1:58 pm    Post subject:
Reply with quote

Thanks to BILL and JOSE
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1224
Location: Israel

PostPosted: Thu Aug 25, 2011 6:43 pm    Post subject:
Reply with quote

With level 88 you should use EVALUATE TRUE

Edit: Hello Bill, I'm late again!
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 OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
This topic is locked: you cannot edit posts or make replies. How to pass the previous month date i... Suganya87 DFSORT/ICETOOL 5 Mon Oct 31, 2016 4:13 pm
No new posts Error during restore rename archanamuthukrishnan All Other Mainframe Topics 2 Fri Oct 14, 2016 3:30 pm


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