Getting EIBRESP=21 in CICS

mayur99 · New User Joined: 03 Oct 2007 Posts: 3 Location: USA

HI,

I am getting a error message as ILLOGIC i.e EIBRESP=21 while writing to a file. Please let me know when this message is thrown & how to approach it . I could identify the code that is causing the problem but not sure how & why this problem is caused. I could capture the EIB parameters for this error message. So please help me out on what these means.

EIBTIME = 162543
EIBDATE = 0107277
EIBTRNID = 'QQ50'
EIBTASKN = 3936
EIBTRMID = 'S879'

EIBCPOSN = 0
EIBCALEN = 0
EIBAID = X'7D'
EIBFN = X'0604' WRITE
EIBRCODE = X'02086C8F0400'
EIBDS = 'A2BPPDP '
EIBREQID = '........'
EIBRSRCE = 'A2BPPDP '
EIBSYNC = X'00'
EIBFREE = X'00'
EIBRECV = X'00'

EIBATT = X'00'
EIBEOC = X'00'
EIBFMH = X'00'
EIBCOMPL = X'00'
EIBSIG = X'00'
EIBCONF = X'00'
EIBERR = X'00'
EIBERRCD = X'00000000'
EIBSYNRB = X'00'
EIBNODAT = X'00'
EIBRESP = 21 ILLOGIC
EIBRESP2 = 110
EIBRLDBK = X'00'

Earl · Posted: Fri Oct 05, 2007 7:23 am

Illogic on a write could be;

The file is defined to CICS s read only'

your keylength does not match the file

record length is wrong,

you already have the file locked' with a read for update'

etc. etc.

can you post the CICS command code you are using for
the write?

mayur99 · New User Joined: 03 Oct 2007 Posts: 3 Location: USA

EXEC CICS WRITE FILE (FDPT_FILE)
FROM (FDPT_IN)
LENGTH (120)
RIDFLD (FDPT_KEY_AAA)
KEYLENGTH (KEYLEN)
RESP (IRESP);

Earl · Posted: Fri Oct 05, 2007 7:34 pm

verify the following:
use CEMT to inquire on the file and ensure the Add attribute is there

I FILE(FILEA)
STATUS: ,RESULTS - OVERTYPE TO MODIFY
,Fil(FILEA ),Vsa,Ope,Ena,Rea,Upd,Add,Bro,Del, ,Sha, ,
,, ,Dsn(,QAMQS.CICSV813.FILEA ,)

the value of FDPT_FILE is a valid CICS file name

the record length matches what is defined for records in the file

the value of KEYLEN is the correct key length for records in the file

the file you are trying to write to is not currently under Browse
control within same task
i.e.

startbr
readnext
write < illogic

the file you are trying to wrie to is not under update within same task
read update
write < illogic

Can other programs write to this file?

Try using the CICS supplied transaction CECI to write to this file

if you can't write to it, using CECI then something is defined wrong

mayur99 · New User Joined: 03 Oct 2007 Posts: 3 Location: USA

Thanks for your suggestion. The Problem was with the record size of one of the Alternate index files. This VSAM file has 2 Alternate Indices & for the second there is no FCT entry defined so i thought there is no point in increasing the record size of this second alternate Index file. So i was trying to increase the Record length of the first which was failing in my test but after all this I tried to increase the length of the second & it worked.