Actually I worked with Charlie many years ago (he used to "grade" my programs and come by my desk with a copy of my program with a bunch of red marks all over it .......) He was/is the most brilliant pick person I have ever met in person with the exception of Jim Young.
I will email him and ask him about it Thanks Dougc -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jerry Banker Sent: Friday, December 07, 2007 12:47 PM To: [email protected] Subject: RE: [U2] LIST.READU On the UniVerse system the SYS.CTL and LOCK.FILE do not exist are they in Unidata? We use a program that was built by Charlie Noah that uses a file that contains tables that equate system and inode numbers to file names. You probably know him from the jbase lists. I would rather he send it than myself because mine has been modified over the years to reflect the systems that we have been on. Jerry Banker Sr Programmer Analyst Affiliated Acceptance Corp Sunrise Beach, MO 1-800-233-8483 www.affiliated.org > -----Original Message----- > From: Brutzman, Bill [mailto:[EMAIL PROTECTED] > Sent: Friday, December 07, 2007 11:24 AM > To: '[email protected]' > Subject: RE: [U2] LIST.READU > > Here is a little program called UNLOCK.ME. I hope that it is of some use. > > --Bill > > *--------------------------------------------------------- > > clear > > prompt '' > > open 'SYS.CTL' to F.SYS.CTL else null > open 'LOCK.FILE' to F.LOCK.FILE else null > > *----------------------------------------------------------------------- ---- > -- > First.Screen: > > crt @(-1) > > execute 'LIST LOCK.FILE user*port FILE.ID FILE.KEY DATE TIME ID.SUP' > > crt > crt ' _____________ ' > crt ' / \ ' > crt ' \ UnLock.Me / ' > crt ' \___________/ ' > > crt > crt ' <user.to.clear> <all> <x> ': ; input login.name > > login.name = downcase(login.name) > > begin case > case login.name = 'x' ; go The.End > case login.name = '' ; crt @(-1) ; sleep ; go First.Screen > case login.name = 'all' ; go Contact.Screen > end case > > *----------------------------------------------------------------------- ---- > --- > Get.User.Nbr: > > crt > crt ' <port> <x> ':; input User.Nbr > > User.Nbr = downcase(User.Nbr) > > begin case > case User.Nbr = 'all' ; null > case User.Nbr = 'x' ; go The.End > case User.Nbr < 0 ; go First.Screen > case User.Nbr > 45 ; go First.Screen > case 1 ; go Get.User.Nbr > end case > > *----------------------------------------------------------------------- ---- > --- > Contact.Screen: > > crt ' ---------------------------------------------------------------' > crt ' please contact ' : login.name : ' asking if ok to > clear' > crt > crt ' continue ? <yes> ': ; input Ans > crt > > Ans = downcase(Ans) > > begin case > case Ans = 'yes' ; go Begin.Clearing: > case 1 ; go The.End > end case > > *----------------------------------------------------------------------- ---- > -------- > Begin.Clearing: > > crt @(-1) > crt @(1,11):'Clearing... ': > > begin case > case login.name = 'all' ; Cmd = 'SELECT LOCK.FILE '; > > case User.Nbr = 'all' ; Cmd = 'SELECT LOCK.FILE WITH PORT LIKE > "':login.name:'*..."' > case 1 ; Cmd = 'SELECT LOCK.FILE WITH PORT = "' > :login.name:"*":User.Nbr:'" ' > end case > > execute Cmd > > EOJ = 0 > Record.Count = 0 > > loop > readnext ID else EOJ = 1 UNTIL EOJ = 1 do > > delete F.LOCK.FILE,ID > Record.Count = Record.Count + 1 > > crt @(10,18):'Locks cleared ':Record.Count > crt @(10,19):'Record ':ID:' cleared.' > > repeat > > crt > crt > crt 'Program completed. [<]' :; input Ans > crt > crt > > *----------------------------------------------------------------------- ---- > --- > The.End: > > crt @(-1) > > END > > -----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/ -- This message has been scanned for viruses and dangerous content by SecureMail, and is believed to be clean. ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
