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

global type runandwait from application
 end type
global runandwait runandwait

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

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

event open;Open(w_main)

end event

  • application runandwait(sra)