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: 2130
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: 2088
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 Forcepurge CICS transaction via JCL bhavin.mehta JCL & VSAM 4 Wed Jan 09, 2019 6:42 pm
No new posts Setting up a name counter in the coup... Mike.Fulton CICS 2 Tue Dec 25, 2018 1:34 am
No new posts CICS availability solution subratarec CICS 16 Thu Dec 20, 2018 9:28 am
This topic is locked: you cannot edit posts or make replies. How to process gdg in rexx program wh... pkmurali CLIST & REXX 12 Thu Dec 13, 2018 10:08 am
No new posts COBOL D2 program execution without us... dipsybaby DB2 3 Mon Dec 10, 2018 2:08 pm

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