ASRA - Protection Exception

vijiatcts · New User Joined: 19 Aug 2007 Posts: 9 Location: chennai

Hi,
I allocated memory for a pointer using GETMAIN.Then I set the address of a copybook to that pointer. The response code is 0. But when I move spaces or some values to any of the variable in that copybook, the program abends with ASRA(protection Exception). Please help me to identify what the problem is and also the solution for this

Thanks,
VG

superk

Have you already looked at all of the existing topics for ASRA:

http://ibmmainframes.com/viewtopic.php?t=695
http://ibmmainframes.com/viewtopic.php?t=1637
http://ibmmainframes.com/viewtopic.php?t=3862
http://ibmmainframes.com/viewtopic.php?t=4934
http://ibmmainframes.com/viewtopic.php?t=3666
http://ibmmainframes.com/viewtopic.php?t=23797
http://ibmmainframes.com/viewtopic.php?t=24255
http://ibmmainframes.com/viewtopic.php?t=23887

CICS Guy · Posted: Tue Sep 18, 2007 5:27 pm Post subject: Re: ASRA - Protection Exception

vijiatcts · New User Joined: 19 Aug 2007 Posts: 9 Location: chennai

Hi,

1)
EXEC CICS GETMAIN
SET (MQ-Q-TABLE-POINTER)
FLENGTH (LENGTH OF LS-MQ-Q-TABLE)
INITIMG (WS-SPACES)
RESP (WS-RESPONSE)
END-EXEC.

2)
SET ADDRESS OF LS-MQ-Q-TABLE TO MQ-Q-TABLE-POINTER

3)
01 LS-MQ-Q-TABLE.
COPY CEZMQQTB.

This copybook is declared in the Linkage Section.
Thanks,
VG

CICS Guy · Posted: Tue Sep 18, 2007 6:02 pm Post subject:

That's a good one....
Any ODO in the copybook?
Have you looked at the dump for the value of the pointer and the existance for the getmained storage?

vijiatcts · New User Joined: 19 Aug 2007 Posts: 9 Location: chennai

Hi,
This is present in the copylib CEZMQQTB.It has occurs clause.

05 'QTABL-'TABLE OCCURS 20 TIMES
INDEXED BY 'QTABL-'IDX
'QTABL-'IDX2.
10 'QTABL-'QNAME PIC X(10).

05 'QTABL-'NAME-AREA.
10 'QTABL-'ENTIRE-NAME PIC X(48) VALUE SPACES.
10 'QTABL-'APPLICATION PIC X(06) VALUE SPACES.
10 'QTABL-'ADDTNL-FIELDS PIC X(03) VALUE SPACES.
10 'QTABL-'DATA-TYPE PIC X(05) VALUE SPACES.
And what is that u r asking next? sory I didn't get u....

Thanks,
VG

CICS Guy · Posted: Tue Sep 18, 2007 6:18 pm Post subject:

Yes, but no "depending on".....
Enough for the easy things, now you are going to have to look at the dump, find where in the program (which move) the abend occurs and what the value of the pointer is and if the storage still belongs to the transaction and if the pointer really does point to it.....

vijiatcts · New User Joined: 19 Aug 2007 Posts: 9 Location: chennai

Hi,
I tried XPEDing the program. I made the allocation.The response is 0. Then i set the address of LS-MQ-Q-TABLE TO MQ-Q-TABLE-POINTER .
The value it displays for the pointer variable is this:

02 MQ-Q-TABLE-POINTER POINTER 'X 00000000
It means that it doen not hold any memory? isn't it?
So what shall i do?

Thanks,
VG

CICS Guy · Posted: Tue Sep 18, 2007 7:12 pm Post subject:

vijiatcts · New User Joined: 19 Aug 2007 Posts: 9 Location: chennai

Hi CICS Guy,

This is what i do..........

EXEC CICS GETMAIN
SET (MQ-Q-TABLE-POINTER)
FLENGTH (LENGTH OF LS-MQ-Q-TABLE)
INITIMG (WS-SPACES)
RESP (WS-RESPONSE)
END-EXEC.

IF RESP-OK
SET WS-MQ2-GETMAIN-DONE TO TRUE
SET ADDRESS OF LS-MQ-Q-TABLE TO MQ-Q-TABLE-POINTER

what is going wrong where?Please help

Thanks,
VG

CICS Guy · Posted: Wed Sep 19, 2007 6:00 pm Post subject:

Trty XPEDing the pointer right after the getmain......

vijiatcts · New User Joined: 19 Aug 2007 Posts: 9 Location: chennai

Hi,
Yes...i tried..........then only i was able to find that the pointer points to no address.

Thanks,
VG

dbzTHEdinosauer · Posted: Wed Sep 19, 2007 6:29 pm Post subject:

Where is the pointer defined?

vijiatcts · New User Joined: 19 Aug 2007 Posts: 9 Location: chennai

It is declared in the working storage section............

CICS Guy · Posted: Wed Sep 19, 2007 7:37 pm Post subject:

So, are you saying that you getmain with a valid pointer and flength and get returned a response of zero and a pointer of zero?
If true, you have a greater problem than we can handle, maybe you should ask IBM......