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
 
StartBR fails with EIBRESP = 10

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

New User


Joined: 25 Jul 2005
Posts: 92
Location: India

PostPosted: Fri Dec 09, 2005 5:04 pm    Post subject: StartBR fails with EIBRESP = 10
Reply with quote

Hi,

I have a program which has the following structure :-

1. StartBR a file
2. Readnext until I get the record I want or EOF.
3. EndBR the file

I call this routine 2wice. The second time I do the StartBR, it fails with EIBRESP = 10.

Dont know why the StartBR fails when I have done a EndBR the last time I used the file.

Please reply ASAP.

Cheers.
Back to top
View user's profile Send private message

iknow

Active User


Joined: 22 Aug 2005
Posts: 413
Location: Colarado, US

PostPosted: Fri Dec 09, 2005 6:08 pm    Post subject: Re: StartBR fails.
Reply with quote

Hi murali922,

To my understanding I think the reason why STARTBR fails is due to the illogic condition.

Consider this problem scenario.

Question

Quote:
I have a couple of development questions concerning CICS and a ESDS file.
I am writing a background CICS program that will start and the beginning of
an ESDS file and read, process until it reaches the end of the file. When
I reach the EOF, I put the program to sleep (the CICS delay command) for 30
seconds, giving the users some time to add more data to the end of the ESDS
file. I'm having 2 issues.
I will browse the ESDS file in fileaid and see that there are xx records on
the file. When I run my program in expediter, I can read until the end of
the file, but it may be at the yy record. Is the program reading data out
of the ESDS buffer before it was physically written to the buffer? Also,
when the program wakes up after it's nap, I want to start a browse again at
the RBA that is equal to the last record on the file. I can calculate the
RBA of the last record since the records are fixed length. When the
startbr is executed, I am getting a resp of 21 and a resp2 of 110. In
other words the startbr fails with an illogic condition. I can reset the
RBA to zero and the startbr works just fine. What am I missing?


Answer

Quote:
First issue: Yes, non CICS reads see only the physical disk data while CICS
reads see the buffer.

Second issue: With each READNEXT yoou will get the RBA in the RIDFLD, save it for the STARTBR when you next wake up and READNEXT one extra time to get past the already read record.


Try to figure out the logic, the way you have coded your program.
Hope this helps.
Back to top
View user's profile Send private message
murali922

New User


Joined: 25 Jul 2005
Posts: 92
Location: India

PostPosted: Fri Dec 09, 2005 7:54 pm    Post subject: Re: StartBR fails with EIBRESP = 10
Reply with quote

Mine is a KSDS file.

Why is a STARTBR failing in this case, when I have ENDBR the same ??
Back to top
View user's profile Send private message
satsubram

New User


Joined: 18 May 2006
Posts: 1

PostPosted: Thu May 18, 2006 10:18 pm    Post subject: Re: StartBR fails with EIBRESP = 10
Reply with quote

I have the same issue with STARTBR issued two times. Did you have a resolution for your problem. Please help.

Thanks in advance.
Back to top
View user's profile Send private message
gskulkarni

New User


Joined: 01 Mar 2006
Posts: 70

PostPosted: Fri May 19, 2006 10:04 am    Post subject:
Reply with quote

Guys, i might be able to help. Could you post your code and RESP and RESP2 values please?
Back to top
View user's profile Send private message
gskulkarni

New User


Joined: 01 Mar 2006
Posts: 70

PostPosted: Fri May 19, 2006 10:25 am    Post subject:
Reply with quote

START=>READNEXT in loop => ENDBR => Reset the STARTBR keyf => STARTBR

This flow should work perfectly fine if the response code of each of them was 0.

You have said response code is 10. But in case of STARTBR you generally do not get resp code = 10. It must be 104, 110 or something like it. Please post the exact RESP and RESP2. Also check the RESP and RESP2 of the last ENDBR.

Although conceptually since you are dealing with the same file again, i.e. browsing the same file in loop, you should be using RESETBR command instead of ENDBR. RESETBR is equal to STARTBR with new key without ending the browse.
Back to top
View user's profile Send private message
karthick sivakumar

New User


Joined: 16 Mar 2006
Posts: 16
Location: india

PostPosted: Wed Jun 07, 2006 2:33 pm    Post subject:
Reply with quote

Hi,


if u are reading a ksds it is enough to give start browse only once .

then in the readnext handle the condition eof. loop until eof is set( loop the read next alone).

finally use end browse(optional). this should work fine i guess

see the example code

EXEC CICS STARTBR DATASET('DATASET')
RIDFLD(KEY)
EQUAL / GTEQ
END-EXEC

PERFORM X100-READNEXT THRU X100-EXIT UNTIL EOF


X100-READNEXT.
EXEC CICS HANDLE CONDITION ENDFILE(X110-END-FILE)

END-EXEC.

EXEC CICS READNEXT DATASET('DATASET')
INTO(WS-RECORD)
RIDFLD(KEY)
END-EXEC.


X110-END-FILE.

SET EOF TO TRUE.


X100-EXIT.
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 Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts Read of TDQ fails in LENGERR Tracy Hansen CICS 10 Wed Apr 05, 2017 12:10 am
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts Cobol EZASOKET call to SETSOCKOPT fails Andi1982 COBOL Programming 6 Thu Oct 06, 2016 7:12 pm
No new posts OUTREC FILELDS FAILS WITH ICE126A 2 ... balaji81_k DFSORT/ICETOOL 8 Sat Jul 02, 2016 1:22 am

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