ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/testsuite/Test3.pas
(Generate patch)

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