How to transfer itab to using FTP...

Question

Hello Experts,
How do I transfer the contents of my itab to a given FTP location? I was asked to provide in
my selection screen the ff:
1. the path on where to save the file
2. the IP address
3. the host username
4. the host password
Can you please provide steps on how to do this based from the critera above. Hope you can help me guys.Thank you and take care!

Answer 1

Hi,
Below program will create a file on the specified FTP server by taking the data from the internal table.
Replace 'XXX.XXX.XX.XXX' with your host name.
Check the below code.
tables: t777a.                        "Building Addresses
Internal Table for  Building table.
data: begin of it_t777a occurs 0,
        build like t777a-build,       "Building
        stext like t777a-stext,       "Object Name
        cname like t777a-cname,       "Address Supplement (c/o)
        ort01 like t777a-ort01,       "City
        pstlz like t777a-pstlz,       "Postal Code
        regio like t777a-regio,       "Region (State, Province, County)
      end of it_t777a.
Internal Table for taking all fields of the above table in one line
separated by ‘|’(pipe).
data: begin of it_text occurs 0,
      text(131),
      end of it_text.
Constants: c_key  type i value 26101957,
           c_dest   type rfcdes-rfcdest value 'SAPFTPA'.
data: g_dhdl type i,      "Handle
      g_dlen type i,      "pass word length
      g_dpwd(30).         "For storing password
Selection Screen Starts
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
parameters: p_user(30) default 't777a'          obligatory,
            p_pwd(30)  default 't777a'          obligatory,
            p_host(64) default 'XXX.XXX.XX.XXX' obligatory.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE TEXT-002.
parameters: p_file like rlgrap-filename default 't777a_feed.txt'.
SELECTION-SCREEN END OF BLOCK blk2.
Password not visible.
at Selection-screen output.
  loop at screen.
    if screen-name = 'P_PWD'.
      screen-invisible = '1'.
      modify screen.
    endif.
  endloop.
g_dpwd  = p_pwd.
Start of selection
start-of-selection.
To fetch the data records from the table T777A.
  select build stext cname ort01 pstlz regio
         from t777a
         into table it_t777a.
Sort the internal table by build.
  if not it_t777a[] is initial.
    sort it_t777a by build.
  endif.
Concatenate all the fields of above internal table records in one line
separated by ‘|’(pipe).
  loop at it_t777a.
    concatenate it_t777a-build it_t777a-stext it_t777a-cname
                it_t777a-ort01 it_t777a-pstlz it_t777a-regio
                into it_text-text separated by '|'.
    append it_text.
    clear it_text.
  endloop.
To get the length of the password.
  g_dlen = strlen( g_dpwd ).
Below Function module is used to Encrypt the Password.
  CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = g_dpwd          "Actual password
      SOURCELEN   = g_dlen
      KEY         = c_key
    IMPORTING
      DESTINATION = g_dpwd.         "Encyrpted Password
*Connects to the FTP Server as specified by user.
  Call function 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      text = 'Connecting to FTP Server'.
Below function module is used to connect the FTP Server.
It Accepts only Encrypted Passwords.
This Function module will provide a handle to perform different
operations on the FTP Server via FTP Commands.
  call function 'FTP_CONNECT'
    EXPORTING
      user            = p_user
      password        = g_dpwd
      host            = p_host
      rfc_destination = c_dest
    IMPORTING
      handle          = g_dhdl
     EXCEPTIONS
        NOT_CONNECTED.
  if sy-subrc ne 0.
    format color col_negative.
    write:/ 'Error in Connection'.
  else.
    write:/ 'FTP Connection is opened '.
  endif.
**Transferring the data from internal table to FTP Server.
  CALL FUNCTION 'FTP_R3_TO_SERVER'
    EXPORTING
      HANDLE         = g_dhdl
      FNAME          = p_file
      CHARACTER_MODE = 'X'
    TABLES
      TEXT           = it_text
    EXCEPTIONS
      TCPIP_ERROR    = 1
      COMMAND_ERROR  = 2
      DATA_ERROR     = 3
      OTHERS         = 4.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ELSE.
    write:/ 'File has created on FTP Server'.
  ENDIF.
Call function 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      text = 'File has created on FTP Server'.
To Disconnect the FTP Server.
  CALL FUNCTION 'FTP_DISCONNECT'
    EXPORTING
      HANDLE = g_dhdl.
To Disconnect the Destination.
  CALL FUNCTION 'RFC_CONNECTION_CLOSE'
    EXPORTING
      destination = c_dest
    EXCEPTIONS
      others      = 1.