80 lines
2.7 KiB
XML
80 lines
2.7 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Root>
|
|
<!--事务启动-->
|
|
<!--======================-->
|
|
<!--输入参数： -->
|
|
<!-- SER_NM -->
|
|
<!-- EXP_SER -->
|
|
<!-- ITV -->
|
|
<!-- TM_OUT -->
|
|
<!-- TIM_OUT -->
|
|
<!-- MAX_TMS -->
|
|
<!--输出参数: -->
|
|
<!-- TRAN_ID -->
|
|
<!-- MSG_TYP -->
|
|
<!-- RSP_CD -->
|
|
<!--======================-->
|
|
<Transaction code="BeginWork">
|
|
<FlowCtrl>
|
|
<!-- added by kixiong at 2012/10/25 -->
|
|
<!-- 兼容交行版本 -->
|
|
<Set>BrNo=110999</Set>
|
|
<If condition="AND(ISNULL($SER_NM),NOT(ISNULL($SERNM)))">
|
|
<Set>SER_NM=$SERNM</Set>
|
|
</If>
|
|
<If condition="AND(ISNULL($exp_Ser),NOT(ISNULL($expSer)))">
|
|
<Set>exp_Ser=$expSer</Set>
|
|
</If>
|
|
<If condition="AND(ISNULL($ACT_DT),NOT(ISNULL($ACTDAT)))">
|
|
<Set>ACT_DT=$ACTDAT</Set>
|
|
</If>
|
|
<If condition="AND(ISNULL($TM_OUT),NOT(ISNULL($TMOUT)))">
|
|
<Set>TM_OUT=$TMOUT</Set>
|
|
</If>
|
|
<If condition="AND(ISNULL($TIM_OUT),NOT(ISNULL($TIMOUT)))">
|
|
<Set>TIM_OUT=$ACTDAT</Set>
|
|
</If>
|
|
<If condition="AND(ISNULL($FAL_TMS),NOT(ISNULL($FALTMS)))">
|
|
<Set>FAL_TMS=$FALTMS</Set>
|
|
</If>
|
|
<If condition="AND(ISNULL($MAX_TMS),NOT(ISNULL($MAXTMS)))">
|
|
<Set>MAX_TMS=$MAXTMS</Set>
|
|
</If>
|
|
<If condition="AND(ISNULL($LOG_NO),NOT(ISNULL($LOGNO)))">
|
|
<Set>LOG_NO=$LOGNO</Set>
|
|
</If>
|
|
<If condition="AND(ISNULL($OBJ_SVR),NOT(ISNULL($OBJSVR)))">
|
|
<Set>OBJ_SVR=$OBJSVR</Set>
|
|
</If>
|
|
<Set>SYS_DT=GETDATE()</Set>
|
|
<Set>REG_ID=@SYS.ics.plt.regionid</Set>
|
|
<Set>NOD_ID=@SYS.ics.plt.nodeid</Set>
|
|
<Set>AC_DT=$ACT_DT</Set>
|
|
<Set>SUC_CLK=00000</Set>
|
|
<Set>FAL_TMS=0</Set>
|
|
<Set>STS=0</Set>
|
|
<Set>FLAG=0</Set>
|
|
|
|
|
|
<Set>Br_No=110999</Set>
|
|
<Set>TIM_OUT=$TM_OUT</Set>
|
|
<Exec func="PUB:GetPubSeqNoCircle" error="IGNORE">
|
|
<Arg name="SeqNam" value="TRA:TRAN_ID"/>
|
|
<Arg name="SeqCnd" value="TRAN_ID"/>
|
|
<Arg name="Len" value="6"/>
|
|
</Exec>
|
|
<Quote name="ErrorProc"/>
|
|
<If condition="AND(ISNULL($SEL_VAL),NOT(ISNULL($SELVAL)))">
|
|
<!-- 兼容交行版本 -->
|
|
<Set>SEL_VAL=$SELVAL</Set>
|
|
</If>
|
|
<Set>TRAN_ID=STRCAT(GETDATE(),$SEL_VAL)</Set>
|
|
<Set>OPR_CLK=GETSECOND()</Set>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="pubigtjnl"/>
|
|
</Exec>
|
|
<Quote name="ErrorProc"/>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root>
|