35 lines
1.1 KiB
XML
35 lines
1.1 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<!--
|
|
冲正重发
|
|
日期 编号 修改人 修改原因
|
|
2006.04.23 liang_wj 创建
|
|
-->
|
|
<Application code="990" name="RDO">
|
|
<TableDeclare>
|
|
<Table name="pubigtjnl" value="pubigtjnl" />
|
|
</TableDeclare>
|
|
<Define>
|
|
<Macro name="ErrorProc"><!--错误处理-->
|
|
<If condition="~RetCod=0">
|
|
<Set>MSG_TYP=N</Set>
|
|
<Set>RSP_CD=000000</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>MSG_TYP=E</Set>
|
|
</Else>
|
|
</Macro>
|
|
</Define>
|
|
<!--事务启动-->
|
|
<Include file="app/base/etc/OFRTRDO1/BeginWork_CTL.XML"/>
|
|
<!--事务提交-->
|
|
<Include file="app/base/etc/OFRTRDO1/CommitWork_CTL.XML"/>
|
|
<!--事务回滚-->
|
|
<Include file="app/base/etc/OFRTRDO1/RollbackWork_CTL.XML"/>
|
|
<!--事务查询-->
|
|
<Include file="app/base/etc/OFRTRDO1/QueryTransaction_CTL.XML"/>
|
|
<!--事务控制轮询处理-->
|
|
<Include file="app/base/etc/OFRTRDO1/TransactionInvoker_CTL.XML"/>
|
|
<!--事务应答处理-->
|
|
<Include file="app/base/etc/OFRTRDO1/TransactionReply_CTL.XML"/>
|
|
</Application>
|