Page History
...
| Code Block |
|---|
errStatus = '' * Begin the transaction * volname is the name you used in the connection / attach * call attach_Table(“MVBFS_TEST”, ‘’, ‘’) stat = rti_transaction(volname, 'BEGIN', errStatus) * Read a record in a reversable manner If stat then stat = RTI_READU( f_customers, cust_id, cust_rec) End * Change it, write it back If stat Then cust_rec<1> = ' changed ' : timedate() stat = RTI_WRITEU( f_customers, cust_id, cust_rec) End stat = RTI_READU( f_orders, order_id, orders_rec) If stat Then orders_Rec<1> = ' changed ' : timedate() stat = RTI_WRITEU( f_orders, order_id, orders_rec) End * Success? else roll back If stat then stat = rti_transaction(volname, 'COMMIT', errStatus) End Else stat = rti_transaction(volname, 'ROLLBACK', errStatus) End |
SQL
| Code Block |
|---|
* Begin the transaction
stat = rti_transaction(volname, 'BEGIN', errStatus)
If stat then
Read cust_rec from f_customers, cust_id Else
stat = false$
end
End
* Change it, write it back
If stat Then
cust_rec<1> = ' changed ' : timedate()
Write cust_rec On f_customers, cust_id Else
stat = false$
end
End
If stat then
Read orders_rec from f_orders, order_id Else
stat = false$
end
End
* Change it, write it back
If stat Then
orders_rec<1> = ' changed ' : timedate()
Write orders_rec On f_orders, order_id Else
stat = false$
end
End
* Success? else roll back
If stat then
stat = rti_transaction(volname, 'COMMIT', errStatus)
End Else
stat = rti_transaction(volname, 'ROLLBACK', errStatus)
End
Linear hash
errStatus = ''
* VOLNAME not required for linear hash use – pass “” instead
* Begin the transaction
stat = rti_transaction('', 'BEGIN', errStatus)
* Read a record in a reversable manner
If stat then
Lock f_customers, cust_id then
Read cust_rec from f_customers, cust_id Else
stat = false$
end
* Change it, write it back
If stat Then
cust_rec<1> = ' changed ' : timedate()
Write cust_rec On f_customers, cust_id Else
stat = false$
end
End
UnLock f_customers, cust_id Else null
End Else
stat = false$
End
end
If stat Then
Lock f_customers, cust_id then
Read orders_rec from f_orders, order_id Else
stat = false$
end
* Change it, write it back
If stat Then
orders_rec<1> = ' changed ' : timedate()
Write orders_rec On f_orders, order_id Else
stat = false$
end
End
UnLock f_orders, order_id Else null
End Else
stat = false$
End
end
* Success? else roll back
If stat then
stat = rti_transaction('', 'COMMIT', errStatus)
End Else
stat = rti_transaction('', 'ROLLBACK', errStatus)
End |
