94 lines
3.7 KiB
XML
94 lines
3.7 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
||
<Application name="lps" trace="yes">
|
||
|
||
<!--贴片卡短信开户（SMS）-->
|
||
<Transaction code="2135020" log_switch="1">
|
||
|
||
<DynSentence name="QRY_LPSTSEQ_EXIST">
|
||
<Sentence>
|
||
SELECT 'Y' YN FROM dual WHERE EXISTS
|
||
( SELECT * FROM LPSTSEQ WHERE SUB_AC = ?)
|
||
</Sentence>
|
||
<Fields>SUB_AC|</Fields>
|
||
</DynSentence>
|
||
|
||
<FlowCtrl>
|
||
|
||
<!--查询用户状态，【用户状态检查】接口-->
|
||
<Set>INP_DAT.MBLNO_OR_LOGID=$MBL_NO</Set> <!--手机号-->
|
||
<Set>INP_DAT.TX_CD=$GWA.TX_CD</Set> <!--交易码-->
|
||
<Call package="URM_PUB" function="CHK_USER_STS">
|
||
<Input>INP_DAT</Input>
|
||
<Output>OUT_DAT|MSG_CD</Output>
|
||
</Call>
|
||
<If condition="NOT(IS_SUCC(@O.MSG_CD))">
|
||
<Exec func="PUB:GWASetMsg">
|
||
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
||
</Exec>
|
||
<Return/>
|
||
</If>
|
||
|
||
<!-- 检查用户是否是否设置短信PIN -->
|
||
<!--Call package="URM_PUB" funcition="QueryUserSmsPin"/>
|
||
<If condition="NOT(IS_SUCC(@O.MSG_CD))">
|
||
<Exec func="PUB:GWASetMsg">
|
||
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
||
<Arg name="MsgDat" value="查询用户短信PIN失败"/>
|
||
</Exec>
|
||
<Return/>
|
||
</If-->
|
||
|
||
<!-- 如果用户设置了短信PIN，则对用户录入短信PIN进行校验 -->
|
||
<If condition="$SMS_PIN_FLG=1">
|
||
<!-- 如果用户未录入短信PIN，交易拒绝 -->
|
||
<!--If condition="ISNULL(DELBOTHSPACE($SMS_PIN))">
|
||
<Exec func="PUB:GWASetMsg">
|
||
<Arg name="MsgCd" value="LPS20060"/>
|
||
<Arg name="MsgDat" value="请输入短信PIN"/>
|
||
</Exec>
|
||
<Return/>
|
||
</If-->
|
||
|
||
<!-- 校验短信PIN -->
|
||
<!--Call package="URM_PUB" funcition="CheckUserSmsPin"/>
|
||
<If condition="NOT(IS_SUCC(@O.MSG_CD))">
|
||
<Exec func="PUB:GWASetMsg">
|
||
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
||
<Arg name="MsgDat" value="用户短信PIN输入错误"/>
|
||
</Exec>
|
||
<Return/>
|
||
</If-->
|
||
</If>
|
||
|
||
<!-- 调用贴片卡开户组件 -->
|
||
<Set>INP_DAT.MBL_NO=$MBL_NO</Set> <!-- 手机号 -->
|
||
<Set>INP_DAT.SUB_AC=$SUB_AC</Set> <!-- 贴片卡卡号 -->
|
||
<Set>INP_DAT.USR_NO=@O.OUT_DAT.USR_NO</Set> <!-- 内部用户号 -->
|
||
<Set>INP_DAT.MAIN_AC=@O.OUT_DAT.AC_NO</Set> <!-- 主账号 -->
|
||
<Set>INP_DAT.AC_PROV=@O.OUT_DAT.USR_PROV</Set> <!-- 用户归属省 -->
|
||
<Set>INP_DAT.AC_CITY=@O.OUT_DAT.USR_CITY</Set> <!-- 用户归属市 -->
|
||
<Set>INP_DAT.CRD_TYP=E</Set> <!-- 卡片版本 -->
|
||
<Call package="LPS_PUB" function="OpenPosCrd">
|
||
<Input>INP_DAT|GWA|</Input>
|
||
<Output>MSG_CD|</Output>
|
||
</Call>
|
||
<If condition="NOT(IS_SUCC(@O.MSG_CD))">
|
||
<Exec func="PUB:GWASetMsg">
|
||
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
||
<Arg name="MsgDat" value="贴片卡开户失败"/>
|
||
</Exec>
|
||
<Return/>
|
||
</If>
|
||
|
||
<!-- 开户成功，短信通知用户 -->
|
||
<Set>SMS_CD=LPS001</Set>
|
||
<Call package="LPS_PUB" function="SendShortMessage"/>
|
||
|
||
<Exec func="PUB:GWASetMsg">
|
||
<Arg name="MsgCd" value="LPS00000"/>
|
||
<Arg name="MsgDat" value="交易成功"/>
|
||
</Exec>
|
||
</FlowCtrl>
|
||
</Transaction>
|
||
</Application>
|