forward
global type n_execute from n_tmg
end type
end forward

global type n_execute from n_tmg
end type
global n_execute n_execute

type variables
Boolean	ib_execute
String	is_execute
n_transaction	itr_execute
end variables

on n_execute.create
call super::create
end on

on n_execute.destroy
call super::destroy
end on

event timer;call super::timer;
IF NOT ib_execute THEN RETURN
ib_execute = False                            // предохранимся от повторного запуска
EXECUTE IMMEDIATE :is_execute USING itr_execute;   // выполним 
end event

n_execute lnv_exec
n_cst_datetime lnv_datetime
lnv_exec = CREATE n_execute
lnv_exec.is_execute = "BEGIN PROCEDURE(Parm); END;" // что выполнить
lnv_exec.itr_execute= SQLCA                                    // в какой транзакции
lnv_exec.ib_execute = True                                      // разрешить запуск
lnv_exec.Start( 1 )                                                   // стартовать таймер
lnv_datetime.of_Wait( 2 )                                          // ждем старта таймера
DESTROY lnv_exec                                                 // уничтожим объект