Page History
...
Get_Status(), Set_FSError(), RevError.Dat, FsMsg routine
Remarks
Code Block |
---|
/* The following code is roughly equivalent to the processing in the Set_FSError function. */ Equ SETSTAT_OK$ To 0 Equ SETSTAT_ERR$ To 1 Equ SETSTAT_APPEND$ To -1 If @FILE.ERROR Then code = @FILE.ERROR<FSCODE$> If Num(code) Then code = FSERROR_PREFIX$:code End End status = Set_Status(SETSTAT_ERR$, code, @FILE.ERROR<FSMSG$>) |