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.
ibx/branches/udr/testsuite/Test3.pas (file contents), Revision 370 by tony, Wed Jan 5 14:59:15 2022 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 +                                                            isc_info_tra_access,
107 +                                                            isc_info_tra_isolation,
108 +                                                            fb_info_tra_dbpath]));
109    Attachment.ExecuteSQL(Transaction, 'Execute Procedure DELETE_EMPLOYEE ?', [8]);
110  
111    ResultSet := Attachment.OpenCursorAtStart(

Diff Legend

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