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
 

 

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 IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm
No new posts S213-14 ABEND explantion Apurva Mehta JCL & VSAM 5 Thu Jul 07, 2016 10:56 pm


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