i'm having problem when performing this read statement.
*EXEC CICS READ
* SET (ADDRESS OF OADCTF-TERMINAL-RECORD)
* LENGTH (WS-OADCTF-LENGTH)
* RIDFLD (WS-OADCTF-KEY)
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.
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.