IBM MAINFRAME HELP & SUPPORT FORUMS

sivak2 · Joined: 11 Jan 2006 Posts: 1

I am facing an Abend in the COBOL module which is triggered through a Natural program which is inturn triggered by a web module.

Technology:
--------------
Web/Natural/COBOL

Code Flow:
-------------
From Web --> Natural --> COBOL program A(transaction trigger) --> COBOL program B --> COBOL programs C and D

All are background modules and are triggered by the transaction.

Issue:
-------
The cobol program B abends with the following dump:

CEE3703I In HANC Control Block, the Eye Catcher is damaged. CEE3704I Expected data at 21FF1000: HANC.

21FF0FE0: 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
21FF1000: C8C1D5C3 001BE000 00189C10 00000000 21FF1000 21FF12D0 00008000 00007D30 |HANC..........................'.|

CEE0802C Heap storage control information was damaged.

Analysis description:
-----------------------
1) Before getting this issue, there was a NAT0954 error in Natural which is fixed by using CALLNAT to a dummy program with a huge data area, the 954 error does not occur (heap error will still happen).
The dummy program is given below:
-----------------------------------------------
PARAMETER
1 #BOGUS-FIELD (A100)
1 #FILLER (A30)
*
LOCAL
1 #BIG-ONE (A500000)
END-DEFINE
RESET #BIG-ONE #BOGUS-FIELD #FILLER
END
----------------------------------------------
Even if we reduced the #BIG-ONE to 50000, the program still failed with 954.
I believe the heap error is in someway related to the natural error (NAT0954).

2)I have already checked the called/calling parameters. The linkage doesn?t have any issues.

3) When we comment the call to the program C, it fails in the second call to the program D.

I have not come across such HEAP ERRORS before. Please suggest me a solution if some one has experienced this previously.

naveen_desireddy · Joined: 29 Aug 2005 Posts: 9 Location: Hyderabad, India

Hi,

I Have not faced such Problem Earlier but I can suggest u that If U have 'SMARTTEST' tool U can debug the Cobol modules so that U can come to know where it gets abend

Rgds,