> Jeff.. Can't do attachments here. It the code reasonable length where you
> can just included it in the body of an email?
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/
