**dian s 2005
**contoh sederhana pemakaian TRY ... CATCH
LOCAL x as String,y as Number,z as Number 
LOCAL oError, oError2 AS Exception
CLEAR 
x='1'   && seharusnya data ini numeric, kita buat salah dg menjadikan doi string
y=1
z=0
	
TRY
	TRY 
	   z = x + y
	CATCH TO oError
		? oError.Message    && menunjukkan kalo type mismatch
		THROW CREATEOBJECT('DianException')
	ENDTRY
CATCH TO oError2
	? oError2.Message       && menunjukkan kalo user thrown error
ENDTRY


DEFINE CLASS DianException AS Exception
UserValue = "Dian's custom error handler"
PROCEDURE Init
   STRTOFILE("Semua salah dan dustamu : " + TRANSFORM(DATETIME());
 + CHR(13),"c:\Dianerrs.log",.T.)
ENDPROC
ENDDEFINE