|
|
 | | From: | Willi Kuhn | | Subject: | Call to entry points in COBOL under CICS | | Date: | 20 Jan 2005 01:49:42 -0800 |
|
|
 | Hello all,
we have a VSE 2.7.2 an use for the online production 6 CICS/VSE
partitions. There are some transaction abends with ASRA, on bad days up
to 1.500.
After digging into a dump I found the following. The rason for the abend
was a protection exeption because the base register contains zero for
the target storage location at a ZAP instruction. So far so clear.
But: immediate before the ZAP instruction I found some X'40's and the
compare with the program listing shows that the program storage was
overwritten.
In the link listing of the program I found a static called subroutine
who has some entry points, and the calls using only the entry points,
not the main entry.
The subroutine was written in COBOL/VSE and the calling program too.
My question is now, can we use such a constuction under CICS or is it
disallowed?
Until now I did not found any hint in the books.
All hints and tips or experience are wellcome.
Thanks in advance.
Willi Kuhn
msg systems ag
Huerth/Germany
|
|
| | From: | Martin_Trübner | | Subject: | Re: Call to entry points in COBOL under CICS | | Date: | 20 Jan 2005 02:11:50 -0800 |
|
|
| Willi,
Wellcome, nice to have you on board.
<< ...entrypoints .... can we use such a constuction under CICS or is it
disallowed? >>
I know of no place disallowing this. A program called that way is
certainly able to do whatever it wants. The problem is that the
translator does not understand that structure- SO the program
(subroutine) better not does any CICS-related stuff when invoked that way.
This opposed to being invoked via the procedure-division , where a
propper setup to handle com-area addressing and EIB is done.
I would run with storeage-protection on to identify the cause (2.7 runs
only on processors that have sub-system storag protection or protectgion
overwrite control).
Martin
--
XML2PDF - the way to get all features of PDF into your documents
on mainframe or PC systems; more at http://www.pi-sysprog.de
|
|
| | From: | Tony Thigpen | | Subject: | Re: Call to entry points in COBOL under CICS | | Date: | 20 Jan 2005 03:46:22 -0800 |
|
|
| As long as the programs are both COBOL/VSE (LE), then it should work.
When LE goes to acquire storage, it 'knows' it is running under CICS and
gets storage in an appropriate manner.
You should make sure the subroutine is compiled with RENT so it will not
fail when you finally move to CICS/TS and turn on CICS storage protection.
Tony Thigpen
-----Original Message -----
From: Willi Kuhn
Sent: 01/20/2005 04:49 AM
> Hello all,
>
> we have a VSE 2.7.2 an use for the online production 6 CICS/VSE
> partitions. There are some transaction abends with ASRA, on bad days up
> to 1.500.
>
> After digging into a dump I found the following. The rason for the abend
> was a protection exeption because the base register contains zero for
> the target storage location at a ZAP instruction. So far so clear.
>
> But: immediate before the ZAP instruction I found some X'40's and the
> compare with the program listing shows that the program storage was
> overwritten.
>
> In the link listing of the program I found a static called subroutine
> who has some entry points, and the calls using only the entry points,
> not the main entry.
> The subroutine was written in COBOL/VSE and the calling program too.
>
> My question is now, can we use such a constuction under CICS or is it
> disallowed?
> Until now I did not found any hint in the books.
>
> All hints and tips or experience are wellcome.
>
> Thanks in advance.
>
> Willi Kuhn
>
> msg systems ag
> Huerth/Germany
>
>
|
|
|
