Difference between revisions of "RETRY"

From Recital Documentation Wiki
Jump to: navigation, search
 
 
(3 intermediate revisions by 2 users not shown)
Line 1: Line 1:
=RETRY=
 
 
 
==Class==
 
Error Handling and Debugging
 
 
 
 
==Purpose==
 
==Purpose==
 
Retry a command after an error was encountered
 
Retry a command after an error was encountered
Line 15: Line 8:
  
 
==See Also==
 
==See Also==
[[ON ERROR]], [[RETURN]], [[ERROR()]], [[ERRNO()]], [[MESSAGE()]]
+
[[ERROR()]], [[ERRNO()]], [[MESSAGE()]], [[ON ERROR]], [[RETURN]]
  
  
Line 25: Line 18:
 
<code lang="recital">
 
<code lang="recital">
 
procedure file_open
 
procedure file_open
 
+
  if error() =  15 .and. errno() = 11
if error() =  15 .and. errno() = 11
+
      dialog message message()+ ".  Retry?"
  dialog message message()+ ".  Retry?"
+
      if lastkey() = asc("Y")
  if lastkey() = asc("Y")
+
          retry
    retry
+
      endif
 
   endif
 
   endif
endif
 
 
return
 
return
  
Line 41: Line 33:
  
 
==Products==
 
==Products==
Recital Database Server, Recital Mirage Server, Recital Terminal Developer
+
Recital Server, Recital  
 
[[Category:Documentation]]
 
[[Category:Documentation]]
 
[[Category:Commands]]
 
[[Category:Commands]]
 +
[[Category:Error Handling and Debugging]]
 +
[[Category:Error Handling and Debugging Commands]]

Latest revision as of 16:22, 12 November 2009

Purpose

Retry a command after an error was encountered


Syntax

RETRY


See Also

ERROR(), ERRNO(), MESSAGE(), ON ERROR, RETURN


Description

The RETRY command re-executes a command that was reported as being in error. It is used in conjunction with the ON ERROR command.


Example

procedure file_open
  if error() =  15 .and. errno() = 11
      dialog message message()+ ".  Retry?"
      if lastkey() = asc("Y")
          retry
      endif
  endif
return
 
on error do file_open
use accounts exclusive
on error


Products

Recital Server, Recital