Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
CICS EIBRESP 22 and EIBRESP2 13

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
picus_mf
Warnings : 1

New User


Joined: 09 Jun 2006
Posts: 51

PostPosted: Thu Nov 14, 2013 6:19 pm    Post subject: CICS EIBRESP 22 and EIBRESP2 13
Reply with quote

I am trying to read a KSDS VSAM file which is of Fixed length with 31660 length. My goal is to read this VSAM file sequentially and process the records present in it. So doing a START BROWSE with low-values in the key and then doing READNEXT.

The start browse is working fine with RESP code 0 but the READNEXT is failing with EIBRESP 22 and EIBRESP2 13 (length error).

Code:

77 WS-IP-RBIV-LENGTH       PIC S9(9) COMP VALUE 31660.
77 WS-MMWCRBIV-KEY-LEN     PIC S9(4) COMP VALUE +22.   

EXEC CICS STARTBR                     
     DATASET   ('MMWCRVIV')           
     RIDFLD    (MM-WCIV-KEY)           -> key length is 22
     KEYLENGTH (WS-MMWCRBIV-KEY-LEN)   
     GTEQ                             
     END-EXEC.                         
SKIP1                                 

EXEC CICS READNEXT               
     DATASET ('MMWCRVIV')         
     RIDFLD  (MM-WCIV-KEY)       
     LENGTH  (WS-IP-RBIV-LENGTH)   - length is 31660
     INTO    (WS-MMWCRBIV-RECORD)
END-EXEC.                         


Not sure what is the actual wrong I have done.
Back to top
View user's profile Send private message

Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2504
Location: Atlanta, Georgia, USA

PostPosted: Thu Nov 14, 2013 6:42 pm    Post subject: Reply to: CICS EIBRESP 22 and EIBRESP2 13
Reply with quote

Field "WS-IP-RBIV-LENGTH" needs to be defined as PIC S9(4) COMP VALUE 31660.

Because you're assigning a VALUE clause to this field (and the VALUE exceeds the Picture Clause size), you can either specify the TRUNC(BIN) compiler option (to avoid high-order truncation) or define this field as COMP-5 (Native Binary), providing your compiler supports this.

The TRUNC option has no effect on COMP-5.

Most lengths (but not all) in CICS API's are halfword-binary, as illustrated.
Back to top
View user's profile Send private message
picus_mf
Warnings : 1

New User


Joined: 09 Jun 2006
Posts: 51

PostPosted: Thu Nov 14, 2013 7:03 pm    Post subject:
Reply with quote

Yes. Issue is resolved. Thanks a lot.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us