102 lines
3.4 KiB
XML
102 lines
3.4 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Application name="lps" trace="yes">
|
|
|
|
<!--命令执行响应-->
|
|
<Transaction code="2130000" log_switch="1">
|
|
|
|
<DynSentence name="QRY_LPSTCRD_INFO"> <!-- 查询卡片信息 -->
|
|
<Sentence>
|
|
SELECT SUB_AC FROM LPSTCRD WHERE MBL_NO=?
|
|
</Sentence>
|
|
<Fields>MBL_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Set>CMD_CD=SUBSTR($PIN_DAT,1,2)</Set>
|
|
|
|
<!--查询卡片应用序列号及相关信息-->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_LPSTCRD_INFO"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 验证报文MAC -->
|
|
<Call package="LPS_PUB" function="CheckMessageMAC">
|
|
<Input>SUB_AC|PIN_DAT|</Input>
|
|
<Output>MSG_CD|</Output>
|
|
</Call>
|
|
<If condition="NOT(IS_SUCC(@O.MSG_CD))">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 报文解析 -->
|
|
<Set>TXN_DAT=$PIN_DAT</Set>
|
|
<Call package="LPS_PUB" function="MessageParse">
|
|
<Input>CMD_CD|TXN_DAT|</Input>
|
|
<Output>MSG_CD|STK_AREA|</Output>
|
|
</Call>
|
|
<If condition="NOT(IS_SUCC(@O.MSG_CD))">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!-- 根据原命令类型做不同的判断 -->
|
|
<Switch expression="@O.STK_AREA.OCMD_CD">
|
|
<Case value="13"> <!-- 钱包开通或销户结果 -->
|
|
<Break/>
|
|
</Case>
|
|
<Case value="18"> <!-- 上传异地未完成交易响应 -->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="15"> <!-- 充值操作密码响应 -->
|
|
<!--短信通知用户-->
|
|
<Set>SMS_CD=LPS011</Set>
|
|
<Call package="LPS_PUB" function="SendShortMessage"/>
|
|
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="17"> <!-- 激活或去活命令响应 -->
|
|
<!--如果原命令为去激活指令-->
|
|
<!--If condition="@O.STK_AREA.OSUB_CMD_CD=01">
|
|
<Set>SMS_CD=LPS002</Set>
|
|
<Call package="LPS_PUB" function="SendShortMessage"/>
|
|
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
<Break/>
|
|
</If-->
|
|
<Break/>
|
|
</Case>
|
|
<Default>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS19999"/>
|
|
</Exec>
|
|
<Return/>
|
|
</Default>
|
|
</Switch>
|
|
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Application>
|