81 lines
2.8 KiB
XML
81 lines
2.8 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Root>
|
|
<Transaction code="204073" desc="交易失败原因统计" log_switch="1">
|
|
<FlowCtrl>
|
|
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
|
|
<Set>AC_DT=GETDATE()</Set>
|
|
|
|
<Exec func="PUB:IsExistNode" error="IGNORE">
|
|
<Arg name="FieldName" value="END_DT"/>
|
|
</Exec>
|
|
<If condition="~RetCod=1"> <!--存在-->
|
|
<Set>END_DT=$END_DT</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>END_DT=CALCDATE($AC_DT,-,d,1)</Set>
|
|
</Else>
|
|
|
|
<Exec func="PUB:IsExistNode" error="IGNORE">
|
|
<Arg name="FieldName" value="STAT_DT"/>
|
|
</Exec>
|
|
<If condition="~RetCod=1"> <!--存在-->
|
|
<Set>STAT_DT=$STAT_DT</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>STAT_DT=CALCDATE($END_DT,-,d,6)</Set>
|
|
</Else>
|
|
|
|
|
|
<Set>RPT_KND=RPT_D_003</Set>
|
|
<Set>raqname=STRCAT($RPT_KND,-,$AC_DT,.xls)</Set>
|
|
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
|
|
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/cap/etc/OCAPRPT2/RPT_D_003.raq)</Set>
|
|
<Set>RPTNAME=STRCAT(/tmp/data/,$raqname)</Set>
|
|
|
|
<Set>RPT_FIL_NM=STRCAT("交易失败原因统计-",FMTDATE($AC_DT,0,5),.xls)</Set>
|
|
<Exec func="PUB:SwitchDS">
|
|
<Arg name="name" value="_DB_NAME2" />
|
|
</Exec>
|
|
<Exec func="PUB:GenerateReportNew" error="IGNORE"> <!--报表生成组件-->
|
|
<Arg name="RptName" value="$RPTNAME" />
|
|
<Arg name="RptFile" value="$CR_RPT_FILE" />
|
|
<Arg name="STAT_DT" value="$STAT_DT" />
|
|
<Arg name="END_DT" value="$END_DT" />
|
|
</Exec>
|
|
<If condition="~RetCod=-1">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="CAP00033"/>
|
|
</Exec>
|
|
<Exec func="PUB:SwitchDS"/>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="~RetCod=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="CAP00000" />
|
|
</Exec>
|
|
</ElseIf>
|
|
|
|
<Exec func="PUB:SwitchDS"/>
|
|
|
|
<Set>FILE_NAME=$RPTNAME</Set>
|
|
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
|
|
</Call>
|
|
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>RPT_FIL_URL=$OUT_DAT.FILE_URL</Set>
|
|
<If condition="ISNULL($RPT_FIL_URL)">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="CAP00032"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<Set>RPT_TYP=D</Set>
|
|
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
|
|
<Set>RPT_FIL_URL=STRCAT($RPT_FIL_URL,$OUT_DAT.TOKEN)</Set>
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root>
|
|
|