PBMiner

$PBExportHeader$stringclass.sra
$PBExportComments$Generated Application Object
forward
global type stringclass from application
end type
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global type stringclass from application
string appname = "stringclass"
end type
global stringclass stringclass

on stringclass.create
appname="stringclass"
message=create message
sqlca=create transaction
sqlda=create dynamicdescriptionarea
sqlsa=create dynamicstagingarea
error=create error
end on

on stringclass.destroy
destroy(sqlca)
destroy(sqlda)
destroy(sqlsa)
destroy(error)
destroy(message)
end on

event open;Open(w_main)

end event

event systemerror;String ls_title, ls_errmsg

ls_title =  "PowerBuilder Application Execution " + &
            "Error (R" + String(error.number, "0000")  + ")"

ls_errmsg = "Application terminated.~r~n~r~nError: " + error.text

MessageBox(ls_title, ls_errmsg, StopSign!)

Halt

end event