|
View previous topic :: View next topic
|
| Author |
Message |
rchandran_19
New User
Joined: 08 Mar 2005
Posts: 34
|
|
|
|
Hi,
I made a change to an existing COBOL program by adding a dynamic call statement in it. It compiled perfectly well, without any errors. At run time it Abends.
this is the dump, which I don't know how to decipher. I don't know why these abends in Cobol are not user friendly at all.
Thanks in advance to all who is trying to help me.
RC
| Code: |
----------------------------------------------------------------------------------
XPD0439 RA105 S46D-18 ABEND AT 000E5E4A REASON CODE 00000018
PSW AT TIME OF ERROR 070C0000 - 8A6BFB3A
DATA AT PSW - 5810C85B 0A0D4830 90004180
GP REGISTERS AT ABEND 0 0000000C 1 8446D000 2 00000B80 3 00000BD8
4 007AE2C0 5 007AE238 6 00FD9240 7 00B22E80
8 00000002 9 00000BE0 10 00000090 11 0A6BF022
12 0A6C0021 13 00138DA0 14 00FE5280 15 00000018
AR REGISTERS AT ABEND 0 00000000 1 00000000 2 00000000 3 00000000
4 00000000 5 00000000 6 00000000 7 00000000
8 00000000 9 00000000 10 00000000 11 00000000
12 00000000 13 00000000 14 00000000 15 00000000
INTERRUPT ADDRESS AT OFFSET 000B38 IN LOAD MODULE IEAVTESP
XPD0439 RA105 S306-0C ABEND AT 4AB41024 REASON CODE 00000018
PSW AT TIME OF ERROR 070C0000 - 8A6BFB3A
DATA AT PSW - 8400181E 0A0D18FB 180C181D
GP REGISTERS AT ABEND 0 0000000C 1 8446D000 2 00000B80 3 00000BD8
4 007AE2C0 5 007AE238 6 00FD9240 7 00B22E80
8 00000002 9 00000BE0 10 00000090 11 0A6BF022
12 0A6C0021 13 00138DA0 14 00FE5280 15 00000018
AR REGISTERS AT ABEND 0 00000000 1 00000000 2 00000000 3 00000000
4 00000000 5 00000000 6 00000000 7 00000000
8 00000000 9 00000000 10 00000000 11 00000000
12 00000000 13 00000000 14 00000000 15 00000000
INTERRUPT ADDRESS AT OFFSET 000B38 IN LOAD MODULE IEAVTESP
XPD0439 RA105 SA06-04 ABEND AT 0BA58632 REASON CODE 00000018
PSW AT TIME OF ERROR 070C0000 - 8A6BFB3A
DATA AT PSW - 8400181E 0A0D18FB 180C181D
GP REGISTERS AT ABEND 0 0000000C 1 8446D000 2 00000B80 3 00000BD8
4 007AE2C0 5 007AE238 6 00FD9240 7 00B22E80
8 00000002 9 00000BE0 10 00000090 11 0A6BF022
12 0A6C0021 13 00138DA0 14 00FE5280 15 00000018
AR REGISTERS AT ABEND 0 00000000 1 00000000 2 00000000 3 00000000
4 00000000 5 00000000 6 00000000 7 00000000
8 00000000 9 00000000 10 00000000 11 00000000
12 00000000 13 00000000 14 00000000 15 00000000
INTERRUPT ADDRESS AT OFFSET 000B38 IN LOAD MODULE IEAVTESP |
|
|
| Back to top |
|
 |
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
| Back to top |
|
|
rchandran_19
New User
Joined: 08 Mar 2005
Posts: 34
|
|
|
|
Thank you, CICS guy.
I dont understand all the explanation over there....I am going to send it to the admin guy, cause I feel its more on the OS level. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
I expect the "admin guy" will pass it back. . .
There will be additional diagnostic info in the output of the run.
My guess without seeing any of the code or other diagnostic info is that there is a problem between the calling and called modules. Has the called module ever been called successfully or is this the first attempt?
Keep in mind that a clean compile does not mean that all is well between the called and calling code. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
the abends are a chain of system abends invoked by
the RTM (recovery termination manager) module ieavtesp
here is the sequence of abends
sa06-04
| Quote: |
SA06 Explanation: The error was detected during processing of either a LINK(X), LOAD, XCTL(X) or ATTACH(X) macro instruction.
Code Explanation
04 A request block (RB) is requesting a serially reusable program. Another RB associated with the task requested the same program, and that request has not yet been satisfied. |
s306-0c
| Quote: |
306 Explanation: The error occurred during processing of a LINK(X), XCTL(X), ATTACH(X), or LOAD macro.
An incorrect load to global request was attempted, or the authorized routine requested a module that could not be found in an authorized library. The module was found either in an unauthorized library or already loaded in storage but marked as coming from an unauthorized library.
The reason code in register 15 identifies the error:
Code Explanation
04 ...
08 ...
0C An authorized program requested, by a LINK(X), LOAD, XCTL(X) or ATTACH(X) macro, a module in a non-APF-authorized library or concatenation of libraries. |
s46d-18
| Quote: |
46D Explanation: A program issued the ESPIE macro incorrectly:
A hexadecimal reason code in register 15 explains the error:
Code Explanation
04 ...
08 ...
0C ...
10 ...
14 ...
18 The program issuing an ESPIE macro is in a mode that is not valid for one of the following reasons:
* The program is in supervisor state.
* The program that issued the ESPIE macro had a program status word (PSW) storage key that did not match the task control block (TCB) key. |
I would check ...
linkage editor attributes
steplib concatenation
for all the program libraries involved |
|
| Back to top |
|
|
rchandran_19
New User
Joined: 08 Mar 2005
Posts: 34
|
|
|
|
Thank you Mr. enrico-sorichetti and Mr. Scherrer.
This is the first time attempt to call the subroutine in my program also the subroutine is new.
You guys are awesome in response with good explanation.
Thanks. |
|
| Back to top |
|
|
Douglas Wilder
Active User
.jpg)
Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL
|
|
|
|
| Do you have Abendaid or Fault Analyzer? Either of these could give you the line of COBOL code that abended and the contents of all of the fields at the time of the abend. This makes it so that you almost never need to read the dump again. |
|
| Back to top |
|
|
rchandran_19
New User
Joined: 08 Mar 2005
Posts: 34
|
|
|
|
| Douglas Wilder wrote: |
| Do you have Abendaid or Fault Analyzer? Either of these could give you the line of COBOL code that abended and the contents of all of the fields at the time of the abend. This makes it so that you almost never need to read the dump again. |
I was stepping thru the cobol code with xpediter. And I was told now that we should not use xpediter when there is a dynamic call.
I was told that, because I was using xpediter i was getting the ESPIE abend/error.
Thanks. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
You're welcome 
As this is the first attempt with these 2 sets of code, you might write a very small program with no real code that is only to test the ability to call the "called" code. You might also write another "stub" to test that the caller will in fact successfully call some other code.
This could help isolate whether there is something that needs to change in one, the other, or both sets of code.
For xpeditor testing, you might use a static call for the initial testing. |
|
| Back to top |
|
|
rchandran_19
New User
Joined: 08 Mar 2005
Posts: 34
|
|
|
|
| dick scherrer wrote: |
Hello,
You're welcome :)
As this is the first attempt with these 2 sets of code, you might write a very small program with no real code that is only to test the ability to call the "called" code. You might also write another "stub" to test that the caller will in fact successfully call some other code.
This could help isolate whether there is something that needs to change in one, the other, or both sets of code.
For xpeditor testing, you might use a static call for the initial testing. |
That is a very good ideal !!!
It really paid me for using this forum to get great ideas from all you experts.
Thank you.
By-the-Way....Mr Scherrer...is that your real picture against your name??
:) |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
| rchandran_19 wrote: |
| By-the-Way....Mr Scherrer...is that your real picture against your name?? |
Are you kidding, have you never seen a 'Pink Panther' movie? |
|
| Back to top |
|
|
rpuhlman
New User
Joined: 11 Jun 2007
Posts: 80
Location: Columbus, Ohio
|
|
|
|
| Hahahahahahaha! I just spit coffee every where! Thanks! |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
You're welcome
| Quote: |
By-the-Way....Mr Scherrer...is that your real picture against your name??
|
Well, not quite - i wear a different style hat. . . Check my "Location" 
d |
|
| Back to top |
|
|
|
|
