100 lines
3.9 KiB
XML
100 lines
3.9 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<!--
|
|
日终清理
|
|
日期 编号 修改人 修改原因
|
|
2006.4.23 liang_wj 创建
|
|
-->
|
|
<Tran>
|
|
<!--日终清理-->
|
|
<Transaction code="CleanUp" desc="日终清理" log_switch="1">
|
|
<FlowCtrl>
|
|
<!--文件清理 开始-->
|
|
<Set>Day=SUBSTR(GETDATETIME(YYYYMMDD),7,2)</Set>
|
|
<Set>ErrLog=STRCAT(GETENV(HWORKDIR),/log/,$Day,/SYS.log)</Set>
|
|
|
|
<!--清理日志文件-->
|
|
<Exec func="PUB:SystemAndWait" error="IGNORE">
|
|
<Arg name="cmd" value="filBrc"/>
|
|
<Arg name="cfgfile" value="etc/FILMNG_PUB.XML"/>
|
|
<Arg name="Action" value="-c"/>
|
|
<Arg name="FilTypFlg" value="-t"/>
|
|
<Arg name="FilTyp" value="clnlog7"/>
|
|
<Arg name="ErrMsg" value="STRCAT(1>>,$ErrLog, ,2>>,$ErrLog)"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>RSP_CD=CleanUp_01</Set>
|
|
<Set>RSP_MSG=清理错误日志文件和跟踪日志文件失败</Set>
|
|
<Return/>
|
|
</If>
|
|
|
|
<!--清理数据文件-->
|
|
<Exec func="PUB:SystemAndWait" error="IGNORE">
|
|
<Arg name="cmd" value="filBrc"/>
|
|
<Arg name="cfgfile" value="etc/FILMNG_PUB.XML"/>
|
|
<Arg name="Action" value="-c"/>
|
|
<Arg name="FilTypFlg" value="-t"/>
|
|
<Arg name="FilTyp" value="clndat7"/>
|
|
<Arg name="ErrMsg" value="STRCAT(1>>,$ErrLog, ,2>>,$ErrLog)"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>RSP_CD=CleanUp_02</Set>
|
|
<Set>RSP_MSG=清理数据文件失败</Set>
|
|
<Return/>
|
|
</If>
|
|
<!--文件清理 结束-->
|
|
|
|
<!--数据库表清理 开始-->
|
|
<Exec func="PUB:SystemAndWait" error="IGNORE">
|
|
<Arg name="cmd" value="datCln"/>
|
|
<Arg name="cfgfile" value="etc/DATCLR_PUB.XML"/>
|
|
<Arg name="TRAN_ID" value="pub"/>
|
|
<!--Arg name="SelDat" value="$WRK_DT"/-->
|
|
<Arg name="SelDat" value="GETDATETIME(YYYYMMDD)"/>
|
|
<Arg name="Output" value="STRCAT(1>>,$ErrLog, ,2>>,$ErrLog)"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Exec func="PUB:RollbackWork"/>
|
|
<Set>RSP_CD=CleanUp_03</Set>
|
|
<Set>RSP_MSG="数据库表清理失败"</Set>
|
|
<Return/>
|
|
</If>
|
|
<Exec func="PUB:CommitWork"/>
|
|
|
|
<!--轮询mngbrno表按先辖行再省行模式查询分行号-->
|
|
<!--
|
|
deleted by kixiong
|
|
|
|
<Exec func="PUB:OpenCursor" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QueryBrNo"/>
|
|
</Exec>
|
|
<If condition="~RetCod<0">
|
|
<Set>RSP_CD=CleanUp_05</Set>
|
|
<Set>RSP_MSG="清理历史流水表时打开行号查询游标数据库故障"</Set>
|
|
<Return/>
|
|
</If>
|
|
-->
|
|
|
|
|
|
<Exec func="PUB:SystemAndWait" error="IGNORE">
|
|
<Arg name="cmd" value="datCln"/>
|
|
<Arg name="cfgfile" value="etc/DATCLR_LCL.XML"></Arg>
|
|
<Arg name="TRAN_ID" value="lcl"></Arg>
|
|
<!--Arg name="SelDat" value="$WRK_DT"></Arg-->
|
|
<Arg name="SelDat" value="GETDATETIME(YYYYMMDD)"/>
|
|
<Arg name="Output" value="STRCAT(1>>,$ErrLog, ,2>>,$ErrLog)"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Exec func="PUB:RollbackWork"/>
|
|
<Set>RSP_CD=CleanUp_10</Set>
|
|
<Set>RSP_MSG=数据库表清理失败</Set>
|
|
<Return/>
|
|
</If>
|
|
<Exec func="PUB:CommitWork"/>
|
|
<!--数据库表清理 结束-->
|
|
|
|
<Set>RSP_CD=000000</Set>
|
|
<Set>RSP_MSG=日终清理成功</Set>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Tran>
|