IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

EIBRESP 13 on Alternate Index


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
amitc23

New User


Joined: 05 Nov 2014
Posts: 95
Location: India

PostPosted: Wed Feb 18, 2015 6:33 pm
Reply with quote

Hi
My program is trying to read a record from a file which is Alternate index of a VSAM dataset. Problem is it is getting a EIBRESP 00000013 , intermittently. It sometimes works fine , but all of a sudden gives this Response Code 13. Nothing looks wrong in the program. The read command is as below.

EXEC CICS READ
FILE(WIPPath)
RIDFLD(WIPPathKey)
KEYLENGTH(WIPPathKeyLength)
INTO(RETURN-DATA)
Nohandle
Resp(Resp)
END-EXEC.


Any suggestions.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Wed Feb 18, 2015 6:46 pm
Reply with quote

IEBRESP 13 is NOTFND.
No GENERIC in the READ command, so I guess that sometimes the full key is really not found.
Back to top
View user's profile Send private message
amitc23

New User


Joined: 05 Nov 2014
Posts: 95
Location: India

PostPosted: Wed Feb 18, 2015 6:52 pm
Reply with quote

Hi Marso
This is how key is populated
Move High-Values to WIPPathKey.
Move 'SG' to WIPPathKey-SG.
Move REQ-KEY-SIGN-ON-OPER to WIPPathKey-OprID
Move 30 to WIPPathKeyLength

and the definition is
05 WIPPathKey.
10 WIPPathKey-SG PIC X(02).
10 WIPPathKey-OprID PIC X(08).
10 Filler PIC X(20).

I checked the file after this error and the key is there, it is
'SGACHOPR ' where ACHOPR is my id and rest all are high values x'FF'.
Back to top
View user's profile Send private message
amitc23

New User


Joined: 05 Nov 2014
Posts: 95
Location: India

PostPosted: Wed Feb 18, 2015 6:53 pm
Reply with quote

Even I displayed the key in sysout and it exists, so not sure why this error.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA

PostPosted: Wed Feb 18, 2015 7:34 pm
Reply with quote

Since the FILLER is part of the key, and you are not using GENERIC, then you MUST ensure that the FILLER bytes in your program match the FILLER bytes in the VSAM file -- or you will get a NOTFND response. If the FILLER is SPACES in the VSAM file, and you use HIGH-VALUES in your program -- you will get a NOTFND since SPACES do not match HIGH-VALUES.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Wed Feb 18, 2015 8:06 pm
Reply with quote

Field WIPPathKey-OprID is 8 chars long, your ID has 6 chars only.
So the key you try to read is: (mind the hex values)
Code:
----+----1----+----2----+----3
SGACHOPR                     
ECCCCDDD44FFFFFFFFFFFFFFFFFFFF
2713867900FFFFFFFFFFFFFFFFFFFF


I just want to make sure the file has this exact key.
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Wed Feb 18, 2015 8:25 pm
Reply with quote

Why was this not in the CICS ????
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA

PostPosted: Wed Feb 18, 2015 11:34 pm
Reply with quote

Topic moved from COBOL to CICS.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Cobol file using index COBOL Programming 2
No new posts DL/I status code AK for GU call using... IMS DB/DC 1
No new posts Add column to existing records using ... JCL & VSAM 2
No new posts choice of clustering index DB2 3
No new posts Secondary index error while loading d... IMS DB/DC 2
Search our Forums:

Back to Top