Click above to get retro games delivered to your door ever month!

Function:    RLIBERROR()

Purpose:     Return and, optionally set, the last RLIB error number.

Syntax:      RLIBERROR( [newerror] )

Arguments:   newerror    - Optional numeric value to set RLIBERROR.

Returns:     The last RLIB error number.

Description: This is an error function used to query for the last error
             that occurred in an RLIB function.  Optionally this error
             value may be set to a new value.  This capability is used
             primarily by all RLIB functions internally to set the error
             value initially to zero, and to set the error value if and
             when an error occurs.

             For a complete list of RLIB error values and their meanings,
             see Appendix A - RLIB Error Codes.

Notes:       Every RLIB function sets this error value to zero on entry.

Example:     IF .NOT.  OPENED("dbf1 INDEX ntx1", "dbf2 INDEX ntx2")
                *-- OPENED() returned False, but why.....
                DO CASE
                CASE RLIBERROR() = 1101
                   message = "File sharing violation"
                CASE RLIBERROR() = 1102
                   message = "Database file not found"
                CASE RLIBERROR() = 1103
                   message = "Associated index file not found"
                CASE RLIBERROR() = 1104
                   message = "Associated memo file not found"
                CASE RLIBERROR() = 1105
                   message = "Invalid alias name or other syntax error"
                ENDCASE
                BOXASK( "W+/R", "Error opening required database files:",;
                         message, "Press any key to continue" )
             ENDIF

Source:      RL_RLIBE.PRG

See also:    RLIBINIT(), RLIBVER()