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/
