27 lines
816 B
XML
27 lines
816 B
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
|
|
<!--登记交易缓存表-->
|
|
<Function name="RecordBuffData">
|
|
<Input>TX_CD|MBL_NO|REAL_NM_FLG|SRC_NO|CMD_TYP|CMD_SEQ|CMD_CD|CMD_RSP_MSG|</Input>
|
|
<Output>MSG_CD|</Output>
|
|
<Process>
|
|
<!--交易设置-->
|
|
<Set>MSG_CD=SMS00000</Set>
|
|
|
|
<!--申请会话ID-->
|
|
<Exec func="PUB:GetLogNo"/>
|
|
<Set>SESS_ID=$LOG_NO</Set> <!--生产会话流水-->
|
|
<Set>CMD_TM=GETDATETIME()</Set> <!--指令登记时间-->
|
|
<Set>EXP_TM=CALTIME($CMD_TM,+,m,#EXP_ITV) <!--指令失效时间-->
|
|
|
|
<!--登记交易缓存表-->
|
|
<Exec func="PUB:InsertRecord">
|
|
<Arg name="TblNam" value="SMSTBUFF"/>
|
|
</Exec>
|
|
|
|
</Process>
|
|
</Function>
|
|
|
|
</Package>
|