52 lines
1.8 KiB
XML
52 lines
1.8 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Inq>
|
|
<!--查询路由信息-->
|
|
<Macro name="RuleQry">
|
|
<DynSentence name="RULESQL"> <!--查询有效路由信息-->
|
|
<Sentence>
|
|
SELECT a.CORP_ORG,WEIGHT,RUL_LVL,RUL_NO FROM CMMTORGN a, CMMTRTRULE b
|
|
WHERE a.CORP_ORG = b.CORP_ORG
|
|
AND ENB_FLG = '1'
|
|
AND RUL_STS = '2'
|
|
AND (TXN_CD = '%s' OR TXN_CD IS NULL)
|
|
AND (CRD_FLG = '%s' OR CRD_FLG IS NULL)
|
|
AND (BNK_TYP = '%s' OR BNK_TYP IS NULL)
|
|
AND ((TO_NUMBER(NVL(AMT_LOW,0)) <= '%s' AND TO_NUMBER(NVL(AMT_UP,99999999999)) >= '%s') OR (TO_NUMBER(NVL(AMT_LOW,0)) = '0' AND TO_NUMBER(NVL(AMT_UP,99999999999)) = '99999999999'))
|
|
AND (DAT_LOW <= '%s' AND DAT_UP >= '%s')
|
|
AND (TIM_LOW <= '%s' AND TIM_UP >= '%s')
|
|
ORDER BY RUL_LVL
|
|
</Sentence>
|
|
<Fields>TXN_CD|CRD_FLG|MERC_TRD_CLS|AMTMP|AMTMP|CRE_DT|CRE_DT|CRE_TM|CRE_TM|</Fields>
|
|
</DynSentence>
|
|
|
|
</Macro>
|
|
|
|
<!--查询路由信息处理-->
|
|
<Macro name="Do_TxnRtrGry">
|
|
|
|
<Set>TXN_TM=GETDATETIME()</Set>
|
|
<Set>CRE_TM=SUBSTR($TXN_TM,9,6)</Set> <!--交易时间-->
|
|
<Set>CRE_DT=SUBSTR($TXN_TM,1,8)</Set> <!--交易日期-->
|
|
|
|
<If condition="ISNULL($TXN_AMT)=0">
|
|
<Set>AMTMP=AMTDELZERO($TXN_AMT)</Set>
|
|
</If>
|
|
<Exec func="SXP:GetRandom" error="IGNORE">
|
|
<Arg name="SqlCmd" value="RULESQL"/>
|
|
<Arg name="DestName" value="CORG_NO"/>
|
|
</Exec>
|
|
<If condition="~RetCod<0">
|
|
<Set>Rsp_Cd=99</Set>
|
|
<Set>Rsp_Msg=GetRandom错误</Set>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="~RetCod=1">
|
|
<Set>Rsp_Cd=99</Set>
|
|
<Set>Rsp_Msg=交易路由查找失败</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
|
|
<Exec func="PUB:DumpETF"/>
|
|
|
|
</Macro>
|
|
</Inq> |