Hi, could anyone please help me resolve the following issue:
When i run the code below, it comes back saying "could not connect to "host". When tried to run in debug or test the FM "ftp_connect" it says "user ..... has no access authorization for computer .....
REPORT ZALB_FTP_TEST.
types: begin of t_ftp_data,
line(132) type c,
end of t_ftp_data.
data: lv_ftp_user(64) value 'branch'. "change this
data: lv_ftp_pwd(64) value 'careful'. "change this
data: lv_ftp_host(50) value '10.50.1.199'. "change this
data: lv_rfc_dest like rscat-rfcdest value 'SAPFTP'.
data: lv_hdl type i.
data: lv_key type i value 26101957.
data: lv_dstlen type i.
data: lt_ftp_data type table of t_ftp_data.
field-symbols: <ls_ftp_data> like line of lt_ftp_data.
*describe field lv_ftp_pwd length lv_dstlen.
lv_dstlen = strlen( lv_ftp_pwd ).
call 'AB_RFC_X_SCRAMBLE_STRING'
id 'SOURCE' field lv_ftp_pwd
id 'KEY' field lv_key
id 'SCR' field 'X'
id 'DESTINATION' field lv_ftp_pwd
id 'DSTLEN' field lv_dstlen.
call function 'FTP_CONNECT'
exporting
user = lv_ftp_user
password = lv_ftp_pwd
host = lv_ftp_host
rfc_destination = lv_rfc_dest
importing
handle = lv_hdl
exceptions
not_connected = 1
others = 2.
if sy-subrc ne 0.
write:/ 'could not connect to', lv_ftp_host.
else.
write:/ 'connected successfully. session handle is', lv_hdl.
call function 'FTP_CONNECT'
exporting
handle = lv_hdl
command = 'dir'
tables
data = lt_ftp_data
exceptions
tcpip_error = 1
command_error = 2
data_error = 3
others = 4.
if sy-subrc ne 0.
write:/ 'could not execute ftp command'.
else.
loop at lt_ftp_data assigning <ls_ftp_data>.
write: / <ls_ftp_data>.
endloop.
call function 'FTP_DISCONNECT'
exporting
handle = lv_hdl
exceptions
others = 1.
if sy-subrc ne 0.
write:/ 'could not disconnect from ftp server'.
else.
write:/ 'disconnected from ftp server'.
endif.
endif.
endif.
Thanks in advance for the help.
Bluesky
