Last year I took an OpenInsight class and recently decided to apply some of my skills. So far it was difficult, because a lot of material is not documented.

I wonder if some one can help me. I am sharing data tables between AREV and OpenInsight. Some of my tables have AUDIT.MFS which I wrote attached to them. I wonder if there is any documentation of how to port MFS from AREV to OpenInsight?

Below is my code in OpenInsight. Which basically does nothing I am just trying to see if MFS call will work, but apparently it does not.

SUBROUTINE AUDIT.MFS(CODE, BFS, HANDLE, NAME, FMC, RECORD, STATUS)

Declare function Msg, Assigned

$INSERT FILE.SYSTEM.EQUATES

$INSERT FSERRORS_HDR

* PROGRAM TOP

*————————————————————–

FS=DELETE(BFS,1,1,1)

NEXTFS=FS

$INSERT FILE.SYSTEM.ONGOSUB

RETURN

*—————————————————————

READ.RECORD:

READO.RECORD:

CREATE.MEDIA:

OPEN.MEDIA:

READ.MEDIA:

WRITE.MEDIA:

CLOSE.MEDIA:

CLEARFILE:

CREATE.FILE:

DELETE.FILE:

MOVE.FILE:

REMAKE.FILE:

RENAME.FILE:

OPEN.FILE:

SELECT:

READNEXT:

CLEARSELECT:

LOCK.RECORD:

UNLOCK.RECORD:

CREATE.INDEX:

UPDATE.INDEX:

DELETE.INDEX:

SELECT.INDEX:

READNEXT.INDEX:

RESERVED:

OMNI.SCRIPT:

RECORD.COUNT:

LOCK.SEMAPHORE:

UNLOCK.SEMAPHORE:

SET.USER.SEMAPHORE:

WRITE.RECORD:

DELETE.RECORD:

NEXT_FS:

INSTALL:

FLUSH:

UNLOCK.ALL:

CALL @NEXTFS(CODE, FS, HANDLE, NAME, FMC, RECORD, STATUS)

RETURN

Thank you in advance,

Dave Berkovsky

View this thread on the forum...