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
 
Explain the reasons for FOC553 abend

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
Vandana Polem Reddy

New User


Joined: 15 Nov 2006
Posts: 5
Location: Bangalore

PostPosted: Wed Dec 06, 2006 9:32 am    Post subject: Explain the reasons for FOC553 abend
Reply with quote

Could any one explain the reasons for FOC553 abend?
Back to top
View user's profile Send private message

ashimer

Active Member


Joined: 13 Feb 2004
Posts: 551
Location: Bangalore

PostPosted: Wed Dec 06, 2006 12:20 pm    Post subject:
Reply with quote

FOC553 - computation expression too large .... chk ur define or set or compute stmts ...split the computational expression into parts ////
Back to top
View user's profile Send private message
Vandana Polem Reddy

New User


Joined: 15 Nov 2006
Posts: 5
Location: Bangalore

PostPosted: Fri Dec 08, 2006 8:05 am    Post subject:
Reply with quote

Hi

Thanks for the response. yest it is computation error. but how can we split the computation expression in to two parts?

can u please explain me in detail.....

below is the expression where i got error

REPRICE2 (COMPUTE INPART=EDIT(D.PART_NUMBER,'999999999'); PRICE =DECODE INPART( INPUT ELSE '-1');)

here the problem is with decode statement which is not able to accept large data from input.

can u provide solution for this
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 -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to force a select query to abend neo4u DB2 5 Mon Apr 23, 2018 1:36 pm
No new posts Need help with 002-030 ABEND in TSO R... Terry Tallian TSO/ISPF 0 Sat Mar 17, 2018 1:13 am
No new posts Need help with ABEND RC=S806 RSN=4 an... chong.zhou All Other Mainframe Topics 3 Fri Feb 09, 2018 12:17 am
No new posts ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts C03 ABEND sjiraga PL/I & Assembler 1 Thu Jun 01, 2017 4:51 pm

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