76 lines
2.3 KiB
XML
76 lines
2.3 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Root>
|
|
<!--响应处理-->
|
|
<!--
|
|
必需输入域:Receiver|MSG_NO|
|
|
选择输入域:
|
|
正常输出域:MSG_TYP|RSP_CD|
|
|
出错输出域:RSP_CD|
|
|
-->
|
|
|
|
<Transaction code="PubsubReply">
|
|
<DynSentence name="upd1"><!--成功-->
|
|
<Sentence>
|
|
UPDATE pubsndjnl SET STS='2' WHERE MSG_NO='%s' and receiver='%s'
|
|
</Sentence>
|
|
<Fields>MSG_NO|receiver|</Fields>
|
|
</DynSentence>
|
|
<DynSentence name="upd2"><!--失败-->
|
|
<Sentence>
|
|
UPDATE pubsndjnl SET STS='%s',FAL_TMS='%s' WHERE MSG_NO='%s' and
|
|
receiver='%s'
|
|
</Sentence>
|
|
<Fields>STS|FAL_TMS|MSG_NO|receiver|</Fields>
|
|
</DynSentence>
|
|
<DynSentence name="query1">
|
|
<Sentence>
|
|
select FAL_TMS from pubsndjnl where MSG_NO='%s' and
|
|
receiver='%s'
|
|
</Sentence>
|
|
<Fields>MSG_NO|receiver|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>MSG_NO=@MSG.MSG</Set>
|
|
<Set>Receiver=@MSG.REV</Set>
|
|
<If condition="$RSP_CD=000000">
|
|
<If condition="@MSG.SSC=000000">
|
|
<!--Exec func="PUB:ExecSql" error="IGNORE">
|
|
<Arg name="SqlCmd" value="upd1"/>
|
|
</Exec-->
|
|
</If>
|
|
<ElseIf condition="@MSG.SSC!=100502">
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="query1" />
|
|
</Exec>
|
|
<Set>FAL_TMS=ADD($FAL_TMS,1)</Set>
|
|
<If condition="INTCMP($FAL_TMS,5,$MAX_TMS)=1">
|
|
<Set>STS=4</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>STS=3</Set>
|
|
</Else>
|
|
<Exec func="PUB:ExecSql" error="IGNORE">
|
|
<Arg name="SqlCmd" value="upd2" />
|
|
</Exec>
|
|
</ElseIf>
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="query1" />
|
|
</Exec>
|
|
<Set>FAL_TMS=ADD($FAL_TMS,1)</Set>
|
|
<If condition="INTCMP($FAL_TMS,5,$MAX_TMS)=1">
|
|
<Set>STS=4</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>STS=3</Set>
|
|
</Else>
|
|
<Exec func="PUB:ExecSql" error="IGNORE">
|
|
<Arg name="SqlCmd" value="upd2" />
|
|
</Exec>
|
|
</Else>
|
|
<Exec func="PUB:SetNoResponse" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root>
|