Facing U0850 abend in my IMS code

Verma,Raman · New User Joined: 13 Oct 2006 Posts: 15

Hi,

I have a COBOL code which uses IMS Db calls to fetch some data. The calls abend the program with a abend code U0850 for some of the IMS segment key values. The key values seem to be alright to me but i am not sure if this is IMS DBD related issue.
Strangely, the same read call works fine for some of the other key values.

Please advise what is U0850 and what I can do to rectify this.

Thanks,
Raman

Bitneuker · Posted: Thu Mar 29, 2007 3:44 pm

Looks like a DBD error. See this

anand_smail · New User Joined: 05 Jun 2005 Posts: 13

George,

I also getting the same error.
Can you please let me know the how can I rectify it.

Thanks,
Anand.

Bitneuker · Posted: Fri Jul 20, 2007 2:28 pm

Sandy Zimmer · Posted: Fri Jul 20, 2007 6:55 pm

Hi Raman,

Whenever you issue an IMS call, you must immediately check the PCB area for a valid return call. For instance, if you are issuing any kind of get unique call, you must check for spaces. If you do not have spaces, then your logic should be what to do next. If it happens to be a qualified path call and you get a GE, then you need to look at the keyfeedback area and the segment level returned - it will tell you the key value that you are searching and the last segment level successfully returned. The most important thing to remember in IMS - is POSITION - where in the heck am I? You will always be positioned at your last successful call.

If you do not check your return status call after EACH call, IMS gets very upset - it gets lost. I suggest you look at your code.