75 lines
2.5 KiB
XML
75 lines
2.5 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Application name="sms" trace="yes">
|
|
|
|
<!--STK登记存储转发-->
|
|
<Transaction code="2130005" log_switch="1">
|
|
|
|
<DynSentence name="QRY_LPSTSFCTL_INF"> <!-- 查询存储转发控制表 -->
|
|
<Sentence>
|
|
SELECT 'Y' YN FROM dual WHERE EXISTS ( SELECT * FROM LPSTSFCTL WHERE UP_DW_FLG='1' AND CMD_CD1=? AND SUB_CMD_CD1=? )
|
|
</Sentence>
|
|
<Fields>CMD_CD|SUB_CMD_CD|</Fields>
|
|
</DynSentence>
|
|
|
|
<DynSentence name="DEL_LPSTSFIF_INF"> <!--删除存储转发表信息-->
|
|
<Sentence>
|
|
DELETE FROM LPSTSFIF WHERE MBL_NO=? AND CMD_CD=? AND SUB_CMD_CD=?
|
|
</Sentence>
|
|
<Fields>MBL_NO|CMD_CD|SUB_CMD_CD|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
|
|
<!--交易设置-->
|
|
<Set>GWA.SYS_CNL=SYS</Set>
|
|
<Set>GWA.BUS_CNL=SYS</Set>
|
|
<Set>REG_DT=$GWA.TX_DT</Set>
|
|
<Set>REG_TM=$GWA.TX_TM</Set>
|
|
<Set>LAST_UPD_DT=$REG_DT</Set>
|
|
<Set>LAST_UPD_TM=$REG_TM</Set>
|
|
<Set>SF_STS=U</Set>
|
|
<Set>TXN_DAT=$BK_TXN_DAT</Set>
|
|
<Set>CMD_CD=SUBSTR($BK_TXN_DAT,1,2)</Set>
|
|
<Set>MAX_RPT_CNT=#MAX_RPT_CNT</Set>
|
|
<Set>RPT_DLY_TM=#RPT_DLY_TM</Set>
|
|
<If condition="OR(IS_EQUAL_STRING($CMD_CD,13),IS_EQUAL_STRING($CMD_CD,17))">
|
|
<Set>SUB_CMD_CD=SUBSTR($BK_TXN_DAT,7,2)</Set>
|
|
</If>
|
|
<If condition="ISNULL(DELBOTHSPACE($SUB_CMD_CD))">
|
|
<Set>SUB_CMD_CD=00</Set>
|
|
</If>
|
|
<If condition="ISNULL(DELBOTHSPACE($SUB_AC))">
|
|
<Set>SUB_AC=00000000000000000000</Set>
|
|
</If>
|
|
|
|
<!-- 查询该指令是否需要进行存储转发 -->
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_LPSTSFCTL_INF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
<Arg name="MsgDat" value="交易成功"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!--删除已经登记的记录-->
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DEL_LPSTSFIF_INF"/>
|
|
</Exec>
|
|
|
|
<!--登记存储转发表-->
|
|
<Exec func="PUB:InsertRecord">
|
|
<Arg name="TblNam" value="LPSTSFIF"/>
|
|
</Exec>
|
|
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
<Arg name="MsgDat" value="交易成功"/>
|
|
</Exec>
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Application> |