Sorry for posting twice, in my previous post forgot to include subject line.

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

No special porting should be required - we share several MFSs between OI and AREV. Remember though that you must set STATUS appropriately.

The Sprezzatura Group

World Leaders in all things RevSoft

Thank you Sprezz.

Dave ..

I don't see any setting of Status() anywhere. Don't think it will work without it. You might review the MFS Shell routines in AREV to see where they belong.

Don Miller

C3 Inc.

View this thread on the forum...