103 lines
3.7 KiB
XML
103 lines
3.7 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<!--
|
|
==============================================================
|
|
修改时间 PLOG 修改人 备注
|
|
2011.01.14 P-10210 wujinyan 用户开户出错，返回一级BOSS超时
|
|
2011.02.17 P-10253 shijubo 用户重复开户会重复领到红包
|
|
==============================================================
|
|
-->
|
|
<Application name="lps" trace="yes">
|
|
|
|
<!--营业厅开户-->
|
|
<Transaction code="2130040" log_switch="1">
|
|
<FlowCtrl>
|
|
|
|
<!-- 初始化BOSS返回值 -->
|
|
<Set>PRO_RSL=99</Set>
|
|
<Set>RSP_MSG=开户失败</Set>
|
|
<Set>RSP_TYP=0</Set>
|
|
<Set>RSP_COD=0000</Set>
|
|
<If condition="IS_EQUAL_STRING($RTE_TYP,00)">
|
|
<Set>RTE_VAL=999</Set>
|
|
</If>
|
|
<Set>LAND_AP_DOM=MPAY</Set>
|
|
<Set>ORG_AP_DOM=BOSS</Set>
|
|
<Set>BR_NO=999999</Set>
|
|
<Exec func="PUB:GetUniqueNo">
|
|
<Arg name="Name" value="SEL_VAL"/>
|
|
<Arg name="Len" value="10"/>
|
|
</Exec>
|
|
<Set>SEL_VAL=ADDCHAR($SEL_VAL,16,0,1)</Set>
|
|
<Set>PRO_TIM=GETDATETIME()</Set>
|
|
<Set>LAND_JRN=STRCAT($PRO_TIM,$SEL_VAL)</Set>
|
|
|
|
<!--设置组件输入数据-->
|
|
<Set>INP_DAT.MBL_NO=$MBL_NO</Set>
|
|
<Set>INP_DAT.OPN_BUS_CNL=$GWA.BUS_CNL</Set>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
|
|
<!--主账户开户-->
|
|
<Call package="URM_PUB" function="OPEN_USER">
|
|
<Input>GWA|INP_DAT|</Input>
|
|
<Output>OUT_DAT|MSG_CD|</Output>
|
|
</Call>
|
|
<If condition="IS_SUCC(@O.MSG_CD)">
|
|
<!--手机支付账户开户成功-->
|
|
<Set>PRO_RSL=00</Set>
|
|
<Set>RSP_TYP=0</Set>
|
|
<Set>RSP_COD=0000</Set>
|
|
<Set>RSP_MSG=开户成功</Set>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
<Arg name="MsgDat" value="交易成功"/>
|
|
</Exec>
|
|
</If>
|
|
<Else>
|
|
<If condition="@O.MSG_CD=URM20013">
|
|
<!--手机支付账户已经开户-->
|
|
<Set>PRO_RSL=01</Set>
|
|
<Set>RSP_TYP=0</Set>
|
|
<Set>RSP_COD=0000</Set>
|
|
<Set>RSP_MSG=开户成功</Set>
|
|
<Return/> <!-- 重复开户不应下发短信、送红包 20110217.sjb -->
|
|
</If>
|
|
<Else>
|
|
<Set>PRO_RSL=99</Set>
|
|
<Set>RSP_TYP=2</Set>
|
|
<Set>RSP_COD=2998</Set>
|
|
<Set>RSP_MSG=开户失败</Set>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
<Arg name="MsgDat" value="手机支付账户开户失败"/>
|
|
</Exec>
|
|
<Return/>
|
|
</Else>
|
|
</Else>
|
|
|
|
<!--短信引导用户设置密保手机-->
|
|
<Set>SMS_CD=URM004</Set>
|
|
<Call package="LPS_PUB" function="SendShortMessage"/>
|
|
|
|
<!--交易设置-->
|
|
<Set>BK_TXN_DAT=17000200</Set> <!--钱包激活指令-->
|
|
<Set>CMD_CD=17</Set>
|
|
<Set>CMD_LEN=ADDCHAR(STRLEN($BK_TXN_DAT),9,0,1)</Set>
|
|
|
|
<!--下发钱包激活指令-->
|
|
<Set>SMS_CD=LPS800</Set>
|
|
<Call package="LPS_PUB" function="SendShortMessage"/>
|
|
|
|
<!-- 调用营销工具 所要的值-->
|
|
<Set>INP_MKM_SUB.MBL_NO=$MBL_NO</Set>
|
|
<Set>INP_MKM_SUB.USR_NO=@O.OUT_DAT.USR_NO</Set>
|
|
<Set>INP_MKM_SUB.TX_CD=$GWA.TX_CD</Set>
|
|
<Set>INP_MKM_SUB.BUS_CNL=$GWA.BUS_CNL</Set>
|
|
<Set>INP_MKM_SUB.SYS_CNL=$GWA.SYS_CNL</Set>
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Application>
|