51 lines
1.5 KiB
XML
51 lines
1.5 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Root>
|
|
<!--ftp put 接出服务-->
|
|
<!--
|
|
必需输入域:addr|file|para|
|
|
选择输入域:
|
|
正常输出域:MSG_TYP|RSP_CD|
|
|
出错输出域:RSP_CD|
|
|
-->
|
|
|
|
<Transaction code="ftp">
|
|
<FlowCtrl>
|
|
<Set>IP_ADR=GETWORDDELIMITER($Addr,|,1)</Set>
|
|
<Set>USR_NM=GETWORDDELIMITER($Para,|,1)</Set>
|
|
<Set>USR_PWD=GETWORDDELIMITER($Para,|,2)</Set>
|
|
<Set>OBJ_DIR=GETWORDDELIMITER($Addr,|,2)</Set>
|
|
<Set>OBJ_FIL=GETWORDDELIMITER($Para,|,3)</Set>
|
|
<Set>LCL_DIR=GETWORDDELIMITER($file,|,1)</Set>
|
|
<Set>LCL_FIL=GETWORDDELIMITER($file,|,2)</Set>
|
|
|
|
<If condition="ISNULL($OBJ_FIL)">
|
|
<Set>OBJ_FIL=$LCL_FIL</Set>
|
|
</If>
|
|
|
|
<If
|
|
condition="OR(ISNULL($IP_ADR),ISNULL($USR_NM),ISNULL($USR_PWD),ISNULL($OBJ_DIR),ISNULL($OBJ_FIL),ISNULL($LCL_DIR),ISNULL($LCL_FIL))">
|
|
<Set>MSG_TYP=E</Set>
|
|
<Set>RSP_CD=980008</Set>
|
|
<Return />
|
|
</If>
|
|
|
|
<Exec func="PUB:FtpPut" error="IGNORE">
|
|
<Arg name="IpAdr" value="$IP_ADR" />
|
|
<Arg name="UsrNam" value="$USR_NM" />
|
|
<Arg name="UsrPwd" value="$USR_PWD" />
|
|
<Arg name="ObjDir" value="$OBJ_DIR" />
|
|
<Arg name="ObjFil" value="$OBJ_FIL" />
|
|
<Arg name="LclDir" value="$LCL_DIR" />
|
|
<Arg name="LclFil" value="$LCL_FIL" />
|
|
</Exec>
|
|
|
|
<If condition="~RetCod!=0">
|
|
<Set>MSG_TYP=E</Set>
|
|
<Set>RSP_CD=980009</Set>
|
|
</If>
|
|
|
|
<Quote name="ErrorProc" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root>
|