AEYD abend IN EXEC CICS READ

poobalen · New User Joined: 17 May 2006 Posts: 18 Location: malaysia

hi ,

i'm having problem when performing this read statement.
*EXEC CICS READ
* DATASET('OADCTF')
* SET (ADDRESS OF OADCTF-TERMINAL-RECORD)
* LENGTH (WS-OADCTF-LENGTH)
* RIDFLD (WS-OADCTF-KEY)
* END-EXEC.

This copybook i have define in the lingkage section, and
i try to use getmain before performing this read
but the problem still happen.

The problem shows at line 189900

189900 Call 'DFHEI1' using by content x'0602f0000701008000f0f3f2f2f4
- '404040' by reference OAOFILE-OADCTF by reference ADDRESS OF
OADCTF-TERMINAL-RECORD by reference OAOFILE-OADCTF-LENGTH by
reference WS-OADCTF-KEY end-call.

please help

thanks

UmeySan · Posted: Mon Nov 20, 2006 5:18 pm

Hi !

Explanation: A transaction has requested that CICS access a storage area that the transaction itself could not access. This occurred when an
invalid storage area was passed to CICS as an output parameter on an EXEC CICS command.

User Response: Examine the trace to find the exception trace entry
created by DFHEISR and then identify the parameter in error. If the abend
is handled, EXEC CICS ASSIGN ASRASTG, ASRAKEY, ASRASPC, and ASRAREGS give
additional information about the abend. At the time of the abend, register
2 points to the storage area at fault.

Regards, UmeySan

William Thompson · Posted: Mon Nov 20, 2006 5:57 pm

CICS will set the address of the buffer in the pointer, you need to tell CICS where the pointer is.