Jeff.. Can't do attachments here. It the code reasonable length where you can just included it in the body of an email?
And as a side note.. If you have SB+ they have a /LOCKS command which does show more info, including the real file name. I was even able to edit the screen used to make the length of some fields longer to make it more usable. Thanks, Marilyn A. Hilb Value Part, Inc Direct: 847-918-6099 Fax: 847-367-1892 [EMAIL PROTECTED] www.valuepart.com -----Original Message----- From: Jeffrey Butera [mailto:[EMAIL PROTECTED] Sent: Thursday, April 14, 2005 12:07 PM To: [email protected] Subject: Re: [U2] Locks, releases and STATU() (oh my) Attached is a small UD program that nicely formats the output from GETREADU. As most Datatel clients know, if you have a UD table buried down one (or more) directories, the output from LIST.READU is almost useless because it shows the relative pathname (which doesn't fit in 8 characters). The attached program neatly parses out the data. Can say if this works well on UV (but if it has GETREADU like UD, I imagine it'll work fine). -- Jeff Butera, Ph.D. Administrative Systems Hampshire College [EMAIL PROTECTED] 413-559-5556 "...our behavior matters more than the beliefs that we profess." Elizabeth Deutsch Earle * R.PH = GETREADU() P= -1 Y = 25 PRINT @(-1): MAX = COUNT(R.PH,@FM) + (R.PH #'') FOR CNT = 1 TO MAX Y += 1 IF Y > 21 THEN P += 1 IF P > 0 THEN PRINT @(0,23):'RETURN TO CONTINUE :': INPUT CR IF CR[1,1] = 'S' OR CR[1,1] = 'Q' OR CR[1,1] = 'E' THEN PRINT STOP END END Y = 2 PRINT @(-1):' RECORD LOCKS' PRINT ' UID PORT LOGINS... FILE NAME...........': PRINT 'RECORD KEY.......... ..TIME.. ...DATE..' END PORT = FIELD(R.PH<CNT,5>'/',1,1) FPOS = COUNT(R.PH<CNT,6>,'/')+(R.PH<CNT,6>#'') FNAME = FIELD(R.PH<CNT,6>,'/',FPOS,1) PRINT @(0,Y):FMT(R.PH<CNT,3>,'R#5'):' ':FMT(PORT,'R#4'): PRINT ' ':FMT(R.PH<CNT,4>,'L#8'):' ':FMT(FNAME,'L#20'): PRINT ' ':FMT(R.PH<CNT,9>,'L#20'):' ':FMT(R.PH<CNT,11>,'R#8'): PRINT ' ':FMT(R.PH<CNT,12>,'L#12') NEXT CNT ------- 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/
