| View previous topic :: View next topic |
| Author |
Message |
sairamr
Beginner
Joined: 08 Jun 2010
Posts: 38
Topics: 6
|
 Posted: Wed Jun 09, 2010 8:24 am Post subject: S0C4 in EXCI call |
 |
|
This is going to be a long read..we have a program B that can be called from CICS/BATCH/SP. This program in turn calls a CICS program C via LINK EXCI.
The LINK EXCI works well when B is called from BATCH/SP. However when the same B is called from a CICS program A the LINK statement fails with 0C4.
A point to note is we are able to CALL from the B to C when B is called from A. Unfortunately C is a LINK only program (it has a CICS RETURN and CICS hangs when RETURN is done after a CALL) and we cant change C. The CALL statement worked when the terminal information was passed to C but with a LINK it always fails with 0C4 in B itself (LINK statement) !!
Any help appreciated !! |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Wed Jun 09, 2010 11:22 am Post subject: |
|
|
sairamr,
Since you are calling the same program from both BATCH and CICS , how is the DFHCOMMAREA coded? Depending on how the DFHCOMMAREA is coded and passed and validated you can narrow down the error.
Kolusu |
|
| Back to top |
|
|
sairamr
Beginner
Joined: 08 Jun 2010
Posts: 38
Topics: 6
|
| Posted: Wed Jun 09, 2010 12:20 pm Post subject: |
|
|
kolusu..thanks for the reply..
For the program B, initially I had only the program specific variables in the comm area. After the abend, I added DFHEIBLK that gets passed from the CICS program A but still no use. The same abend resulted.
Like initially I had
LINKAGE SECTION
COPY XYZ
But later I changed to
| Code: |
LINKAGE SECTION
01 WS-DFHEIBLK.
02 EIBTIME COMP-3 PIC S9(7).
02 EIBDATE COMP-3 PIC S9(7).
02 EIBTRNID PIC X(4).
02 EIBTASKN COMP-3 PIC S9(7).
02 EIBTRMID PIC X(4).
02 DFHEIGDI COMP PIC S9(4).
02 EIBCPOSN COMP PIC S9(4).
02 EIBCALEN COMP PIC S9(4).
02 EIBAID PIC X(1).
02 EIBFN PIC X(2).
02 EIBRCODE PIC X(6).
02 EIBDS PIC X(8).
02 EIBREQID PIC X(8).
02 EIBRSRCE PIC X(8).
02 EIBSYNC PIC X(1).
02 EIBFREE PIC X(1).
02 EIBRECV PIC X(1).
02 EIBFIL01 PIC X(1).
02 EIBATT PIC X(1).
02 EIBEOC PIC X(1).
02 EIBFMH PIC X(1).
02 EIBCOMPL PIC X(1).
02 EIBSIG PIC X(1).
02 EIBCONF PIC X(1).
02 EIBERR PIC X(1).
02 EIBERRCD PIC X(4).
02 EIBSYNRB PIC X(1).
02 EIBNODAT PIC X(1).
02 EIBRESP COMP PIC S9(8).
02 EIBRESP2 COMP PIC S9(8).
02 EIBRLDBK PIC X(1).
COPY XYZ
|
As mentioned before, when I had CALL statement from B to C and passed the terminal information, there is no abend and C gets called. But when LINK is done S0C4 occurs in B LINK statement itself. |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Wed Jun 09, 2010 12:29 pm Post subject: |
|
|
sairamr,
Dumb question but did you issue a NEW COPY after you changed the program?
Kolusu |
|
| Back to top |
|
|
dbzTHEdinosauer
Supermod
Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany
|
| Posted: Wed Jun 09, 2010 12:40 pm Post subject: |
|
|
another dumb question:
does the structure defined by copybook XYZ start with an 01 level?
_________________
Dick Brenholtz
American living in Varel, Germany |
|
| Back to top |
|
|
sairamr
Beginner
Joined: 08 Jun 2010
Posts: 38
Topics: 6
|
| Posted: Wed Jun 09, 2010 12:51 pm Post subject: |
|
|
Kolusu - yes NEW COPY happens automatically through Changeman procedure..
And Dick..yes it starts with level 1 |
|
| Back to top |
|
|
sairamr
Beginner
Joined: 08 Jun 2010
Posts: 38
Topics: 6
|
| Posted: Thu Jun 10, 2010 2:13 pm Post subject: |
|
|
may i know the reason for ur questions - Dick and Kolusu..any luck ??  |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Thu Jun 10, 2010 4:00 pm Post subject: |
|
|
| sairamr wrote: | | may i know the reason for ur questions - Dick and Kolusu..any luck ?? |
The reason to ask such questions is to eliminate the obvious reasons for storage protection errors. Did you try using a debugger and step it thru and see where you are abending?
Kolusu |
|
| Back to top |
|
|
sairamr
Beginner
Joined: 08 Jun 2010
Posts: 38
Topics: 6
|
| Posted: Fri Jun 11, 2010 8:28 am Post subject: |
|
|
we are using intertest. Unfortunately since the module is only an EXCI compiled one, we are not able to intercept...
It is exactly in the LINK statement that its failing but no clue otherwise |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
