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
 
Program Terminates at the fourth STARTBR

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

New User


Joined: 14 Jan 2009
Posts: 6
Location: Bangalore

PostPosted: Wed Jan 14, 2009 1:47 pm    Post subject: Program Terminates at the fourth STARTBR
Reply with quote

Code:
EXEC CICS STARTBR 
          DATASET   ('SMP7ACD')           
          RIDFLD    (SDF-KEY)             
          KEYLENGTH (9)                   
          RESP      (WS-DFHRESP)         
          GENERIC                         
          GTEQ                           
          END-EXEC.                       
EXEC CICS STARTBR                     
          DATASET   ('SMP7ASV')       
          RIDFLD    (XSF-KEY)         
          KEYLENGTH (8)               
          RESP      (WS-DFHRESP)       
          GENERIC                     
          GTEQ                         
          END-EXEC.                   
EXEC CICS STARTBR                       
          DATASET   ('SMP7ACV')         
          RIDFLD    (XCF-KEY)           
          KEYLENGTH (8)                 
          RESP      (WS-DFHRESP)         
          GENERIC                       
          GTEQ                           
          END-EXEC.                     
EXEC CICS STARTBR                 
          DATASET   ('SMP7ADT')   
          RIDFLD    (XCF-KEY)     
          KEYLENGTH (8)           
          RESP      (WS-DFHRESP)   
          GENERIC                 
          GTEQ                     
          END-EXEC                 

For the first three Start browse it is working perfectly. But when it is trying for fourth STARTBR it is terminating the program. I verified the file and it is opened and it has good number of records. I checked it in Expeditor for RESP code. It is not giving any RESP code, when it try to execute this fourth STARTBR it is terminating the CICS program itself.
Back to top
View user's profile Send private message

Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 995
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Wed Jan 14, 2009 2:28 pm    Post subject:
Reply with quote

Can you show more of your code and say more about how the program is terminating? You haven't given enough information for diagnosis.

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

New User


Joined: 14 Jan 2009
Posts: 6
Location: Bangalore

PostPosted: Wed Jan 14, 2009 3:05 pm    Post subject: Reply to: Program Terminates at the fourth STARTBR
Reply with quote

Hi Garry,

This is my exact coding. I didnt given any statements between these codes. Before these codes i have populated values for the key fields which are in the VSAM file. When i try it in expeditor, it executes the first browse, second browse and third browse. When it is trying to execute the fourth browse statement, it is coming out of the program. I couldnt get the response code, since its terminates the code. I have used XCF-KEY for third and fourth browse. is that gives me the problem?
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 995
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Wed Jan 14, 2009 3:21 pm    Post subject:
Reply with quote

Quote:
I have used XCF-KEY for third and fourth browse. is that gives me the problem?


I wouldn't think so, but have you tried using another variable instead? Have you tried debugging using EDF rather than Expeditor?

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

New User


Joined: 20 Jul 2007
Posts: 7
Location: Hyderabad

PostPosted: Wed Jan 14, 2009 3:29 pm    Post subject: Reply to: Program Terminates at the fourth STARTBR
Reply with quote

Hi,

U r missing the statement in the code:-

Code:
EXEC CICS STARTBR 
          DATASET   ('SMP7ACD')           
          RIDFLD    (SDF-KEY)             
          KEYLENGTH (9)                   
          RESP      (WS-DFHRESP)         
          GENERIC                         
          GTEQ                           
          END-EXEC.                       
EXEC CICS STARTBR                     
          DATASET   ('SMP7ASV')       
          RIDFLD    (XSF-KEY)         
          KEYLENGTH (8)               
          RESP      (WS-DFHRESP)       
          GENERIC                     
          GTEQ                         
          END-EXEC.                   
EXEC CICS STARTBR                       
          DATASET   ('SMP7ACV')         
          RIDFLD    (XCF-KEY)           
          KEYLENGTH (8)                 
          RESP      (WS-DFHRESP)         
          GENERIC                       
          GTEQ                           
          END-EXEC.                     
EXEC CICS STARTBR                 
          DATASET   ('SMP7ADT')   
          RIDFLD    (XCF-KEY)     
          KEYLENGTH (8)           
          RESP      (WS-DFHRESP)   
          GENERIC                 
          GTEQ                     
          END-EXEC


I would request u to refere to the syntax for the "EXEC CICS STARTBR"
which includes the statement as below:
[REQID(data-value)]

which tell the CICS for the DATASET to browse.

If u still feel my answer is not understanable, refer to references for CICS in ibm references.

--
satishk
Back to top
View user's profile Send private message
shafi_mscse

New User


Joined: 14 Jan 2009
Posts: 6
Location: Bangalore

PostPosted: Wed Jan 14, 2009 3:54 pm    Post subject:
Reply with quote

Garry,

I have used another variable and tried. Still getting same issue. Also executed using CEDF, exactly it terminates when executing the fourth browse without the response.

Satishk,

I have used REQID but still facing the same problem. But without REQID its working for first 3 browse.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10309
Location: italy

PostPosted: Wed Jan 14, 2009 4:01 pm    Post subject: Reply to: Program Terminates at the fourth STARTBR
Reply with quote

the code tags... the code tags... the code tags gentlemen
they make things more understandable for people reading Your posts
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6968
Location: porcelain throne

PostPosted: Wed Jan 14, 2009 4:03 pm    Post subject:
Reply with quote

This thread is similiar to the stupid unstring with tlide.

the op always knows what is ok and what needs help; as a result, will not post what is necessary for proper problem determination.

api calls do not 'abend' without serious syntax errors.

need to see the code. do not believe you when you say the first 3 work and the 4th blows up.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Jan 14, 2009 4:13 pm    Post subject:
Reply with quote

Hello,

Could the missing period after the 4th end-exec matter?
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 995
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Wed Jan 14, 2009 4:16 pm    Post subject:
Reply with quote

Quote:
[REQID(data-value)]

which tell the CICS for the DATASET to browse.


Yes, but op hasn't yet got to the stage where this would make any difference. I agree with Dick - still not enough to go on.

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

New User


Joined: 14 Jan 2009
Posts: 6
Location: Bangalore

PostPosted: Wed Jan 14, 2009 5:12 pm    Post subject:
Reply with quote

Hi All,

Sorry for the confusion and Inconvenience.

I Will analyse it fully and post it with more information. Sorry once again.

Thanks Garry and Dick for your help.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8154
Location: East Dubuque, Illinois, USA

PostPosted: Wed Jan 14, 2009 6:02 pm    Post subject:
Reply with quote

Questions that come to mind:
1) Are all four files in one LSR pool?
2) If so, what is the LSR pool definition (in particular, how many strings)?
3) What does the CICS message log say? If the transaction is being abended, there's an abend code being put out somewhere. Knowing the abend code is very important to solving CICS problems.
4) Alternatively, what does the CICS region job message log say?
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Wed Jan 14, 2009 11:12 pm    Post subject:
Reply with quote

Satish,

Quote:
Posted: Wed Jan 14, 2009 2:59 pm Post subject: Reply to: Program Terminates at the fourth STARTBR


I would request u to refere to the syntax for the "EXEC CICS STARTBR"
which includes the statement as below:
[REQID(data-value)]

which tell the CICS for the DATASET to browse.

If u still feel my answer is not understanable, refer to references for CICS in ibm references.



I don't think you understand your own answer.
icon_biggrin.gif
REQID is for multiple
browses against the same file name.

REQID(data-value)
specifies as a 16-bit binary value a unique request identifier for the browse; it is used to control multiple browse operations on a file. If this option is not specified, a default value of zero is assumed.
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 Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts pre-compiler for program in an HFS Pedro DB2 0 Fri Jun 23, 2017 11:13 pm
No new posts Compiling program in endeavor for tra... RALAKKAL Compuware & Other Tools 4 Mon Jun 05, 2017 8:27 pm
No new posts COBOL DB2 program - zIIP eligible vasanthz COBOL Programming 7 Wed May 31, 2017 5:12 am
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm

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