atom

begin tran
select * from zzxatoml
-- select * from zzxcompr

insert into zzxatoml (pKey, User_ID, Last_mod, Process, EMAIL_SUBJECT, EMAIL_BODY, EMAIL_FILENAME)
 values (3, 'CGSADMIN', '2015-05-22 08:48:00', 'ZZOINVCP', 'W.L. Gore & Associates Invoices', 'Attached is your invoice from W.L. Gore & Associates', 'GORE_INVOICES')

update bcsysnum set sy_number = (select max(PKey) from zzxatoml) where sy_table = 'zzxatoml'

select * from zzxatoml
-- rollback

commit