Dave: With UniData V7.1.9 on Windows, you can:
3 Dev (0)-> LIST.READU UNO UNBR UID UNAME TTY FILENAME RECORD_ID M TIME DATE 4 3612 197615 wphasket pts/4 APVENDOR 9999 X 12:13:01 Dec 07 Bill >-----Original Message----- >From: [EMAIL PROTECTED] >[mailto:[EMAIL PROTECTED] On Behalf Of Dave Walker >Sent: Friday, December 07, 2007 10:49 AM >To: '[email protected]' >Subject: RE: [U2] LIST.READU > >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/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
