File: im.sra
Size: 639
Date: Tue, 22 Jan 2008 23:40:27 +0100
$PBExportHeader$im.sra
forward
global type im from application
end type
global n_transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global variables

end variables

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

on im.create
appname="im"
message=create message
sqlca=create n_transaction
sqlda=create dynamicdescriptionarea
sqlsa=create dynamicstagingarea
error=create error
end on

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

  • application im(sra)