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
 
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: 111
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: 6968
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: 1243
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 IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts FTP Skip or ignore error and process ... AJAYREDDY All Other Mainframe Topics 3 Wed Sep 27, 2017 8:12 pm
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts BUILD OUTFIL based on condition other... balaji81_k DFSORT/ICETOOL 13 Fri Sep 08, 2017 11:06 pm

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