IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Abend-2 pgms in the same unit of work invoking the same pgm


IBM Mainframe Forums -> ABENDS & Debugging
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Mon Jul 14, 2008 5:24 pm
Reply with quote

Techies,

I have a CICS program A linking to program B to retrieve some data from the database. The problem here is that Unfortunately program B is already invoked in the same unit of work by program c leading to a CICS abend.

Could you please throw light on as to why this is happening? Will there be an issue when a same program is invoked by 2 programs in the same unit of work at the same time?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA

PostPosted: Mon Jul 14, 2008 5:31 pm
Reply with quote

What's the CICS abend? CICS allows the same program to be invoked multiple times even at the same time, but there could be problems with the database piece. Locking is the most likely culprit.
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Mon Jul 14, 2008 5:39 pm
Reply with quote

No abend code was displayed. It hit the handle abend paragraph which is at the start of that program and displayed the error messages that we had set.

Even i think the same, but not sure of the exact reason of the abend.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA

PostPosted: Mon Jul 14, 2008 5:52 pm
Reply with quote

Did you save and display EIBRESP and EIBRESP2? They may be a clue as to what's going on.
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Tue Jul 15, 2008 11:59 am
Reply with quote

Robert,

Quote:
Did you save and display EIBRESP and EIBRESP2


No. This is a production issue and hence we did not note those values. We were not able to create that scenario to test.

Ideally the EIBRESP will not be equal to zero! We have checked for EIBRESP after the link statement but i dont think that would have got executed because of the abend. The control directly went to the HANDLE ABEND paragraph.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA

PostPosted: Tue Jul 15, 2008 3:04 pm
Reply with quote

Program C doesn't call program A, does it? If so, I'd worry about recursion popping up.

What's the frequency of abend? If it's a rare abend, it's probably a timing issue and may be very difficult to resolve. If it happens sometimes but not that often, maybe writing state data to a TSQ before the link could help figure out the problem.
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Tue Jul 15, 2008 4:20 pm
Reply with quote

Quote:
Locking is the most likely culprit.


Looks like locking is the culprit. SYNCONRETURN was not specified during the link which lead to the row being locked.

Shall post the complete solution once the abend is resolved.

Robert,

Thanks for all the help.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA

PostPosted: Tue Jul 15, 2008 4:42 pm
Reply with quote

Aaru: great to hear you've got a handle on it!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> ABENDS & Debugging

 


Similar Topics
Topic Forum Replies
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts ISAM and abend S03B JCL & VSAM 10
No new posts Abend S0C4 11 (Page Translation Excep... PL/I & Assembler 16
No new posts WER999A - UNSUCCESSFUL SORT 8ED U Ab... SYNCSORT 5
No new posts the system or user abend SF0F R=NULL COBOL Programming 0
Search our Forums:

Back to Top