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 program with Delay question

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

New User


Joined: 21 Jun 2007
Posts: 30
Location: Baltimore

PostPosted: Tue Dec 11, 2018 11:18 pm    Post subject: CICS program with Delay question
Reply with quote

Hello

I have a CICS program and its behaving differently each time. Not sure what is wrong.

1) DECLARE CURSOR WITH HOLD OPTION
2) FETCH 1 ROW write it into an array
3) FETCH Next row and write into an array and then process the prev read record.
4) Determine How many MQ messages (let says 4) to be written into a Queue for prev read record
5) Write the message into the Queue and then issue CICS SYNCPOINT to release the message in the queue and next statement issue CEE3DLY for 20 seconds so that the message in the queue which were released process .
6) STEP 5 is being performed using an INLINE perform until limit of 4 is reached.
7) CLOSE the cursor
8) DELETE the table rows for which the cursor was opened
9) ISSUE CICS SYNCPOINT

The problem is during STEP 5 which it has to perform 4 times it is going back to STEP 1 in middle of the perform. Not sure what is wrong. Please advise. When I perform the same transaction using XPEDITER I get correct results.

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

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2152
Location: UK

PostPosted: Wed Dec 12, 2018 3:21 pm    Post subject: Reply to: CICS program with Delay question
Reply with quote

No idea as there is no code to analyse.
Back to top
View user's profile Send private message
Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 2114
Location: NY,USA

PostPosted: Wed Dec 12, 2018 8:51 pm    Post subject:
Reply with quote

Prasad,
Quote:
5) Write the message into the Queue and then issue CICS SYNCPOINT to release the message in the queue and next statement issue CEE3DLY for 20 seconds so that the message in the queue which were released process .

1.Why do you need to issue SYNCPOINT for every messages? ain't you be doing this per UOW which in this case is 4 messages?
2.Why do you need to Delay here? Ideally without Delay it should be processed. It is a bad design to delay for 20 seconds for every messages to get processed and especially in online environments. Ain't your MQs suppose to be defined with Trigger Type as F when you are processing messages as bulk than one at a time?
Code:
Trigger type . . . . . . : F  F=First, E=Every, D=Depth, N=None

3. Check your Perform statements make sure THRU has a correct EXIT Name.
4. Do you aware of CICS DELAY? If yes then why don't you use that if at all required?
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 Attachmate file transfer question John Poulakos All Other Mainframe Topics 3 Wed Mar 20, 2019 1:45 am
No new posts z/VM z/VSE Get CPU-time of a COBOL Ba... Andi1982 COBOL Programming 2 Mon Mar 11, 2019 3:36 pm
No new posts COBOL Table Question GAPX1 COBOL Programming 3 Thu Mar 07, 2019 9:48 pm
No new posts How to delete a VSAM dataset from ins... Mike.Fulton JCL & VSAM 6 Fri Feb 15, 2019 5:58 am
No new posts Suggestion on KSDS VSAM READ in CICS subratarec CICS 5 Wed Feb 13, 2019 4:42 pm

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