HMGforum.com

Code: Select all

ERRORBLOCK({ |oErr| MyOnError(oErr)})

Code: Select all

bSaveHandler := errorblock( { |x| break(x) } )

BEGIN SEQUENCE

     * This is the code to execute that could fail
     
     EXECUTE REPORT _TempReport PREVIEW
     DELETE FILE RePreviewSemaforo.Txt
     <...>

RECOVER USING oError

     * This is the code to execute if the above code fails

     MSGSTOP( oError:Description + " " + oError:Operation  , "Report Error:" )

     DELETE FILE RePreviewSemaforo.Txt
     Exit Program

END

errorblock( bSaveHandler )

Code: Select all

This example demonstrates an error handler returning an error
        object to the variable specified in the USING clause of the RECOVER
        statement:

            LOCAL objLocal, bLastHandler
            //
            // Save current and set new error handler
            bLastHandler := ERRORBLOCK({ |objErr| ;
                  MyHandler(objErr, .T.) })
            //
            BEGIN SEQUENCE
               .
               . <operation that might fail>
               .
            RECOVER USING objLocal
               //
               // Send messages to objLocal and handle the error
               ? "Error: "
               IF objLocal:genCode != 0
                  ?? objLocal:description
               ENDIF
               .
               .
               .
            END
            //
            // Restore previous error handler
            ERRORBLOCK( bLastHandler )

            FUNCTION MyHandler( objError, lLocalHandler )
               //
               // Handle locally returning the error object
               IF lLocalHandler
                  BREAK objError
               ENDIF
               .
               . <other statements to handle the error>
               .
               RETURN NIL