Versions Compared

Old Version 1

changes.mady.by.user SRP Support

Saved on

compared with

New Version Current

changes.mady.by.user Corby Nagel

Saved on

Key

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

...

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$>)