66 lines
2.3 KiB
XML
66 lines
2.3 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
<Function name="UPD_IMSI">
|
|
<Input>INP_DAT</Input>
|
|
<Output>OUT_DAT|MSG_CD</Output>
|
|
|
|
|
|
<!-- 查询原IMSI -->
|
|
<DynSentence name="QRY_URMTPINF">
|
|
<Sentence>
|
|
SELECT USR_IMSI
|
|
FROM URMTPINF
|
|
WHERE USR_NO=?
|
|
</Sentence>
|
|
<Fields>INP_DAT.USR_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 更新IMSI -->
|
|
<DynSentence name="UPD_URMTPINF">
|
|
<Sentence>
|
|
UPDATE URMTPINF
|
|
SET USR_IMSI=?
|
|
WHERE USR_NO=?
|
|
</Sentence>
|
|
<Fields>INP_DAT.NEW_USR_IMSI|INP_DAT.USR_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<Process>
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM00000"/>
|
|
</Exec>
|
|
<!-- 修改IMSI -->
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_URMTPINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20140"/> <!-- 原IMSI记录未找到 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<If condition="IS_EQUAL_STRING($USR_IMSI,$INP_DAT.NEW_USR_IMSI)">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20141"/> <!-- 新旧IMSI值一样 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="UPD_URMTPINF"/>
|
|
</Exec>
|
|
</Else>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="URM20003"/> <!-- 更新数据库时，数据不存在 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
|
|
<Exec func="PUB:DumpETF"/>
|
|
|
|
</Process>
|
|
|
|
</Function>
|
|
</Package> |