ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/testsuite/Test3.pas

Comparing ibx/trunk/fbintf/testsuite/Test3.pas (file contents):
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 359 by tony, Tue Dec 7 09:37:32 2021 UTC

#	Line 92 | Line 92 | begin
92		TPB.Add(isc_tpb_lock_read).AsString := 'EMPLOYEE';
93		TPB.Add(isc_tpb_protected);
94		Transaction := Attachment.StartTransaction(TPB,taRollback);
95	+	writeln(OutFile,'Transaction ID = ',Transaction.GetTransactionID);
96	+	if Transaction.GetIsReadOnly then
97	+	writeln(OutFile,'Transaction is Read Only')
98	+	else
99	+	writeln(OutFile,'Transaction is Read/Write');
100	+	writeTRInfo(Transaction.GetTrInformation([isc_info_tra_id,
101	+	isc_info_tra_oldest_interesting,
102	+	isc_info_tra_oldest_active,
103	+	isc_info_tra_oldest_snapshot,
104	+	fb_info_tra_snapshot_number,
105	+	isc_info_tra_lock_timeout,
106	+	fb_info_tra_dbpath,
107	+	isc_info_tra_access,
108	+	isc_info_tra_isolation]));
109		Attachment.ExecuteSQL(Transaction, 'Execute Procedure DELETE_EMPLOYEE ?', [8]);
110
111		ResultSet := Attachment.OpenCursorAtStart(

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines