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: 7315

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: 6967
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: 1230
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 DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts IDC2902I Error tzeche ABENDS & Debugging 2 Tue Mar 28, 2017 11:39 am
No new posts Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am


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