Power Builder - como manejar el evento systemerror

Como manejar el evento systemerror,,,,,,Esto poque tengo una aplicacion y derepente marca error y se cierra, entonces quiero capturar el error.....

Gracias...lea agradezco su ayuda.

en el objeto aplicacion , evento systemerror pon este script

rollback;
integer li_filenum systemerror
string ls_mensaje
li_FileNum = FileOpen("C:\Error en sistema.txt", LineMode!, Write!, LockWrite!, Replace!)

ls_mensaje="Ocurrió un error en el sistema el "+string(today())
filewrite(li_filenum,ls_mensaje)

ls_mensaje="Ventana o menú : "+ string(error.windowmenu)
filewrite(li_filenum,ls_mensaje)

ls_mensaje="Objeto : "+string(error.object)
filewrite(li_filenum,ls_mensaje)

ls_mensaje="Linea : "+string(error.line)
filewrite(li_filenum,ls_mensaje)

ls_mensaje="Detalle del error : "+string(error.text)
filewrite(li_filenum,ls_mensaje)

fileclose(li_filenum)

ls_mensaje="Ha ocurrido un error grave en el sistema.~n~r"+&
"Los cambios hechos no serán tenidos en cuenta.~n~r"+&
"Por mas detalles vea el archivo ~n~r"+&
"'Error en sistema.txt' que se generó en la unidad C de su disco duro."

messagebox("",ls_mensaje)
disconnect using sqlca;
halt close

esto te mostrara un mensaje con el error y ademas te genera un archivo "Error en sistema.txt" en el disco C para q lo analices

espero te sirva
saludos desde argentina

Voy a ponerlo en la aplicacion.....Muchas Gracias....