30 lines
1001 B
XML
30 lines
1001 B
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
|
|
<!--红包入账处理: 内部户支取(InnerMkmWithdraw)-->
|
|
<Function name="InnerMkmWithdraw">
|
|
<Input>INNER_WITHDRAW_IN|GWA|</Input>
|
|
<Output>INNER_WITHDRAW_OUT|MSG_CD|MSG_DAT|</Output>
|
|
<Process>
|
|
<Exec func="ACM:InnerAccountWithdraw">
|
|
<Arg name="_I_GWA" value="GWA" />
|
|
<Arg name="_I_INP_DAT" value="INNER_WITHDRAW_IN" />
|
|
<Arg name="_O_OUT_DAT" value="INNER_WITHDRAW_OUT" />
|
|
</Exec>
|
|
<Exec func="PUB:DumpDS" />
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CmpAddMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
<Arg name="MsgDat" value="@O.MSG_DAT"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Exec func="PUB:CmpAddMsg">
|
|
<Arg name="MsgCd" value="MKM00000" />
|
|
<Arg name="MsgDat" value="交易成功"/>
|
|
</Exec>
|
|
</Process>
|
|
</Function>
|
|
|
|
</Package>
|