37 lines
1.2 KiB
XML
37 lines
1.2 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
|
|
<!--用户状态检查-->
|
|
<Function name="UserStatusCheck">
|
|
<Process>
|
|
<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>
|
|
<Exit/>
|
|
</If>
|
|
|
|
<!-- 用户黑名单检查 -->
|
|
<Set>BLACK_CHK_IN.USR_NO=@O.OUT_DAT.USR_NO</Set>
|
|
<Set>BLACK_CHK_IN.TX_TYP=*</Set>
|
|
<Exec func="RRC:ChkBlackLst">
|
|
<Arg name="_I_INP_DAT" value="BLACK_CHK_IN"/>
|
|
<Arg name="_O_OUT_DAT" value="BLACK_CHK_IN"/>
|
|
</Exec>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
</Exec>
|
|
<Exit/>
|
|
</If>
|
|
</Process>
|
|
</Function>
|
|
|
|
</Package> |