86 lines
2.7 KiB
XML
86 lines
2.7 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
|
|
<!--获取业务渠道在状态字中位置(QueryBusSts)-->
|
|
<!--输入参数:BUS_CNL 业务渠道 必输 -->
|
|
<Function name="QueryBusSts">
|
|
<Input>BUS_CNL|</Input>
|
|
<Output>BUS_CNL_POS|MSG_CD|</Output>
|
|
<Process>
|
|
<!--必输项检查-->
|
|
<Set>BUS_CNL=DELBOTHSPACE($BUS_CNL)</Set>
|
|
<If condition="ISNULL($BUS_CNL)">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg必输项不能为空 -->
|
|
<Arg name="MsgCd" value="MKM22002"/>
|
|
<Arg name="MsgDat" value="必输项不能为空"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!-- 远程仍为WWW,PORTAL发起则为CMPAY -->
|
|
<If condition="IS_EQUAL_STRING($BUS_CNL,WWW,SCP,OPN)">
|
|
<Set>BUS_CNL=CMPAY</Set>
|
|
</If>
|
|
<Switch expression="$BUS_CNL">
|
|
<Case value="CMPAY">
|
|
<Set>BUS_CNL_POS=1</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="WAP">
|
|
<Set>BUS_CNL_POS=2</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="SMS">
|
|
<Set>BUS_CNL_POS=3</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="STK">
|
|
<Set>BUS_CNL_POS=4</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="CAS">
|
|
<Set>BUS_CNL_POS=5</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="CALL">
|
|
<Set>BUS_CNL_POS=6</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="POS">
|
|
<Set>BUS_CNL_POS=7</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="BOSS">
|
|
<Set>BUS_CNL_POS=8</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="ATM">
|
|
<Set>BUS_CNL_POS=9</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="PVP">
|
|
<Set>BUS_CNL_POS=10</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="CAG">
|
|
<Set>BUS_CNL_POS=11</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Default>
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg渠道类型不匹配 -->
|
|
<Arg name="MsgCd" value="MKM22006" />
|
|
<Arg name="MsgDat" value="渠道类型不匹配"/>
|
|
</Exec>
|
|
<Return/>
|
|
</Default>
|
|
</Switch>
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg交易成功 -->
|
|
<Arg name="MsgCd" value="MKM00000"/>
|
|
<Arg name="MsgDat" value="交易成功"/>
|
|
</Exec>
|
|
<Exec func="PUB:DumpETF"/>
|
|
</Process>
|
|
</Function>
|
|
</Package> |