Q5/ws_objects/cw_asset.pbl.src/ljcw_asset.sra

$PBExportHeader$ljcw_asset.sra
forward
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global type ljcw_asset from application
 end type
global ljcw_asset ljcw_asset

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

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