/***********************************************
一个数据对象一个事务（且记录错误信息到处理对象）
***********************************************/
LOOP
要处理的对象
begin
invoke api1 (api没有ROLLBACK机制）
if api有错 then
rollback;
获取错误信息;
更新错误信息到处理对象;
end if
invoke api2 (api有ROLLBACK机制）
if api有错 then
获取错误信息;
更新错误信息到处理对象;
end if
exception
when others then
rollback;
获取异常信息;
更新异常信息到处理对象;
end;
commit;
END LOOP;