60 lines
2.0 KiB
XML
60 lines
2.0 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Tran>
|
|
<Transaction code="qryBalance" desc="银行实时余额查询" log_switch="1">
|
|
<Attributes>
|
|
<Attribute name="nodatabase" value="2"/> <!--数据库长连接-->
|
|
</Attributes>
|
|
<DynSentence name="QRY_ORGACTINF">
|
|
<Sentence>
|
|
SELECT CORG_NO,CAP_TYP,ACT_NO,IS_QRY FROM ORGACTINF
|
|
</Sentence>
|
|
<Fields>|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
|
|
<!-- 查询商户所对应的帐户 -->
|
|
<Exec func="PUB:OpenCursor" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_ORGACTINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod != 0">
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=打开游标失败</Set>
|
|
<Exec func="PUB:RollbackWork"/>
|
|
<Return/>
|
|
</If>
|
|
<While>
|
|
<Exec func="PUB:FetchCursor" error="IGNORE"/>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CloseCursor"/>
|
|
<Break/>
|
|
</If>
|
|
<ElseIf condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=循环游标失败</Set>
|
|
<Exec func="PUB:RollbackWork"/>
|
|
<Return/>
|
|
</ElseIf>
|
|
|
|
<If condition="IS_EQUAL_STRING($IS_QRY,N)">
|
|
<Continue/>
|
|
</If>
|
|
|
|
<Exec func="PUB:CallThirdService">
|
|
<Arg name="HTxnCd" value="STRCAT(qryBalance_,$CORG_NO)" />
|
|
<Arg name="ObjSvr" value="OFRTCAP1" />
|
|
</Exec>
|
|
<Set>RSP_CD=$RSP_CD</Set>
|
|
<Set>RSP_MSG=$ACT_BLC</Set>
|
|
|
|
</While>
|
|
<Exec func="PUB:CloseCursor" error="IGNORE"/>
|
|
<Set>Rsp_Cd=00</Set>
|
|
<Set>Rsp_Msg=交易成功</Set>
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Tran>
|
|
|