I appreciated all of the good and prompt responses.  It was really appreciated. 
 I did try 
'task' just now with the same result.  But this may just be the way our logic 
is coded.

Now we are trying the approach of a shared resource ENQ/DEQ.  We will test two 
transactions 
calling a transaction that ENQ's a resource.  This SHOULD cause the one 
transaction to wait 
until the other is DEQ'd.

I'm not too CICS savvy, but how do you define a small field that is shared 
between transactions 
(does anyone have an example), and do you refer to that field in the ENQ by 
name and length 
(again, an example would be most helpful)?

Thanks again! 

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
John Weber
Sent: Friday, July 08, 2011 12:08 PM
To: IBM-MAIN@bama.ua.edu
Subject: ENQ/DEQ for CICS Transaction ID

We are looking to restrict a transaction from being run concurrently.  We have 
launched two other 
transactions (the code below) that ENQ/DEQ this one transaction.  Using 
displays we were
expecting to see all of the displays of these two other transactions to follow 
one after the other; 
instead they are mingled.  This suggests that they didn't run one after the 
other.

Is the following code sufficient or even unworkable?  I have read that ENQ/DEQ 
can be used for 
transactions and not only with shared memory resources. 

Also, does some other ENQ information need to be set up?  

Thank you so much...

XXXX refers to the transaction id and XXXXXXXX refers to the program associated 
with this id.

 000024            EXEC CICS
 000025               ENQ RESOURCE(XXXX)
 000027                   RESP    (WS-CICS-RESPONSE)
 000028            END-EXEC

 000038            EXEC CICS
 000039               LINK PROGRAM('XXXXXXXX')
 000040               RESP        (WS-CICS-RESPONSE)
 000041               COMMAREA    (WS-PARAMETER)
 000042            END-EXEC

 000044            EXEC CICS
 000045               DEQ RESOURCE(XXXX)
 000046                   RESP    (WS-CICS-RESPONSE)
 000047            END-EXEC

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to