CICS read error with EIBRESP 10 and EIBRESP2 37

ramvivek · New User Joined: 23 Oct 2006 Posts: 13

My CICS code has the following piece of code :

EXEC CICS HANDLE CONDITION
DSIDERR(FILE-OPEN-ERROR)
NOTFND(RECORD-NOT-FOUND)
NOTOPEN(FILE-NOT-OPEN)
DISABLED(FILE-NOT-OPEN)
LOCKED(DEADLOCK-ERR)
RECORDBUSY(DEADLOCK-ERR)
END-EXEC.

EXEC CICS READ
DATASET(CAGE-MASTER-FILE)
INTO(CAGE-CONTROL-RECORD)
LENGTH(CAG-REC-LEN)
RIDFLD(CAGE-KEY)
UPDATE
NOSUSPEND
END-EXEC.

The CICS READ is issuing a invalid req with EIBRESP 10 and EIBRESP2 37. If I remove NOSUSPEND, then its working fine. What could be the reason and how can we resolve this ?

Thanks,
Ram.

William Thompson · Posted: Tue Aug 14, 2007 2:30 pm

Interesting.....
Are the resp and resp2 decimal or hex values?
Is the file RLS?

ramvivek · New User Joined: 23 Oct 2006 Posts: 13

values are in decimal;

the file is VSAM file. What is RLS file ?

William Thompson · Posted: Tue Aug 14, 2007 3:04 pm

Since NOSUSPEND is for Record Level Sharing only:
NOSUSPEND (RLS only)
The request does not wait if the record is locked by VSAM with an active lock, including records locked as the result of a DEADLOCK.
why are you specifying it?

ramvivek · New User Joined: 23 Oct 2006 Posts: 13

sorry, the response values are in HEX.

I am using the NOSUSPEND option to resolve a deadlock between the records being updated by 2 diff transactions.

-- Ram.

William Thompson · Posted: Tue Aug 14, 2007 3:50 pm