Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Get_Status()Set_FSError()RevError.DatFsMsg 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$>)