106 lines
3.6 KiB
XML
106 lines
3.6 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
|
|
<!--查询用户BOSS基本信息-->
|
|
<Function name="QueryUserBossInformation">
|
|
<Input>MBL_NO|</Input>
|
|
<Output>IMSI|MSG_CD|</Output>
|
|
|
|
<Process>
|
|
<!--交易设置-->
|
|
<Set>MSG_CD=LPS00000</Set>
|
|
|
|
<!--TEST-->
|
|
<Set>IMSI=1234567890</Set>
|
|
<Return/>
|
|
<!--END OF TEST-->
|
|
|
|
<!--获取BOSS系统用户基本资料信息-->
|
|
<Exec func="PUB:GetLogNo"/>
|
|
<Set>TLOG_NO=$LOG_NO</Set>
|
|
<Exec func="PUB:GetPubSeqNoCircle">
|
|
<Arg name="SeqNam" value="BOSS:SEQ_NO"/>
|
|
<Arg name="Len" value="16"/>
|
|
<Arg name="SeqCnd" value="BOSS"/>
|
|
</Exec>
|
|
<Set>PRO_TIM=GETDATETIME()</Set>
|
|
<Set>TRAN_IDO=STRCAT($PRO_TIM,$SEL_VAL)</Set>
|
|
|
|
<!--调用BOSS查询用户基本资料接口-->
|
|
<Exec func="PUB:CallthirdComm" error="IGNORE">
|
|
<Arg name="HTxnCd" value="T3000003"/>
|
|
<Arg name="ObjSvr" value="SBOSMPS2"/>
|
|
</Exec>
|
|
<If condition="~RetCod=1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="LPS80002"/>
|
|
<Arg name="MsgDat" value="获取用户基本资料超时"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="~RetCod=3">
|
|
<If condition="ISNULL(DELBOTHSPACE($TRSP_CD))">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="LPS81014"/>
|
|
<Arg name="MsgDat" value="用户未在中国移动登记基本资料"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="LPS81015"/>
|
|
<Arg name="MsgDat" value="取用户基本资料失败"/>
|
|
</Exec>
|
|
<Return/>
|
|
</ElseIf>
|
|
<ElseIf condition="~RetCod!=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="LPS80001"/>
|
|
<Arg name="MsgDat" value="系统错误"/>
|
|
</Exec>
|
|
<Return/>
|
|
</ElseIf>
|
|
|
|
<!--取用户基本资料-->
|
|
<Set>UINF_SEQ=0</Set>
|
|
<While>
|
|
<Set>UINF_SEQ=ADD($UINF_SEQ,1)</Set>
|
|
<Set>UINF_CD=$USERINFO[$UINF_SEQ].INF_CD</Set>
|
|
<If condition="ISNULL($UINF_CD)">
|
|
<Break/>
|
|
</If>
|
|
<Switch expression="$UINF_CD">
|
|
<Case value="101"> <!--客户姓名-->
|
|
<Set>USR_CNM=$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="126"> <!--归属地名称-->
|
|
<Set>ARE=$USERINFO[$UINF_SEQ].INF_VAL</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Case value="170"> <!--IMSI-->
|
|
<Set>IMSI=$USERINFO[$UINF_SEQ].INF_VAL</Set>
|
|
<Break/>
|
|
</Case>
|
|
<Default>
|
|
<Break/>
|
|
</Default>
|
|
</Switch>
|
|
</While>
|
|
|
|
</Process>
|
|
</Function>
|
|
|
|
</Package>
|