Here's our homegrown GET.LOCKS. It works on unidata, not sure about
universe.
[EMAIL PROTECTED]
LINE.CNT = 1
HEAD="UNBR""L#8"
HEAD:="UID""L#6"
HEAD:="UNAME""L#8"
HEAD:="TTY""L#8"
HEAD := "FILE/RECORD ID""L#25"
HEAD:="M""L#3"
HEAD:="TIME""L#9"
HEAD:="DATE"
INFO=GETREADU()
ACNT=DCOUNT(INFO,@AM)
PRINT @(-1):HEAD
PRINT
FOR J=1 TO ACNT
PRINT INFO<J,2>"L#8":
PRINT INFO<J,3>"L#6":
PRINT INFO<J,4>"L#8":
PRINT INFO<J,5>"L#8":
PRINT INFO<J,6>[1,24]"L#25":
PRINT INFO<J,10>"L#3":
PRINT INFO<J,11>"L#9":
PRINT INFO<J,12>"L#12"
PRINT SPACE(30):INFO<J,9>"L#30"
LINE.CNT +=2
IF LINE.CNT GE HEIGHT THEN
XX=IN()
PRINT @(-1):HEAD
PRINT
LINE.CNT=1
END
NEXT J
PRINT
PRINT ACNT:" active database locks as of ":OCONV(TIME(),'MT')
PRINT
Not particularly elegant, but it gets the job done. Here's what it looks
like in action:
UNBR UID UNAME TTY FILE/RECORD ID M TIME DATE
3063 916 jlf0539 pts/338 ../IVY-ICS/FNGD.STATS X 13:42:30 Dec 07
2007
005117362-90-OVS_1!0501
3063 916 jlf0539 pts/338 ../IVY-ICS/INV.WHSE.a X 13:42:30 Dec 07
2007
005117362-90-OVS_1!0501!0503
3063 916 jlf0539 pts/338 ../IVY-JCS/JOB.FNGD.STAT X 13:42:30 Dec 07
2007
005050107239A0
3063 916 jlf0539 pts/338 DAILY.FNGD.RECEIPT X 13:42:30 Dec 07
2007
005320960
3063 916 jlf0539 pts/338 FNGD.RECEIPT.HIST X 13:42:30 Dec 07
2007
005320960
3063 916 jlf0539 pts/338 ORDER.DETAIL X 13:42:20 Dec 07
2007
005050107239!000
3063 916 jlf0539 pts/338 ORDER X 13:42:30 Dec 07
2007
005050107239
23447 2352 pdqadminpts/322 /ivy/prod/IVY/CONTROL X 12:17:12 Sep 17
2007
HNP400.LOCK
1327 2369 rgs0450 pts/50 ../IVY-ICS/INV.WHSE X 13:41:30 Dec 07
2007
00445962-2_7!0401
1327 2369 rgs0450 pts/50 ../IVY-ICS/INV.WHSE X 13:41:50 Dec 07
2007
00445962-2_8!0401
1327 2369 rgs0450 pts/50 ../IVY-ICS/INV.WHSE X 13:42:30 Dec 07
2007
00488139-2_2!0401
12638 1195 edi none /ivy/prod/IVY/CONTROL X 07:24:40 Nov 13
2007
COST.DM.CONTROL
34 active database locks as of 13:42
Hope this helps.
--
DW
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Doug Chanco
Sent: Friday, December 07, 2007 11:44 AM
To: [email protected]
Subject: [U2] LIST.READU
Hello all,
I am back in the universe world after working in jBASE for many
years now, is there a better tool than LIST.READU to show the locking
table? (similar to jBASE SHOW-ITEM-LOCKS which is pretty awesome)
It shows record locks BUT not what file the lock is on ....... I am
still learning our system and seeing a lock like "123456789" does not
tell me anything about what file the lock is on, I suppose I might be
able to figure out something with the inode but still ......
Active Record Locks:
Device.... Inode.... Netnode Userno Lmode Pid Login Id
Item-ID.............
3080194 446496 0 142 10 RU 59788 12673 16151029
3080194 338920 0 142 12 RU 59788 12673 16151029
Is anyone aware of a better tool?
Thanks
Dougc
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
