﻿)load c:\dfs\dfsdemo
⎕PW←1000
Q←⎕NEW DFC ('localhost' 7000 'IWA')
Q.(UserId FUSERNO)
Q.FWHOIS 2001
'\\D1\SHARED' Q.FSTIE 1
(1 3⍴'brian' ¯1 0) Q.FSTAC 1
'Created' 'Undefined' 'STAC' 'TIE' 'WRITE',Q.FHIST 1
'Created' 'Undefined' 'STAC' 'TIE' 'WRITE',{⍵[;,1],Q.FTT¨⍵[;2]}Q.FHIST 1
]ftt 8.102476927E10
Q.FREAD 1 1
Q.FRDCI 1 1
N←⎕NEW DFC ('localhost' 7000 'donald' 'duck')
B←⎕NEW DFC ('localhost' 7000 'brian' 'becker')
(Q B).UserId
'\\D1\SHARED' B.FSTIE 1
Q.FHOLD 1 ⋄ 'Morten has the hold.'
'Morten was here' Q.FREPLACE 1 1
B.FHOLD 1 ⋄ ⎕←'Brian has the hold.'
'Brian was here' B.FREPLACE 1 1
Q.FRDCI 1 1
⎕EX¨'QB'