View previous topic :: View next topic
|
Author |
Message |
kalakuntlavenkat
New User
Joined: 10 Nov 2008 Posts: 6 Location: Hyderabad
|
|
|
|
Hi all,
I am getting S0C4 abend while i tried to COBOL and datacom program, where the program is trying to read the datacom database sequentially.
This job is executing MC91M00 program. MC91M00 is calling MC91M01 and MC91M02 programs once after the other and MC91M01 and MC91M02 is calling MC91M995 when ever these programs called by MC91M00 program.
MC91M015 - THIS PROGRAM READS THE MECCA CLAIM COMPLETE TABLE (LARGEST ELEMENT) SEQUENTIALLY USING GETIT PROCESSING.
MC91M025 - THIS PROGRAM CLOSES THE MECCA COMPLETE DYNAMIC URT
MC91M015 and MC91M025 program are calling MC91M995 program- THIS PROGRAM PERFORMS THE I/O OF THE MECCA CLAIM COMPLETE DATABASE USING THE DYNAMIC URT.
My issue is -
When i am calling MC91M995(in production with name MC91M99) sub program from MC91M01 program. it looks like, Datacom DB did the OPEN successfully and entered the User Cobol program after the OPEN. The application then builds parameters for Datacom/DB call and makes a successful call to it.It is upon return that a s0c4 occurs in your COBOL.
Pls find the code in atatchment.
Regards,
venkat |
|
Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1249 Location: Richfield, MN, USA
|
|
|
|
In the future, please refrain from attaching files. Not everyone can download them and it is prohibited at some shops. |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Can't be sure of the correct name because of the unexpanded copybooks, but the most likely would be that the area which is defined to store the data from the database is smaller than the largest amount of data that will be placed there, |
|
Back to top |
|
|
kalakuntlavenkat
New User
Joined: 10 Nov 2008 Posts: 6 Location: Hyderabad
|
|
|
|
Sure Terry and Thanks Bill. |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Thanks because that was the answer or because you are polite? Future readers and potential answerers may like to know. |
|
Back to top |
|
|
|