Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum 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: 2255
Location: Hampshire, 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: 2310
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
John Poulakos

Active User


Joined: 13 Jun 2012
Posts: 167
Location: United States

PostPosted: Tue Jun 04, 2019 8:41 pm    Post subject:
Reply with quote

CICS DELAY is not threadsafe and your program uses DB2, which runs with it's own storage protect key. Your potential for a hung transaction is very high.
Back to top
View user's profile Send private message
Rohit Umarjikar

Senior Member


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

PostPosted: Tue Jun 04, 2019 9:33 pm    Post subject:
Reply with quote

CICS DELAY is threadsafe when the interval is 0 and by default it is 0.

Moreover TS did not come back to discuss further, so let us save our time replying to this post any further.
Back to top
View user's profile Send private message
John Poulakos

Active User


Joined: 13 Jun 2012
Posts: 167
Location: United States

PostPosted: Tue Jun 04, 2019 10:19 pm    Post subject:
Reply with quote

Sorry, I didn't see the date.
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 HANDLE AD2R CICS ABEND Nileshkul CICS 4 Sat Dec 07, 2019 12:11 am
No new posts Is multiple program names allowed in ... Sakthidevi PL/I & Assembler 1 Tue Nov 19, 2019 11:12 pm
No new posts Cics storage violation Venkata Ramayya CICS 10 Thu Nov 07, 2019 12:45 am
No new posts CICS Web Services configuration question SickPup404 CICS 35 Mon Nov 04, 2019 9:56 pm
No new posts User question - dbzTHEdinosaur SickPup404 General Talk & Fun Stuff 2 Mon Nov 04, 2019 9:47 pm

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