55 lines
2.2 KiB
XML
55 lines
2.2 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
||
<Application name="lps" trace="yes">
|
||
|
||
<!--贴片卡网站开户（PORTAL）-->
|
||
<Transaction code="2135030" log_switch="1">
|
||
<FlowCtrl>
|
||
<Set>SUB_AC=$APP_NO</Set>
|
||
|
||
<!--查询用户状态，【用户状态检查】接口-->
|
||
<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"/>
|
||
<Arg name="MsgDat" value="@O.MSG_DAT"/>
|
||
</Exec>
|
||
<Return/>
|
||
</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="@O.MSG_DAT"/>
|
||
</Exec>
|
||
<Return/>
|
||
</If>
|
||
|
||
<!-- 开户成功，短信通知用户 -->
|
||
<Set>SMS_CD=LPS001</Set>
|
||
<Call package="LPS_PUB" function="SendShortMessage"/>
|
||
|
||
<!-- 贴片卡短信开户成功，通知PORTAL -->
|
||
<Exec func="PUB:GWASetMsg">
|
||
<Arg name="MsgCd" value="LPS00000"/>
|
||
</Exec>
|
||
</FlowCtrl>
|
||
</Transaction>
|
||
</Application>
|