PBMiner

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

global variables
w_main gw_frame
String gs_appname
String gs_libnames[]
n_directory gn_dir
n_linectr gn_ctr

end variables

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

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

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

event open;gn_dir = Create n_directory
gn_ctr = Create n_linectr

Open(w_main)

end event

event close;Destroy gn_dir
Destroy gn_ctr

end event