$PBExportHeader$n_tr.sru forward global type n_tr from pfc_n_tr end type end forward global type n_tr from pfc_n_tr end type global n_tr n_tr forward prototypes public function long of_begin () end prototypes public function long of_begin ();////////////////////////////////////////////////////////////////////////////// // // Function: of_Begin // // Access: public // // Arguments: none // // Returns: long // // Description: Begin a transaction // // Note: Logs the beginning of the transaction with the SQL Spy. // ////////////////////////////////////////////////////////////////////////////// long ll_rc // If the SQLSpy Window is open, mark the beginning of the transaction. ll_rc = of_Execute("Begin Transaction") If ll_rc = 0 Then Return 1 End If Return ll_rc end function on n_tr.create call transaction::create TriggerEvent( this, "constructor" ) end on on n_tr.destroy call transaction::destroy TriggerEvent( this, "destructor" ) end on
File: n_tr.sru
Size: 1015
Date: Tue, 22 Jan 2008 23:26:18 +0100
Size: 1015
Date: Tue, 22 Jan 2008 23:26:18 +0100
- pfc_n_tr n_tr(sru)