|
View previous topic :: View next topic
|
| Author |
Message |
shafi_mscse
New User
Joined: 14 Jan 2009
Posts: 6
Location: Bangalore
|
|
|
|
| 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 |
|
 |
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland
|
|
|
|
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 |
|
|
shafi_mscse
New User
Joined: 14 Jan 2009
Posts: 6
Location: Bangalore
|
|
|
|
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 |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland
|
|
|
|
| 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 |
|
|
satishk
New User
Joined: 20 Jul 2007
Posts: 7
Location: Hyderabad
|
|
|
|
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 |
|
|
shafi_mscse
New User
Joined: 14 Jan 2009
Posts: 6
Location: Bangalore
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
the code tags... the code tags... the code tags gentlemen
they make things more understandable for people reading Your posts |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
Could the missing period after the 4th end-exec matter? |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland
|
|
|
|
| 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 |
|
|
shafi_mscse
New User
Joined: 14 Jan 2009
Posts: 6
Location: Bangalore
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
Earl Haigh
Active User
Joined: 25 Jul 2006
Posts: 475
|
|
|
|
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.
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 |
|
|
|
|
