57 lines
1.7 KiB
Plaintext
57 lines
1.7 KiB
Plaintext
compile insert FILE.SYSTEM.EQUATES
|
|
* Advanced Revelation filing system action codes.
|
|
|
|
EQU READ.RECORD TO 1
|
|
EQU READO.RECORD TO 2
|
|
EQU WRITE.RECORD TO 3
|
|
EQU DELETE.RECORD TO 4
|
|
EQU LOCK.RECORD TO 5
|
|
EQU UNLOCK.RECORD TO 6
|
|
|
|
EQU SELECT TO 7
|
|
EQU READNEXT TO 8
|
|
EQU CLEARSELECT TO 9
|
|
|
|
EQU CLEARFILE TO 10
|
|
EQU OPEN.FILE TO 11
|
|
EQU CREATE.FILE TO 12
|
|
EQU RENAME.FILE TO 13
|
|
EQU MOVE.FILE TO 14
|
|
EQU DELETE.FILE TO 15
|
|
|
|
EQU OPEN.MEDIA TO 16
|
|
EQU CREATE.MEDIA TO 17
|
|
EQU READ.MEDIA TO 18
|
|
EQU WRITE.MEDIA TO 19
|
|
|
|
EQU UNLOCK.ALL TO 20
|
|
EQU FLUSH TO 21
|
|
EQU INSTALL TO 22
|
|
|
|
*EQU RESERVED TO 23
|
|
*EQU RESERVED TO 24
|
|
*EQU RESERVED TO 25
|
|
|
|
EQU OMNI.SCRIPT TO 26
|
|
* Following OMNI.SCRIPT sub-codes are passed in the FMC
|
|
EQU OMNIBUS_LIST$ TO 'GROUP_NUMBER'
|
|
EQU OMNIBUS_CALL$ TO 0 ;* Required
|
|
EQU SMART_TEST$ TO 1 ;* Required - returns 0 in FLAG if
|
|
* bond is NOT smart. Otherwise returns
|
|
* an intelligence factor in FLAG.
|
|
EQU SCRIPT_CALL$ TO 2 ;* Intelligent database language script
|
|
* for smart bonds only
|
|
EQU SCRIPT_OK_CALL$ TO 3 ;* For smart bonds only. If true then
|
|
* asynchronous processesing is used.
|
|
|
|
EQU CLOSE.MEDIA TO 27
|
|
EQU RECORD.COUNT TO 28
|
|
EQU REMAKE.FILE TO 29
|
|
|
|
EQU CREATE.INDEX TO 30
|
|
EQU DELETE.INDEX TO 31
|
|
EQU UPDATE.INDEX TO 32
|
|
EQU SELECT.INDEX TO 33
|
|
EQU READNEXT.INDEX TO 34
|
|
* Source Date: 16:41:43 12 JAN 1993 Build ID: OI*1.0.10 Level: 2.0
|