Hi David:
I am assuming your SAP System runs on Windows NT.
If you are looking to get a text file from FTP Server to an Internal Table, I would suggest first transfer the file to a location in your SAP App Server.You can use FMs FTP_CONNECT,FTP_COMMAND,FTP_CLOSE.Then read the file from your SAP App. Server in to a ITAB using DATASET Commands(Open Dataset, Transfer Dataset).Then on successfull read Delete the dataset in the App Server.
Here is the code to FTP a file from a remote FTP server to SAP App Server.
l_filespec - SAP App server file path
r_filespec - FTP Server file path
In your code, use the RFC Destination 'sapftp' and it will be generated automatically when it establishes the first connection.Also make sure FTP Service is running in your FTP Server and you use the right user id / password / domain for logon and you have read/write access to the folder from which the file needs to be fetched.
*********************************************************
FUNCTION Z_EXEC_SIMPLE_FTP.
*"----
""Local interface:
*" IMPORTING
*" VALUE(I_REMOTE_HOST) TYPE C
*" VALUE(I_USERID) TYPE C DEFAULT SPACE
*" VALUE(I_PASSWORD) TYPE C DEFAULT SPACE
*" VALUE(I_LOCAL_PATH) TYPE C DEFAULT SPACE
*" VALUE(I_LOCAL_FILE) TYPE C DEFAULT SPACE
*" VALUE(I_REMOTE_PATH) TYPE C DEFAULT SPACE
*" VALUE(I_REMOTE_FILE) TYPE C DEFAULT SPACE
*" VALUE(I_PUT_TO_REMOTE_HOST) TYPE C DEFAULT SPACE
*" VALUE(I_DESTINATION) LIKE RFCDES-RFCDEST DEFAULT 'SAPFTP'
*" TABLES
*" DATA
*" EXCEPTIONS
*" NOT_CONNECTED
*" TCPIP_ERROR
*" COMMAND_ERROR
*" DATA_ERROR
*"----
DATA: MC_PASSWORD(20) TYPE C,
MI_KEY TYPE I VALUE 26101957,
MI_PWD_LEN TYPE I.
MC_PASSWORD = I_PASSWORD.
DESCRIBE FIELD MC_PASSWORD LENGTH MI_PWD_LEN.
*-- FTP_CONNECT requires an encrypted password to work
CALL 'AB_RFC_X_SCRAMBLE_STRING'
ID 'SOURCE' FIELD MC_PASSWORD ID 'KEY' FIELD MI_KEY
ID 'SCR' FIELD 'X' ID 'DESTINATION' FIELD MC_PASSWORD
ID 'DSTLEN' FIELD MI_PWD_LEN.
*Set FTP File Paths
CONCATENATE i_local_path i_local_file INTO l_filespec.
CONCATENATE i_remote_path i_remote_file INTO r_filespec.
----
*FTP Connect
----
CALL FUNCTION 'FTP_CONNECT'
EXPORTING
USER = I_USERID
PASSWORD = MC_PASSWORD
ACCOUNT = '<Your Domain Name>'
HOST = I_REMOTE_HOST
RFC_DESTINATION = I_DESTINATION
IMPORTING
HANDLE = FTP_HANDLE
EXCEPTIONS
NOT_CONNECTED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO WITH
SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4
RAISING NOT_CONNECTED.
ENDIF.
----
----
*FTP Command
----
CONCATENATE 'get' r_filespec l_filespec
INTO l_command SEPARATED BY space.
CALL FUNCTION 'FTP_COMMAND'
EXPORTING
handle = ftp_handle
command = l_command
TABLES
data = T_FTP_RESPONSE
EXCEPTIONS
tcpip_error = 1
command_error = 2
data_error = 3
OTHERS = 4.
----
*FTP Close
----
CALL FUNCTION 'FTP_DISCONNECT'
EXPORTING
handle = ftp_handle
EXCEPTIONS
OTHERS = 1.
ENDFUNCTION.
Bluesky
