Re:Access to Lock Data Used in PMRM?

Discussion created by ca.portal.admin on Mar 9, 2010
Hi, =20

I have been looking at a bunch of DEADLOCK and STALL issues in some CAS
code. =20
I have a couple programs that are stalling quite often. One in
partiuclar appears,based on the last command displayed in the Log (using
ADS TRACE), that the next command that SHOULD be executed is a OBTAIN
OWNER - which SHOULD get the PURCHASE-ORDER (owner of an activity
junction record). =20
I am assuming that another program is locking the record (and it seems
like this data stays locked for quite a long time - stalls leading to

They do not have PMRM which I would think would help identify what
program might be holding onto the record the stall program is not
getting (the example below is from a presentation on dealing with
Is there some other way to see this data (which programs are holding a
lock) - be it the Network (IDMSNWKA) or some kind of journal report?=20
From a presentation on Deadlocks: (My apologies to the author for not
knowing who wrote it)
PMRM - Active User Task Detail
PM-R16.0 TECHDC99 Computer Associates Intl. V545 04.112
CMD--> 02 Active User Task Detail
Task Task Current Waited_On Dbkey
Number Code Program Dbkey Holder
109414 ADS2 DBCRUPD 680037: 13 VL500006
109887 ADS2 DBCRUPD 680021: 13 VL500035
109923 ADS2 DBCRUPD 680022: 1 VL500025
109917 ADS2 DBCRUPD 680039: 13 VL500003
109797 ADS2 DBCRUPD 680019: 11 VL500018
109827 ADS2 DBCRUPD 680047: 1 VL500024

The information transmitted is intended only for the person or entity to
which it is addressed and may contain CONFIDENTIAL material. If you
receive this material/information in error, please contact the sender
and delete or destroy the material/information.
IDMS Public Discussion Forum


Re: Access to Lock Data Used in PMRM?
"We used to have an Exit 5 routine on our Australian IDMS User Group ""routin=
es tape"" - that so long as you had TASK COLLECT turned on in Sysgen you cou=
ld use the User Group supplied Exit 5 to write the stats to SMF - we used t=
o use the SMF Write function of Cullinet's own SVC to do this. Looked just =
like the real thing. Cullinet Australia (as it was in those days) hated my =
guts as it cost us PMRM sales after that was brought in - but customers wer=
e happy and that was my ""raison d'etre"" as far as I was concerned. That cod=
e has long since disappeared into a bit bucket - I hope! 8-)

The simple answer though is - that without PMRM - the average customer is n=
ot going to be able to write stats to SMF. If you don't have the reports th=
ey're not of all that much value in any event unless you take the time to w=
rite your own.

Cheers - Gary =20

Gary Cherlet
Justice Technology Services
Department of Justice, SA Government
Telephone +61 (0)8 8226 5199
Facsimile +61 (0)8 8226 5311
Mobile +61 (0)41 333 1613

This e-mail message and any attachments are qualified as follows: Addressin=
g: If you have received this e-mail in error, please advise by reply e-mai=
l to the sender. Please also destroy the original transmission and its con=
tents. Confidentiality: This e-mail may contain confidential information w=
hich also may be legally privileged. Only the intended recipient(s) may ac=
cess, use, distribute or copy this e-mail. Individual Views: Unless otherw=
ise indicated, the views expressed are those of the sender, not Justice Tec=
hnology Services. Computer Viruses: It is the recipient's responsibility t=
o check the e-mail and any attached files for viruses.