added sysprog entities
This commit is contained in:
9
SYSPROG/STPROC/MFS_CODENAME.txt
Normal file
9
SYSPROG/STPROC/MFS_CODENAME.txt
Normal file
@ -0,0 +1,9 @@
|
||||
Function MFS_CODENAME(code)
|
||||
|
||||
names = "READ.RECORD,READO.RECORD,WRITE.RECORD,DELETE.RECORD,LOCK.RECORD,UNLOCK.RECORD,SELECT,READNEXT,CLEARSELECT"
|
||||
names:= ",CLEARFILE,OPEN.FILE,CREATE.FILE,RENAME.FILE,MOVE.FILE,DELETE.FILE,OPEN.MEDIA,CREATE.MEDIA,READ.MEDIA,WRITE.MEDIA"
|
||||
names:= ",UNLOCK.ALL,FLUSH,INSTALL,RESERVED,RESERVED,RESERVED,OMNI.SCRIPT,CLOSE.MEDIA,RECORD.COUNT,REMAKE.FILE,CREATE.INDEX,DELETE.INDEX,UPDATE.INDEX,SELECT.INDEX,READNEXT.INDEX"
|
||||
|
||||
ans = Field(names, ',',code)
|
||||
|
||||
Return ans
|
Reference in New Issue
Block a user