ftp

文章

SAP ABAP 与FTP文件交互-进站文件上传到FTP服务器

report  z04ftp2.  
data: begin of ig_ftp_result occurs 0,  
        line(100),  
      end of ig_ftp_result.  
  
data: l_path(128)       type c.  "文件路径,必须以/结尾  
data: l_filename(128)   type c value 'CH210276140222_likp.txt'.  "文件名  
data: l_ftpcommand(100) type c.  "FTP命令  
data: l_handle          type i.                 "HAND  
"源路径，必须以/结尾  
data: cons_source(128) type c  value '/usr/sap/AA2/D01/data/'.  
data:  cons_dens(128) type c .                      "目标路径  
  
constants cons_key type i  value 26101957.  
data  pr_return(1) type c value '0'.  
  
*// INITIALIZATION  
initialization.  
*服务器上下载文件的路径  
"  CONCATENATE '/usr/sap/AA2/D01/data/' INTO cons_source.  
  
*// START OF SELECTION  
start-of-selection.  
  perform frm_ftp_file.  
  
  
form frm_ftp_file .  
  data:  
    l_dstlen          type i,                 "DESTINATION LEN  
    l_pw(64)          type c.                 "密码长度一定要够否则出错  
  
* 连接FTP服务器  
  l_pw = 'sap888'.  
  
*-- FTP_CONNECT requires an encrypted password to work  
*   CREATE THE NEW PW BASE ON LOGIN FTP PASS WORD.  
  
  call function 'HTTP_SCRAMBLE'  
  exporting  
    source      = l_pw  
    sourcelen   = 6  
    key         = cons_key  
  importing  
    destination = l_pw.  
  
  do 3 times." 连接三次，以为一次可能会不成功  
*   OPEN THE FTP SERVER.  
    call function 'FTP_CONNECT'  
      exporting  
        user            = 'sap01'   "USER  
        password        = l_pw             "PASS WORD  
        host            = '9.186.155.115 9980'  
        rfc_destination = 'SAPFTPA'        "DEFAULT  
      importing  
        handle          = l_handle  
      exceptions  
        not_connected   = 1  
        others          = 2.  
  
    if sy-subrc = 0.  
      exit.  
    endif.  
  
  enddo.  
  
  if sy-subrc <> 0.  
    write :/ sy-datum, sy-uzeit, sy-uname,  'CONNECT FTP FAILED!'.            "MESSAGEG  
    stop.  
  endif.  
  
  
* Change local directory  
  clear l_ftpcommand.  
  concatenate 'lcd' cons_source into l_ftpcommand separated by space.  
  perform frm_ftp_command using l_ftpcommand pr_return.  
   if pr_return = '1'.  
     write:/ sy-datum, sy-uzeit, sy-uname,  'FTP改变本地路径错误!'.  
     stop.  
   endif.  
  
* Change ftp directory  
  if cons_dens <> ''.  
    clear l_ftpcommand.  
    concatenate 'cd' cons_dens into l_ftpcommand separated by space.  
    perform frm_ftp_command using l_ftpcommand pr_return.  
  
  endif.  
  
* Change TRANSFER MODE  
  clear l_ftpcommand.  
*  l_ftpcommand = 'binary'.  
  l_ftpcommand = 'ascii'.  
  perform frm_ftp_command using l_ftpcommand pr_return.  
  if pr_return = '1'.  
    write:/ sy-datum, sy-uzeit, sy-uname,  '改变FTP传输模式出现错误!'.  
    stop.  
  endif.  
  
* Put File into FTP SERVER  
  clear l_ftpcommand.  
  concatenate 'put'  l_filename into l_ftpcommand separated by space.  
  perform frm_ftp_command using l_ftpcommand pr_return.  
  if pr_return = '1'.  
    write:/ sy-datum, sy-uzeit, sy-uname,  '文件传输中出现错误!'.  
    stop.  
  endif.  
  
*  断开FTP服务器  
  call function 'FTP_DISCONNECT'  
    exporting  
      handle = l_handle.  
  
  write:/ sy-datum, sy-uzeit, sy-uname,  '文件传输成功!'.  
  
endform.                    " FRM_FTP_FILE  
  
************************************************************************  
*& FORM FRM_FTP_COMMAND                                                *  
************************************************************************  
*& FTP Command                                                         *  
************************************************************************  
form frm_ftp_command using pr_command pr_ret.  
  call function 'FTP_COMMAND'  
    exporting  
      handle                = l_handle  
      command               = pr_command  
*     COMPRESS              =  
*     RFC_DESTINATION       =  
*     VERIFY                =  
*   IMPORTING  
*     FILESIZE              =  
*     FILEDATE              =  
*     FILETIME              =  
    tables  
      data                  = ig_ftp_result  
   exceptions  
     tcpip_error           = 1  
     command_error         = 2  
     data_error            = 3  
     others                = 4  
            .  
  
* Disconnect  
  if sy-subrc <> 0." 调用中出错立即断开连接  
    pr_ret = '1'.  
    call function 'FTP_DISCONNECT'  
      exporting  
        handle = l_handle.  
    exit.  
  endif.  
  
endform.                    "FRM_FTP_COMMAND

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

report z04ftp2.

data: begin of ig_ftp_result occurs 0,

line(100),

end of ig_ftp_result.

data: l_path(128) type c. "文件路径,必须以/结尾

data: l_filename(128) type c value 'CH210276140222_likp.txt'. "文件名

data: l_ftpcommand(100) type c. "FTP命令

data: l_handle type i. "HAND

"源路径，必须以/结尾

data: cons_source(128) type c value '/usr/sap/AA2/D01/data/'.

data: cons_dens(128) type c . "目标路径

constants cons_key type i value 26101957.

data pr_return(1) type c value '0'.

*// INITIALIZATION

initialization.

*服务器上下载文件的路径

" CONCATENATE '/usr/sap/AA2/D01/data/' INTO cons_source.

*// START OF SELECTION

start-of-selection.

perform frm_ftp_file.

form frm_ftp_file .

data:

l_dstlen type i, "DESTINATION LEN

l_pw(64) type c. "密码长度一定要够否则出错

* 连接FTP服务器

l_pw = 'sap888'.

*-- FTP_CONNECT requires an encrypted password to work

* CREATE THE NEW PW BASE ON LOGIN FTP PASS WORD.

call function 'HTTP_SCRAMBLE'

exporting

source = l_pw

sourcelen = 6

key = cons_key

importing

destination = l_pw.

do 3 times." 连接三次，以为一次可能会不成功

* OPEN THE FTP SERVER.

call function 'FTP_CONNECT'

exporting

user = 'sap01' "USER

password = l_pw "PASS WORD

host = '9.186.155.115 9980'

rfc_destination = 'SAPFTPA' "DEFAULT

importing

handle = l_handle

exceptions

not_connected = 1

others = 2.

if sy-subrc = 0.

exit.

endif.

enddo.

if sy-subrc <> 0.

write :/ sy-datum, sy-uzeit, sy-uname, 'CONNECT FTP FAILED!'. "MESSAGEG

stop.

endif.

* Change local directory

clear l_ftpcommand.

concatenate 'lcd' cons_source into l_ftpcommand separated by space.

perform frm_ftp_command using l_ftpcommand pr_return.

if pr_return = '1'.

write:/ sy-datum, sy-uzeit, sy-uname, 'FTP改变本地路径错误!'.

stop.

endif.

* Change ftp directory

if cons_dens <> ''.

clear l_ftpcommand.

concatenate 'cd' cons_dens into l_ftpcommand separated by space.

perform frm_ftp_command using l_ftpcommand pr_return.

endif.

* Change TRANSFER MODE

clear l_ftpcommand.

* l_ftpcommand = 'binary'.

l_ftpcommand = 'ascii'.

perform frm_ftp_command using l_ftpcommand pr_return.

if pr_return = '1'.

write:/ sy-datum, sy-uzeit, sy-uname, '改变FTP传输模式出现错误!'.

stop.

endif.

* Put File into FTP SERVER

clear l_ftpcommand.

concatenate 'put' l_filename into l_ftpcommand separated by space.

perform frm_ftp_command using l_ftpcommand pr_return.

if pr_return = '1'.

write:/ sy-datum, sy-uzeit, sy-uname, '文件传输中出现错误!'.

stop.

endif.

* 断开FTP服务器

call function 'FTP_DISCONNECT'

exporting

handle = l_handle.

write:/ sy-datum, sy-uzeit, sy-uname, '文件传输成功!'.

endform. " FRM_FTP_FILE

************************************************************************

*& FORM FRM_FTP_COMMAND *

************************************************************************

*& FTP Command *

************************************************************************

form frm_ftp_command using pr_command pr_ret.

call function 'FTP_COMMAND'

exporting

handle = l_handle

command = pr_command

* COMPRESS =

* RFC_DESTINATION =

* VERIFY =

* IMPORTING

* FILESIZE =

* FILEDATE =

* FILETIME =

tables

data = ig_ftp_result

exceptions

tcpip_error = 1

command_error = 2

data_error = 3

others = 4

* Disconnect

if sy-subrc <> 0." 调用中出错立即断开连接

pr_ret = '1'.

call function 'FTP_DISCONNECT'

exporting

handle = l_handle.

exit.

endif.

endform. "FRM_FTP_COMMAND

2017.11.17

2.7K000

文章

ABAP连接FTP并执行Command

See ht e coding below, I have used these Fm to connect to FTP server and get the Files..
 
*types for the ftp command result internal table
TYPES : BEGIN OF ty_result,
        text TYPE char512,
        END OF ty_result.
 
data it_result type standard table of ty_result.
 
*Connect to the FTP server
  CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      user            = lv_user           " user name pass word to connect
      password        = l_v_pwd
      host            = 'dev.eu.pm.com' " Host name here
      rfc_destination = 'SAPFTPA'   "destination name
*Ask your functional people for the above data
    IMPORTING
      handle          = v_handle
    EXCEPTIONS
      not_connected   = 1
      OTHERS          = 2.
 
  IF sy-subrc <> 0.
  ENDIF.
 
*Changing directory
  CONCATENATE 'cd' '<file path>' INTO l_v_cmd SEPARATED BY space.
you can also ser 'DIR in l_v_cmd which opens the directory and all the folders *get into it_result table..
 
*Execute the FTP Command
  CALL FUNCTION 'FTP_COMMAND'
    EXPORTING
      handle        = v_handle
      command       = l_v_cmd
    TABLES
      data          = it_result
    EXCEPTIONS
      tcpip_error   = 1
      command_error = 2
      data_error    = 3
      OTHERS        = 4.
 
  IF sy-subrc <> 0.
  ENDIF.

See ht e coding below, I have used these Fm to connect to FTP server and get the Files..

*types for the ftp command result internal table

TYPES : BEGIN OF ty_result,

text TYPE char512,

END OF ty_result.

data it_result type standard table of ty_result.

*Connect to the FTP server

CALL FUNCTION 'FTP_CONNECT'

EXPORTING

user = lv_user " user name pass word to connect

password = l_v_pwd

host = 'dev.eu.pm.com' " Host name here

rfc_destination = 'SAPFTPA' "destination name

*Ask your functional people for the above data

IMPORTING

handle = v_handle

EXCEPTIONS

not_connected = 1

OTHERS = 2.

IF sy-subrc <> 0.

ENDIF.

*Changing directory

CONCATENATE 'cd' '<file path>' INTO l_v_cmd SEPARATED BY space.

you can also ser 'DIR in l_v_cmd which opens the directory and all the folders *get into it_result table..

*Execute the FTP Command

CALL FUNCTION 'FTP_COMMAND'

EXPORTING

handle = v_handle

command = l_v_cmd

TABLES

data = it_result

EXCEPTIONS

tcpip_error = 1

command_error = 2

data_error = 3

OTHERS = 4.

IF sy-subrc <> 0.

ENDIF.

2017.11.17

2.1K000

文章

SAP ABAP FTP操作

FTP到文件服务器，服务器上文件读写

ag
2017.08.18
1.3K000

文章

[转]FTP服务器和ABAP的连接

*&---------------------------------------------------------------------*
*& Report  ZLITEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zlitest.

TYPE-POOLS:slis,truxs.
TABLES: mseg,mkpf,makt,ekko,mara.

DATA: l_ftpcommand(128) TYPE c.  "FTP command
DATA: l_handle          TYPE i.  "HANDle
DATA:  pr_return TYPE c.
DATA lt_ftp TYPE truxs_t_text_data.
DATA ls_ftp TYPE truxs_t_text_data WITH HEADER LINE.

DATA: hdl TYPE i,
    key TYPE i VALUE 26101957,
    slen TYPE i.
DATA dest LIKE rfcdes-rfcdest VALUE 'SAPFTP'.


DATA:l_file_name(30) TYPE c.
DATA:l_path(255) TYPE c.
DATA:l_file(255) TYPE c.
DATA:  BEGIN OF lt_output OCCURS 0,
   name(10) TYPE c,
  age(2) TYPE n,
  address(20) TYPE c,
  END OF lt_output.

DATA:lt_output_ftp LIKE TABLE OF lt_output WITH HEADER LINE.
DATA  pv_pw(30) TYPE c.
lt_output-name = 'LIYUWU'.
lt_output-age = 24.
lt_output-address = 'hunang yongzhou'.
APPEND lt_output.
lt_output-name = 'FANGCHUN'.
lt_output-age = 22.
lt_output-address = 'shichuan'.
APPEND lt_output.



LOOP AT lt_output.
  MOVE-CORRESPONDING lt_output TO lt_output_ftp.
  APPEND lt_output_ftp.
  CLEAR lt_output_ftp.
ENDLOOP.

l_file_name = 'ftcput.txt'.

CALL FUNCTION 'FILE_GET_NAME'
  EXPORTING
    client           = sy-mandt
    logical_filename = 'ZFTOSHIBA'
    operating_system = sy-opsys
    eleminate_blanks = 'X'
  IMPORTING
    file_name        = l_path
  EXCEPTIONS
    file_not_found   = 1
    OTHERS           = 2.

CONCATENATE l_path l_file_name INTO l_file.

TRANSLATE l_file TO LOWER CASE.
*
*CALL FUNCTION 'ZTRANSVMI_FILE_TO_FTP'
*  EXPORTING
*    pv_path          = l_file
*    pv_host          = '10.10.11.131'
*    pv_user          = 'ittest'
*    pv_pw            = 'abcd!1234'
*    pv_ftppath       = 'toshiba\vmi\put'
*    pv_ftpfn         = 'miput.TXT'
** IMPORTING
**   PV_SUBRC         =
*  TABLES
*    pv_tbl           = lt_output_ftp
*          .
CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'
  EXPORTING
    i_field_seperator          ='|'
*   I_LINE_HEADER              =
*   I_FILENAME                 =
*   I_APPL_KEEP                = ' '
  TABLES
    i_tab_sap_data             = lt_output_ftp
CHANGING
   i_tab_converted_data       =  lt_ftp
EXCEPTIONS
   conversion_failed          = 1
   OTHERS                     = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

OPEN DATASET l_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc EQ 0.
  LOOP AT lt_ftp INTO ls_ftp.
    TRANSFER ls_ftp TO l_file.
  ENDLOOP.
ENDIF.

CLOSE DATASET l_file.
slen = STRLEN( 'abcd!1234' ) .

DO 10 TIMES.
  CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = 'abcd!1234'
      sourcelen   = slen
      key         = key
    IMPORTING
      destination = pv_pw.

  CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      user                   =       'ittest'
      password               =   pv_pw
*   ACCOUNT                =
      host                   =     '10.10.11.131'
      rfc_destination        =   dest
*   GATEWAY_USER           =
*   GATEWAY_PASSWORD       =
*   GATEWAY_HOST           =
   IMPORTING
     handle                 = hdl.
* EXCEPTIONS
*   NOT_CONNECTED          = 1
*   OTHERS                 = 2
  .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    EXIT.
  ENDIF.
ENDDO.
CLEAR l_ftpcommand.
CONCATENATE 'cd'  'TOSHIBA\VMI\PUT' INTO l_ftpcommand SEPARATED BY space.
perform frm_ftp_command using l_ftpcommand
      changing pr_return hdl.
clear l_ftpcommand.
l_ftpcommand = 'ascii'.
perform frm_ftp_command using l_ftpcommand
      changing pr_return hdl.
clear l_ftpcommand.
concatenate 'put'  l_file  'liyutest.txt'
into l_ftpcommand separated by space.
perform frm_ftp_command using l_ftpcommand
      changing pr_return
        hdl.




*&---------------------------------------------------------------------*
*&      Form  frm_ftp_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PV_COMMAND text
*      -->CHANGE     text
*      -->PV_RET     text
*      -->PV_HANDLE  text
*----------------------------------------------------------------------*
FORM frm_ftp_command USING pv_command changing pv_ret pv_handle.
  DATA:BEGIN OF it_result OCCURS 0,
    line(100) TYPE c,
    END OF it_result.
  CALL FUNCTION 'FTP_COMMAND'
    EXPORTING
      handle        = pv_handle
      command       = pv_command
      compress      = 'N'
    TABLES
      data          = it_result
    EXCEPTIONS
      tcpip_error   = 1
      command_error = 2
      data_error    = 3.
  IF sy-subrc <> 0.
    pv_ret = '1'.
    CALL FUNCTION'FTP_DISCONNECT'
    EXPORTING
      handle = pv_handle.
    EXIT.
  ENDIF.
ENDFORM.                    "frm_ftp_command

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

*&---------------------------------------------------------------------*

*& Report ZLITEST

*&---------------------------------------------------------------------*

REPORT zlitest.

TYPE-POOLS:slis,truxs.

TABLES: mseg,mkpf,makt,ekko,mara.

DATA: l_ftpcommand(128) TYPE c. "FTP command

DATA: l_handle TYPE i. "HANDle

DATA: pr_return TYPE c.

DATA lt_ftp TYPE truxs_t_text_data.

DATA ls_ftp TYPE truxs_t_text_data WITH HEADER LINE.

DATA: hdl TYPE i,

key TYPE i VALUE 26101957,

slen TYPE i.

DATA dest LIKE rfcdes-rfcdest VALUE 'SAPFTP'.

DATA:l_file_name(30) TYPE c.

DATA:l_path(255) TYPE c.

DATA:l_file(255) TYPE c.

DATA: BEGIN OF lt_output OCCURS 0,

name(10) TYPE c,

age(2) TYPE n,

address(20) TYPE c,

END OF lt_output.

DATA:lt_output_ftp LIKE TABLE OF lt_output WITH HEADER LINE.

DATA pv_pw(30) TYPE c.

lt_output-name = 'LIYUWU'.

lt_output-age = 24.

lt_output-address = 'hunang yongzhou'.

APPEND lt_output.

lt_output-name = 'FANGCHUN'.

lt_output-age = 22.

lt_output-address = 'shichuan'.

APPEND lt_output.

LOOP AT lt_output.

MOVE-CORRESPONDING lt_output TO lt_output_ftp.

APPEND lt_output_ftp.

CLEAR lt_output_ftp.

ENDLOOP.

l_file_name = 'ftcput.txt'.

CALL FUNCTION 'FILE_GET_NAME'

EXPORTING

client = sy-mandt

logical_filename = 'ZFTOSHIBA'

operating_system = sy-opsys

eleminate_blanks = 'X'

IMPORTING

file_name = l_path

EXCEPTIONS

file_not_found = 1

OTHERS = 2.

CONCATENATE l_path l_file_name INTO l_file.

TRANSLATE l_file TO LOWER CASE.

*CALL FUNCTION 'ZTRANSVMI_FILE_TO_FTP'

* EXPORTING

* pv_path = l_file

* pv_host = '10.10.11.131'

* pv_user = 'ittest'

* pv_pw = 'abcd!1234'

* pv_ftppath = 'toshiba\vmi\put'

* pv_ftpfn = 'miput.TXT'

** IMPORTING

** PV_SUBRC =

* TABLES

* pv_tbl = lt_output_ftp

* .

CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'

EXPORTING

i_field_seperator ='|'

* I_LINE_HEADER =

* I_FILENAME =

* I_APPL_KEEP = ' '

TABLES

i_tab_sap_data = lt_output_ftp

CHANGING

i_tab_converted_data = lt_ftp

EXCEPTIONS

conversion_failed = 1

OTHERS = 2

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

OPEN DATASET l_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc EQ 0.

LOOP AT lt_ftp INTO ls_ftp.

TRANSFER ls_ftp TO l_file.

ENDLOOP.

ENDIF.

CLOSE DATASET l_file.

slen = STRLEN( 'abcd!1234' ) .

DO 10 TIMES.

CALL FUNCTION 'HTTP_SCRAMBLE'

EXPORTING

SOURCE = 'abcd!1234'

sourcelen = slen

key = key

IMPORTING

destination = pv_pw.

CALL FUNCTION 'FTP_CONNECT'

EXPORTING

user = 'ittest'

password = pv_pw

* ACCOUNT =

host = '10.10.11.131'

rfc_destination = dest

* GATEWAY_USER =

* GATEWAY_PASSWORD =

* GATEWAY_HOST =

IMPORTING

handle = hdl.

* EXCEPTIONS

* NOT_CONNECTED = 1

* OTHERS = 2

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

EXIT.

ENDIF.

ENDDO.

CLEAR l_ftpcommand.

CONCATENATE 'cd' 'TOSHIBA\VMI\PUT' INTO l_ftpcommand SEPARATED BY space.

perform frm_ftp_command using l_ftpcommand

changing pr_return hdl.

clear l_ftpcommand.

l_ftpcommand = 'ascii'.

perform frm_ftp_command using l_ftpcommand

changing pr_return hdl.

clear l_ftpcommand.

concatenate 'put' l_file 'liyutest.txt'

into l_ftpcommand separated by space.

perform frm_ftp_command using l_ftpcommand

changing pr_return

hdl.

*&---------------------------------------------------------------------*

*& Form frm_ftp_command

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->PV_COMMAND text

* -->CHANGE text

* -->PV_RET text

* -->PV_HANDLE text

*----------------------------------------------------------------------*

FORM frm_ftp_command USING pv_command changing pv_ret pv_handle.

DATA:BEGIN OF it_result OCCURS 0,

line(100) TYPE c,

END OF it_result.

CALL FUNCTION 'FTP_COMMAND'

EXPORTING

handle = pv_handle

command = pv_command

compress = 'N'

TABLES

data = it_result

EXCEPTIONS

tcpip_error = 1

command_error = 2

data_error = 3.

IF sy-subrc <> 0.

pv_ret = '1'.

CALL FUNCTION'FTP_DISCONNECT'

EXPORTING

handle = pv_handle.

EXIT.

ENDIF.

ENDFORM. "frm_ftp_command

2017.06.16

2.6K000

文章

将SAP数据传输到其他系统

如何将SAP数据传输到其他系统（Transferring Data from SAP to Other Systems）在sap里有GUI_DOWNLOAD 函数将sap的数据下…

ag
2017.06.04
2.2K000

ftp

SAP ABAP 与FTP文件交互-进站 文件上传到FTP服务器

ABAP连接FTP并执行Command

SAP ABAP FTP操作

[转]FTP服务器和ABAP的连接

将SAP数据传输到其他系统

SAP ABAP 与FTP文件交互-进站文件上传到FTP服务器