87 lines
2.8 KiB
XML
87 lines
2.8 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<!-- 主账户状态字修改 -->
|
|
<Transaction code="BUI0010200" log_switch="1">
|
|
|
|
<FlowCtrl>
|
|
<Set>FUNC_CD=$FUNC_CD</Set>
|
|
<Exec func="PUB:DumpETF" />
|
|
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="URM00000" />
|
|
</Exec>
|
|
<Set>GWA.MSG_INF=操作成功！</Set>
|
|
<!--用户状态检查组件 -->
|
|
<Set>MBLNO_OR_LOGID=TOLOWER($MBLNO_OR_LOGID)</Set>
|
|
<Set>INP_DAT.MBLNO_OR_LOGID=$MBLNO_OR_LOGID</Set>
|
|
<Set>INP_DAT.TX_CD=$GWA.TX_CD</Set>
|
|
<Set>INP_DAT.SUB_TX_CD=</Set>
|
|
<Set>INP_DAT.DC_PTY_FLG=</Set>
|
|
<Call package="URM" function="CHK_USER_STS">
|
|
<Input>INP_DAT</Input>
|
|
<Output>OUT_DAT|MSG_CD</Output>
|
|
</Call>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<Set>CHK_USER_STS=VAL("@O.OUT_DAT")</Set>
|
|
|
|
<If condition="IS_EQUAL_STRING($FUNC_CD,Q)">
|
|
<!-- 查询主帐户状态字 -->
|
|
<Set>ASWMQ_INP.FUNC_CD=$FUNC_CD</Set> <!-- 功能码 -->
|
|
<Set>ASWMQ_INP.AC_NO=$CHK_USER_STS.AC_NO</Set> <!-- 账号 -->
|
|
|
|
<Exec func="ACMPUB:AccountStsWordMaintQuery">
|
|
<Arg name="_I_INP_DAT" value="ASWMQ_INP" />
|
|
<Arg name="_O_OUT_DAT" value="ASWMQ_OUT" />
|
|
</Exec>
|
|
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<Set>MBL_NO=$MBLNO_OR_LOGID</Set>
|
|
<Set>STSW=@O.ASWMQ_OUT.AC_STSW</Set>
|
|
<Set>STSW1=SUBSTR($STSW,1,1)</Set>
|
|
<Set>STSW2=SUBSTR($STSW,2,1)</Set>
|
|
<Set>STSW3=SUBSTR($STSW,3,1)</Set>
|
|
<Set>STSW4=SUBSTR($STSW,4,7)</Set>
|
|
<Set>STSW5=SUBSTR($STSW,11,1)</Set>
|
|
<Set>STSW6=SUBSTR($STSW,12,1)</Set>
|
|
<Set>STSW7=SUBSTR($STSW,13,18)</Set>
|
|
</If>
|
|
|
|
<ElseIf condition="IS_EQUAL_STRING($FUNC_CD,I)">
|
|
<!-- 修改主帐户状态字 -->
|
|
|
|
<!-- UPDATE URMTOPER SET USR_STS=?,USR_STSW=?,BOSS_STSW=? where USR_NO=? -->
|
|
|
|
|
|
<Set>STSW=STRCAT($STSW1,$STSW2,$STSW3,$STSW4,$STSW5,$STSW6,$STSW7)
|
|
</Set>
|
|
<Set>ASWMQ_INP.FUNC_CD=$FUNC_CD</Set> <!-- 功能码 -->
|
|
<Set>ASWMQ_INP.AC_NO=$CHK_USER_STS.AC_NO</Set> <!-- 账号 -->
|
|
<Set>ASWMQ_INP.AC_STSW=$STSW</Set>
|
|
<Exec func="ACMPUB:AccountStsWordMaintQuery">
|
|
<Arg name="_I_INP_DAT" value="ASWMQ_INP" />
|
|
<Arg name="_O_OUT_DAT" value="ASWMQ_OUT" />
|
|
</Exec>
|
|
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
</ElseIf>
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Root>
|