533 lines
19 KiB
XML
533 lines
19 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
<Function name="OTHER_OPEN_USER">
|
|
<Input>GWA|INP_DAT</Input>
|
|
<Output>OUT_DAT|MSG_CD</Output>
|
|
|
|
<!-- 查询手机用户信息表 -->
|
|
<DynSentence name="QRY_URMTPINF">
|
|
<Sentence> SELECT USR_NO FROM URMTPINF WHERE MBL_NO=?</Sentence>
|
|
<Fields>INP_DAT.MBL_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 根据别名查询用户操作员信息表 -->
|
|
<DynSentence name="QRY_URMTOPER">
|
|
<Sentence> SELECT USR_OPR_NO FROM URMTOPER WHERE USR_OPR_LOG_ID=?
|
|
</Sentence>
|
|
<Fields>INP_DAT.USR_OPR_LOG_ID|</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 查询客户信息表的信息 -->
|
|
<DynSentence name="QRY_URMTCIF">
|
|
<Sentence> SELECT CI_NO FROM URMTCIF WHERE ID_TYP=? AND ID_NO=?
|
|
</Sentence>
|
|
<Fields>INP_DAT.ID_TYP|INP_DAT.ID_NO
|
|
</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 更新客户信息表的姓名 -->
|
|
<DynSentence name="UPD_URMTCIF_NM">
|
|
<Sentence> UPDATE URMTCIF SET CUS_NM=? WHERE ID_TYP=? AND ID_NO=?
|
|
</Sentence>
|
|
<Fields>INP_DAT.CUS_NM|INP_DAT.ID_TYP|INP_DAT.ID_NO
|
|
</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 客户信息表中插入新的记录 -->
|
|
<DynSentence name="INSERT_URMTCIF">
|
|
<Sentence> INSERT INTO URMTCIF
|
|
(CI_NO,ID_TYP,ID_NO,CUS_NM,UPD_JRN,TM_SMP) VALUES
|
|
(SEQ_CI_NO.nextval,?,?,?,?,?)</Sentence>
|
|
<Fields>|INP_DAT.ID_TYP|INP_DAT.ID_NO|INP_DAT.CUS_NM|UPD_JRN|TM_SMP
|
|
</Fields>
|
|
</DynSentence>
|
|
<Process>
|
|
<Exec func="PUB:DumpETF" /> <!-- test -->
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM00000" />
|
|
</Exec>
|
|
|
|
<!-- 检查用户是否已注册 -->
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTPINF" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20013" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
<!-- 生成操作员内部ID -->
|
|
<Exec func="PUB:GetUniqueNo">
|
|
<Arg name="Name" value="USR_OPR_NO" />
|
|
<Arg name="SeqNam" value="URM_OPR_NO" />
|
|
<Arg name="Len" value="10" />
|
|
</Exec>
|
|
<Set>INP_DAT.USR_OPR_NO=$USR_OPR_NO</Set>
|
|
|
|
<!-- 检查别名是否重复 -->
|
|
<If condition="ISNULL(DELBOTHSPACE($INP_DAT.USR_OPR_LOG_ID))">
|
|
<Set>
|
|
INP_DAT.USR_OPR_LOG_ID=STRCAT(!,ADDCHAR($INP_DAT.USR_OPR_NO,10,0,1))
|
|
</Set>
|
|
<Set>
|
|
INP_DAT.USR_OPR_LOG_SHOW=STRCAT(!,ADDCHAR($INP_DAT.USR_OPR_NO,10,0,1))
|
|
</Set>
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTOPER" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20112" /> <!-- 别名重复,请重新填写 -->
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
</Else>
|
|
|
|
<!-- 调用手机号段查询 -->
|
|
<If condition="OR(ISNULL($INP_DAT.USR_PROV),ISNULL($INP_DAT.USR_CITY))">
|
|
<Set>GMNS_INP.MBL_NO=$INP_DAT.MBL_NO</Set>
|
|
<Exec func="CMM:GetMobilNoSegment">
|
|
<Arg name="_I_INP_DAT" value="GMNS_INP" />
|
|
<Arg name="_O_OUT_DAT" value="GMNS_OUT" />
|
|
</Exec>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<Set>INP_DAT.USR_PROV=@O.GMNS_OUT.PROV_CD</Set>
|
|
<Set>INP_DAT.USR_CITY=@O.GMNS_OUT.CITY_CD</Set>
|
|
<Set>INP_DAT.USR_CITY_NM=@O.GMNS_OUT.CITY_NM</Set>
|
|
</If>
|
|
|
|
<!-- 生成内部用户号 -->
|
|
<Exec func="CMM:GenerateInnerUserNo">
|
|
<Arg name="_I_INP_DAT" value="11" /> <!-- test -->
|
|
<Arg name="_O_OUT_DAT" value="GIU_OUT" />
|
|
</Exec>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<Set>INP_DAT.USR_NO=@O.GIU_OUT.USR_NO</Set> <!-- 内部用户号 -->
|
|
<Set>INP_DAT.REAL_NM_FLG=02</Set> <!-- 默认非实名 -->
|
|
<!-- BOSS鉴权 -->
|
|
<Set>TLOG_NO=$GWA.JRN_NO</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>TRAN_IDO=STRCAT($PRO_TIM,$SEL_VAL)</Set>
|
|
<Set>TRAN_IDH=STRCAT($PRO_TIM,$SEL_VAL)</Set>
|
|
<Set>OPR_LOG=STRCAT(0034BIP2B260,$PRO_TIM,$SEL_VAL)</Set>
|
|
<Set>MBL_NO=$INP_DAT.MBL_NO</Set>
|
|
<If condition="IS_EQUAL_STRING($GWA.BUS_CNL,UI)">
|
|
<Set>SRN=PAY_REGION</Set>
|
|
<Exec func="PUB:CallThirdService">
|
|
<Arg name="ObjSvr" value="SBSGPUB1" />
|
|
<Arg name="HTxnCd" value="T3000003" />
|
|
<Arg name="SRN" value="$SRN" />
|
|
</Exec>
|
|
<If condition="~RetCod=1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20146" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<If condition="~RetCod=10">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20147" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:CallThirdService">
|
|
<Arg name="ObjSvr" value="SBSGPUB1" />
|
|
<Arg name="HTxnCd" value="T3000003" />
|
|
</Exec>
|
|
<If condition="~RetCod=1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20146" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<If condition="~RetCod=10">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20147" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
</Else>
|
|
<If condition="IS_NOEQUAL_STRING($USR_STS,00)">
|
|
<Switch expression="$USR_STS">
|
|
<Case value="01">
|
|
<If condition="IS_EQUAL_STRING($GWA.BUS_CNL,SYS)">
|
|
<Break />
|
|
</If>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="02">
|
|
<If condition="IS_EQUAL_STRING($GWA.BUS_CNL,SYS)">
|
|
<Break />
|
|
</If>
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20149" />
|
|
</Exec>
|
|
<Return />
|
|
</Case>
|
|
<Case value="90">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20038" />
|
|
</Exec>
|
|
<Return />
|
|
</Case>
|
|
<Default>
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20150" />
|
|
</Exec>
|
|
<Return />
|
|
</Default>
|
|
</Switch>
|
|
</If>
|
|
<If condition="AND(NOT(ISNULL($OTH_STS)),IS_NOEQUAL_STRING($OTH_STS,00))">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20151" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<Set>USR_BRD_CD=$BRAND</Set>
|
|
<Set>UINF_SEQ=1</Set>
|
|
<While condition="INTCMP($UINF_SEQ,2,6)">
|
|
<Set>UINF_CD=$USERINFO[$UINF_SEQ].INF_CD</Set>
|
|
<Switch expression="$UINF_CD">
|
|
<Case value="101">
|
|
<Set>CUS_NM=$USERINFO[$UINF_SEQ].INF_VAL</Set>
|
|
<Break />
|
|
</Case>
|
|
<Case value="102">
|
|
<Set>SEX=$USERINFO[$UINF_SEQ].INF_VAL</Set>
|
|
<Break />
|
|
</Case>
|
|
<Case value="103">
|
|
<Set>ID_TYP=$USERINFO[$UINF_SEQ].INF_VAL</Set>
|
|
<Break />
|
|
</Case>
|
|
<Case value="104">
|
|
<Set>ID_NO=$USERINFO[$UINF_SEQ].INF_VAL</Set>
|
|
<Break />
|
|
</Case>
|
|
<Case value="170">
|
|
<Set>USR_IMSI=$USERINFO[$UINF_SEQ].INF_VAL</Set>
|
|
<Break />
|
|
</Case>
|
|
<Default>
|
|
<Break />
|
|
</Default>
|
|
</Switch>
|
|
<Set>UINF_SEQ=ADD($UINF_SEQ,1)</Set>
|
|
</While>
|
|
<Set>RR_INP.USR_NAME=$CUS_NM</Set>
|
|
<Set>RR_INP.ID_TYP=$ID_TYP</Set>
|
|
<Set>RR_INP.ID_NO=$ID_NO</Set>
|
|
<Exec func="URM:RealRule">
|
|
<Arg name="_I_INP_DAT" value="RR_INP" />
|
|
<Arg name="_O_OUT_DAT" value="RR_OUT" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<If condition="IS_SUCC(@O.MSG_CD)">
|
|
<Set>REAL_NM_FLG=01</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>REAL_NM_FLG=02</Set>
|
|
</Else>
|
|
</If>
|
|
<Set>INP_DAT.REAL_NM_FLG=$REAL_NM_FLG</Set>
|
|
<Set>INP_DAT.REAL_NM_ATH_MOD=0</Set>
|
|
<Set>INP_DAT.CUS_NM=$CUS_NM</Set>
|
|
<Set>INP_DAT.ID_TYP=$ID_TYP</Set>
|
|
<Set>INP_DAT.ID_NO=$ID_NO</Set>
|
|
<Set>INP_DAT.USR_BRD_CD=$USR_BRD_CD</Set>
|
|
|
|
<!-- 建立客户信息 -->
|
|
<If condition="IS_EQUAL_STRING($INP_DAT.REAL_NM_FLG,01)">
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTCIF" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="UPD_URMTCIF_NM" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20003" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<Set>INP_DAT.CI_NO=$CI_NO</Set>
|
|
</If>
|
|
<If condition="~RetCod=2">
|
|
<Set>UPD_JRN=$GWA.JRN_NO</Set>
|
|
<Set>TM_SMP=GETDATETIME()</Set>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="INSERT_URMTCIF" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20003" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTCIF" />
|
|
</Exec>
|
|
<Set>INP_DAT.CI_NO=$CI_NO</Set>
|
|
</If>
|
|
</If>
|
|
<If condition="IS_EQUAL_STRING($INP_DAT.REAL_NM_FLG,02)">
|
|
<Set>INP_DAT.CI_NO=STRCAT(90000000,$INP_DAT.USR_NO)</Set>
|
|
</If>
|
|
<Set>CRT_PSW_FLG=Y</Set> <!-- 支付密码标志位 -->
|
|
|
|
<!-- 调用组件开主帐户 -->
|
|
<Set>OMA_INP.USR_NO=$INP_DAT.USR_NO</Set> <!-- 内部用户号 -->
|
|
<Set>OMA_INP.USR_PROV=$INP_DAT.USR_PROV</Set> <!-- 用户归属省 -->
|
|
<Set>OMA_INP.USR_CITY=$INP_DAT.USR_CITY</Set> <!-- 用户归属市 -->
|
|
<Set>OMA_INP.USR_CITY_NM=$INP_DAT.USR_CITY_NM</Set> <!-- 用户归属城市名 -->
|
|
<Set>OMA_INP.AC_PROV=$INP_DAT.USR_PROV</Set> <!-- 账户归属省 -->
|
|
<Set>OMA_INP.AC_CITY=$INP_DAT.USR_CITY</Set> <!-- 账户归属市 -->
|
|
<Set>OMA_INP.AC_ORG=$INP_DAT.AC_ORG</Set> <!-- 账户归属机构 -->
|
|
<Set>OMA_INP.AC_TYP=100</Set> <!-- 帐户种类 -->
|
|
<Set>OMA_INP.PAY_PSWD=$INP_DAT.PAY_PSWD</Set> <!-- 支付密码 -->
|
|
<Set>OMA_INP.BUS_CNL=$GWA.BUS_CNL</Set> <!-- 开户渠道 -->
|
|
<Set>OMA_INP.CRT_PSW_FLG=$CRT_PSW_FLG</Set> <!-- 标志位 -->
|
|
<Exec func="ACMPUB:OpenMainAccount">
|
|
<Arg name="_I_GWA" value="GWA" />
|
|
<Arg name="_I_INP_DAT" value="OMA_INP" />
|
|
<Arg name="_O_OUT_DAT" value="OMA_OUT" />
|
|
</Exec>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<Set>INP_DAT.MAIN_AC=@O.OMA_OUT.AC_NO</Set>
|
|
<Set>INP_DAT.AC_NO=@O.OMA_OUT.AC_NO</Set>
|
|
|
|
<!-- 登记手机用户信息表 -->
|
|
<Set>INP_DAT.USR_STS=0</Set> <!-- 用户状态 -->
|
|
<Set>INP_DAT.REAL_NM_ATH_MOD=0</Set> <!-- 实名认证方式 -->
|
|
<Set>INP_DAT.PSN_CRP_FLG=0</Set> <!-- 个企标志 -->
|
|
<Set>INP_DAT.REG_DT=$GWA.TX_DT</Set> <!-- 注册日期 -->
|
|
<Set>INP_DAT.REG_TM=$GWA.TX_TM</Set> <!-- 注册时间 -->
|
|
<Set>INP_DAT.REG_SYS_CNL=$GWA.SYS_CNL</Set> <!-- 注册系统渠道 -->
|
|
<Set>INP_DAT.UPD_JRN=$GWA.JRN_NO</Set> <!-- 最后更新流水号 -->
|
|
<Set>INP_DAT.OLD_MBL_NO=$INP_DAT.MBL_NO</Set> <!-- 原手机号 -->
|
|
<Set>INP_DAT.REG_BUS_CNL=$GWA.BUS_CNL</Set> <!-- 开户渠道 -->
|
|
<Set>INP_DAT.BOSS_STSW=000000000000000</Set> <!-- BOSS状态字 -->
|
|
<Set>INP_DAT.USR_STSW=000000000110000</Set> <!-- 为用户下发支付密码 -->
|
|
|
|
|
|
<Exec func="PUB:InsertRecord">
|
|
<Arg name="TblNam" value="URMTPINF" /> <!-- 手机用户信息表 -->
|
|
<Arg name="GrpNam" value="INP_DAT" />
|
|
</Exec>
|
|
<If condition="~RetCod=1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20000" /> <!-- 插入多条记录，存在失败的记录 -->
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
<!-- 登记用户公共属性控制表 -->
|
|
<Set>INP_DAT.BUY_SAL_FLG=0</Set> <!-- 买卖属性标志 -->
|
|
<Set>INP_DAT.REG_TM=$GWA.TX_TM</Set> <!-- 注册时间 -->
|
|
<Set>INP_DAT.REG_SYS_CNL=$GWA.SYS_CNL</Set> <!-- 注册系统渠道 -->
|
|
<Set>INP_DAT.UPD_JRN=$GWA.JRN_NO</Set> <!-- 最后更新流水号 -->
|
|
<Exec func="PUB:InsertRecord">
|
|
<Arg name="TblNam" value="URMTCOMI" /> <!-- 用户公共属性控制表 -->
|
|
<Arg name="GrpNam" value="INP_DAT" />
|
|
</Exec>
|
|
<If condition="~RetCod=1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20000" /> <!-- 插入多条记录，存在失败的记录 -->
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
<!-- 登陆密码处理 -->
|
|
<Set>LOG_PSWD=$INP_DAT.LOG_PSWD</Set>
|
|
<Set>
|
|
ACCNO=STRCAT(SUBSTR($INP_DAT.MAIN_AC,1,6),SUBSTR($INP_DAT.MAIN_AC,10,10))
|
|
</Set>
|
|
<!-- 营销活动促使注册生成初始登录密码 -->
|
|
<Exec func="HSM:HsmPin">
|
|
<Arg name="PINTYPE" value="L2" />
|
|
<Arg name="PINBLOCKBYZPK" value="" />
|
|
<Arg name="ACCNO" value="$ACCNO" />
|
|
<Arg name="ZPK" value="$GWA.BUS_CNL" />
|
|
<Arg name="PVK" value="264" />
|
|
<Arg name="PINOFFSET" value="" />
|
|
<Arg name="MINPINLENGTH" value="6" />
|
|
<Arg name="PINLENGTH" value="6" />
|
|
<Arg name="dstfld" value="LOG_PSWD" />
|
|
<Arg name="ecp_dstfld" value="ECAP_DSTFLD" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20143" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<Set>INP_DAT.LOG_PSWD_STS=2</Set>
|
|
|
|
|
|
<Set>INP_DAT.LOG_PSWD=$LOG_PSWD</Set>
|
|
|
|
<!-- 登记用户操作员信息表 -->
|
|
<Set>INP_DAT.USR_OPR_ID=$INP_DAT.MBL_NO</Set> <!-- 用户操作员编号 -->
|
|
<Set>INP_DAT.USR_OPR_TYP=0</Set> <!-- 操作员类型 -->
|
|
<Set>INP_DAT.USR_HEAD_FLG=0</Set> <!-- 用户户主标志 -->
|
|
<Set>INP_DAT.USR_OPR_STS=0</Set> <!-- 状态 -->
|
|
<Set>INP_DAT.UPD_JRN=$GWA.JRN_NO</Set> <!-- 流水号 -->
|
|
<Set>INP_DAT.USR_OPR_MBL=$INP_DAT.MBL_NO</Set> <!-- 联系手机号 -->
|
|
<Exec func="PUB:InsertRecord">
|
|
<Arg name="TblNam" value="URMTOPER" /> <!-- 用户操作员信息表 -->
|
|
<Arg name="GrpNam" value="INP_DAT" />
|
|
</Exec>
|
|
<If condition="~RetCod=1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20000" /> <!-- 插入多条记录，存在失败的记录 -->
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
<!-- 登记用户支付密码保护信息表 -->
|
|
<If
|
|
condition="NOT(ISNULL($INP_DAT.QUES1,$INP_DAT.PSWD_PTC_MBL,$INP_DAT.PSWD_PTC_EMAIL))">
|
|
<Exec func="PUB:InsertRecord">
|
|
<Arg name="TblNam" value="URMTPWPT" /> <!-- 用户支付密码保护信息表 -->
|
|
<Arg name="GrpNam" value="INP_DAT" />
|
|
</Exec>
|
|
<If condition="~RetCod=1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20000" /> <!-- 插入多条记录，存在失败的记录 -->
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
</If>
|
|
|
|
<!-- 登记开户历史 -->
|
|
<Set>INP_DAT.SEQ_NO=1</Set>
|
|
<Set>INP_DAT.AC_TYP=100</Set>
|
|
<Set>INP_DAT.SUB_AC=$INP_DAT.AC_NO</Set>
|
|
<Exec func="PUB:InsertRecord">
|
|
<Arg name="TblNam" value="URMTPOCH" />
|
|
<Arg name="GrpNam" value="INP_DAT" />
|
|
</Exec>
|
|
<If condition="~RetCod=1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20000" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
<!-- BOSS手机支付业务订购关系同步 -->
|
|
<Set>TLOG_NO=$GWA.JRN_NO</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>TRAN_IDO=STRCAT($PRO_TIM,$SEL_VAL)</Set>
|
|
<Set>TRAN_IDH=STRCAT($PRO_TIM,$SEL_VAL)</Set>
|
|
<Set>SEL_VAL=SUBSTR($SEL_VAL,11,6)</Set>
|
|
<Set>OPR_LOG=STRCAT(0034BIP2B260,$PRO_TIM,$SEL_VAL)</Set>
|
|
<Set>CHG_OPR=01</Set>
|
|
<Set>TST_FLG=1</Set>
|
|
<If condition="IS_EQUAL_STRING($GWA.BUS_CNL,UI)">
|
|
<Set>SRN=PAY_REGION</Set>
|
|
<Exec func="PUB:InvokeService">
|
|
<Arg name="ServiceName" value="T2001060" />
|
|
<Arg name='Mode' value='NOTIFY' />
|
|
<Arg name="LogID" value="SBSGPUB1" />
|
|
<Arg name="ObjSvr" value="SBSGPUB1" />
|
|
<Arg name="SRN" value="$SRN" />
|
|
</Exec>
|
|
<Set>RetCod=~RetCod</Set>
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:InvokeService">
|
|
<Arg name="ServiceName" value="T2001060" />
|
|
<Arg name='Mode' value='NOTIFY' />
|
|
<Arg name="LogID" value="SBSGPUB1" />
|
|
<Arg name="ObjSvr" value="SBSGPUB1" />
|
|
</Exec>
|
|
<Set>RetCod=~RetCod</Set>
|
|
</Else>
|
|
|
|
<!-- 登记用户信息变动 -->
|
|
<Exec func="GEN:GenUserInfDetail">
|
|
<Arg name="OPR_TYP" value="A" />
|
|
</Exec>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
<!-- 登记用户操作日志 -->
|
|
<Set>DAT_INF.MBL_NO=$INP_DAT.MBL_NO</Set>
|
|
|
|
<Exec func="GEN:GenUserOprHisDetail">
|
|
<Arg name="DAT_AREA" value="DAT_INF" />
|
|
</Exec>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
|
|
<!-- 登记操作员操作日志 -->
|
|
|
|
|
|
<!-- ECAP通知用户开户成功,给用户发密码短信 -->
|
|
<Set>LOG_PSWD_ECAP=$ECAP_DSTFLD</Set>
|
|
<Set>PAY_PSWD_ECAP=@O.OMA_OUT.PAY_PSWD</Set>
|
|
<Set>MBL_NO=$INP_DAT.MBL_NO</Set>
|
|
<Set>SMS_CD=URM003</Set>
|
|
<Call package="URM" function="SEND_SMS" />
|
|
|
|
|
|
<!-- 设置开户返回信息 -->
|
|
<Set>OUT_DAT.USR_NO=$INP_DAT.USR_NO</Set> <!-- 内部用户号 -->
|
|
<Set>OUT_DAT.MAIN_AC=$INP_DAT.MAIN_AC</Set> <!-- 主账号 -->
|
|
<Set>OUT_DAT.USR_PROV=$INP_DAT.USR_PROV</Set> <!-- 用户归属省 -->
|
|
<Set>OUT_DAT.USR_CITY=$INP_DAT.USR_CITY</Set> <!-- 用户归属市 -->
|
|
<Set>OUT_DAT.AC_PROV=$INP_DAT.USR_PROV</Set> <!-- 账户归属省 -->
|
|
<Set>OUT_DAT.AC_CITY=$INP_DAT.USR_CITY</Set> <!-- 账户归属市 -->
|
|
<Set>OUT_DAT.AC_ORG=$INP_DAT.AC_ORG</Set> <!-- 账务归属机构 -->
|
|
<Set>OUT_DAT.PAY_PSWD_ECAP=@O.OMA_OUT.PAY_PSWD</Set> <!-- 支付密码 -->
|
|
<Set>OUT_DAT.LOG_PSWD_ECAP=$ECAP_DSTFLD</Set> <!-- 支付密码 -->
|
|
<Set>OUT_DAT.MBL_NO=$INP_DAT.MBL_NO</Set> <!-- 手机号 -->
|
|
<Set>OUT_DAT.TX_CD=$GWA.TX_CD</Set> <!-- 交易码 -->
|
|
<Set>OUT_DAT.BUS_CNL=$GWA.BUS_CNL</Set> <!-- 业务渠道 -->
|
|
<Set>OUT_DAT.SYS_CNL=$GWA.SYS_CNL</Set> <!-- 系统渠道 -->
|
|
<Set>OUT_DAT.REAL_NM_FLG=$INP_DAT.REAL_NM_FLG</Set>
|
|
</Process>
|
|
</Function>
|
|
</Package> |