|
Since this is an ESDS file, try executing your CECI request without the ridfld
________________________________
From: "Zmaczynski, Robert" <RZmaczynski@MASSMUTUAL.COM>
To: CICS-L@LISTSERV.UGA.EDU
Sent: Tuesday, October 25, 2011 1:02 PM
Subject: WRITE to ESDS file failing with EIBRESP 16(INVREQ) and EIBRESP2 23(RIDFLD does not match RECORD AREA)
Hello
all,
I'm failing to write
a log record to an ESDS file defined in a CICS region with error codes
EIBRESP(16) EIBRESP2(23). The file I'm using is defined as an ESDS VSAM file
with a record length of 3000 bytes. The file has been initialized with a dummy
record. The SERVREQ for the file is ADD,BROWSE,DELETE,READ,UPDATE. The file is
opened in the region. The program was working a few weeks ago and now it's
failing. The file, programs and system environmentals haven't been touched
for a few weeks. I have been able to close the file and browse it. All looks
fine. I have used an online debugger to browse the file and also write
records to the file. But when I execute the WRITE command through CECI I receive
the error. Here's the CECI results.
WRITE FILE('LOGFILE') FROM(&REC) RIDFLD(&KEY)
STATUS: COMMAND
EXECUTION COMPLETE NAME=
EXEC CICS WRITE File(
'LOGFILE ' )
< Sysid() >
From( ' ABCTEST 123456789 ' ... )
< Length( +03000 )
>
RIdfld( ' ' )
< Keylength() >
< RBa | Xrba | RRn
>
< Massinsert >
< Nosuspend >
RESPONSE: INVREQ
EIBRESP=+0000000016 EIBRESP2=+0000000023
From the
variable menu:
WRITE FILE('LOGFILE') FROM(&REC) RIDFLD(&KEY)
VARIABLES LENGTH DATA
&DFHC +00016
E3C8C9E2 40C9E240 C140E2C1 D4D7D3C5 THIS IS A SAMPLE
&DFHW +00046
C5E7C5C3 40C3C9C3 E240E6D9 C9E3C5D8 EXEC CICS WRITEQ
&DFHR +00045
C5E7C5C3 40C3C9C3 E240D9C5 C1C4D840 EXEC CICS READQ
&KEY +00001 40
&REC +03000 40C1C2C3 E3C5E2E3 40F1F2F3 F4F5F6F7 ABCTEST
1234567
CEMT inquiry on
file:
I FI(LOGFILE) STATUS: RESULTS -
OVERTYPE TO MODIFY
Fil(LOGFILE ) Vsa Ope Ena Rea Upd Add Bro Del Sha
Dsn( CICS.DEV.AA07.LOGFILE )
I'm at a loss to why
this isn't working.
Any
thoughts?
Thank you in
advance.
Bob
This e-mail transmission may contain information that is proprietary, privileged and/or confidential and is intended exclusively for the person(s) to whom it is addressed. Any use, copying, retention or disclosure by any person other than the intended recipient or the intended recipient's designees is strictly prohibited. If you are not the intended recipient or their designee, please notify the sender immediately by return e-mail and delete all copies.
[text/html]
|