LOCAL oFiles As TOpenFiles, oFile As TOpenFile
oFiles = CREATEOBJECT("TOpenFiles", "SOME_SERVER")

CREATE CURSOR csFiles (fileid I, permissions I, numlocks I,;
        username C(32), pathname C(250))

FOR EACH oFile IN oFiles
        WITH oFile
                INSERT INTO csFiles (fileid, permissions, numlocks,;
                        username, pathname);
                VALUES (.fileid, .permissions, .numlocks,;
                        FromUnicode(.username),;
                        FromUnicode(.pathname))
        ENDWITH
NEXT

SELECT csFiles
GO TOP
BROWSE NORMAL NOWAIT