> 0017: EXECUTE 'LIST.READU' CAPTURING REPLY
Or EXECUTE 'LIST.READU USER ':STATUS() CAPTURING REPLY
or even EXEUCTE 'LIST.READU INTERNAL USER ':STATUS() CAPTURING
REPLY
If INTERNAL keyword is used, login id is probably REPLY<2,8>.
(This, for UV.)
> 0018: REPLY = TRIM(REPLY)
> 0019: CONVERT ' ' TO @VM IN REPLY
> 0020: DEL REPLY<1> ; DEL REPLY<1> ; DEL REPLY<1>
> 0021: CONVERT @FM TO @VM IN REPLY
> 0022: LOCATE RECORD.KEY IN REPLY<1,1> SETTING X THEN
> 0023: LOCK.ERR = FILE.NAME:' record ':RECORD.KEY
> 0024: LOCK.ERR := ' locked by ':REPLY<1,X-1>
> 0025: LOCK.ERR := ' (':REPLY<1,X-5>:')'
> 0026: END ELSE
> 0027: LOCK.ERR = FILE.NAME:' ':RECORD.KEY:' ':' unknown lock'
> 0028: END
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
