File: netquery.sra
Size: 696
Date: Mon, 31 Dec 2018 21:14:38 +0100
$PBExportHeader$netquery.sra
forward
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global variables
n_netapi gn_netapi

end variables

global type netquery from application
 end type
global netquery netquery

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

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

event open;Open(w_netapi)

end event