LISTSERV at the University of Georgia
Menubar Imagemap
Home Browse Manage Request Manuals Register
Previous messageNext messagePrevious in topicNext in topicPrevious by same authorNext by same authorPrevious page (October 2011)Back to main CICS-L pageJoin or leave CICS-L (or change settings)ReplyPost a new messageSearchProportional fontNon-proportional font
Date:   Tue, 25 Oct 2011 10:15:48 -0700
Reply-To:   Earl Haigh <okearl@yahoo.com>
Sender:   CICS List <CICS-L@LISTSERV.UGA.EDU>
From:   Earl Haigh <okearl@YAHOO.COM>
Subject:   Re: WRITE to ESDS file failing with EIBRESP 16(INVREQ) and EIBRESP2 23(RIDFLD does not match RECORD AREA)
In-Reply-To:   <7B9EA3419D02484282BDCEB88CC086FA1C6D20C8@EXMBPR13.na.mmfg.net>
Content-Type:   multipart/alternative;

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]


Back to: Top of message | Previous page | Main CICS-L page