| View previous topic :: View next topic |
| Author |
Message |
Hilltop
Beginner
Joined: 14 Oct 2004
Posts: 62
Topics: 21
|
 Posted: Thu May 26, 2005 12:46 am Post subject: SOC4 Abend |
 |
|
Hi Board,
I am able to connect IMS using SCHEDULLING concept from my CICS program and able to fetch data. I am having problem when I transfer control to a program which is either called by LINK or Static CALL and within which I am doing IMS calls it is causing abends.
With in the called program I am also able to get to IMS data and retrieve it but getting S0C4 abend in it.
Any Advise?
Thanks. |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12383
Topics: 75
Location: San Jose
|
| Posted: Thu May 26, 2005 6:06 am Post subject: |
|
|
Hilltop,
Check if there a mismatch between passing area and receiving area definitions.
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
Hilltop
Beginner
Joined: 14 Oct 2004
Posts: 62
Topics: 21
|
| Posted: Thu May 26, 2005 6:09 am Post subject: |
|
|
| Hilltop wrote: | Hi Board,
I am able to connect IMS using SCHEDULLING concept from my CICS program and able to fetch data. I am having problem when I transfer control to a program which is either called by LINK or Static CALL and within which I am doing IMS calls it is causing abends.
With in the called program I am also able to get to IMS data and retrieve it but getting S0C4 abend in it.
Any Advise?
Thanks. |
In addition to the above posting this is the DUMP I got from the ABEND
| Code: |
Cobol/ZOS program ACMPG530 failed with Abend Code ASRA at offset B40
The failing instruction is at 18128B88
D201 700A C004 MVC 10(2,R7),4(R12)
Operand 1 Length 2 at 007C7596 BLL=0009 + A 2C
'GE'
Operand 2 Length 2 at 18128148 PGT + 4 2C
' '
|
I think this is the field causing the abend
10 ALPHA-STATUS-CODE PIC XX. ACMPG530 BLL=00009+00A
88 ALPHA-SEGMENT-FOUND VALUE ' '. ACMPG530
88 ALPHA-SEG-NOT-FOUND VALUE 'GE'. ACMPG530
88 END-OF-ALPHA-DB VALUE 'GB'. ACMPG530
I would like to know in which line the ABEND OCCURED.
Thanks. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
