Unable to FTP a file

Question

Hi Experts,
    My requirement is i have to send a file through FTP from SAP to WIndows Server...
    I have checked the forum for the answer but couldnt solve my req..
   My req is....
    I have data in internal table ...now i have to place this data from internal table to text file and create this file
   at the path provided...
   My code goes like this...
CALL FUNCTION 'HTTP_SCRAMBLE'
  EXPORTING
    SOURCE            = gv_pwd
    SOURCELEN         = gv_slen
    KEY               = gv_key
IMPORTING
   DESTINATION        = gv_pwd.
CALL FUNCTION 'FTP_CONNECT'
  EXPORTING
    USER                   = gv_user
    PASSWORD               = gv_pwd
  ACCOUNT                =
    HOST                   = gv_host
    RFC_DESTINATION        = SAPFTP'
CALL FUNCTION 'FTP_COMMAND'
  EXPORTING
    HANDLE                = gv_hdl
    COMMAND               = 'dir'
    COMPRESS              = gv_compress
TABLES
    DATA                  = it_final
The data is in it_final...but when i execute this some more txt  is appeneded at the end if my it_final...
I checked the appeneded data, it is the same DATA that is displayed  when i execute the DIR command on FTP...
Please help me to place a text file in location INBOUND/file.txt at FTP server...
Thanks
Ajay

Answer 1

Hi Ajay,
please find the below code for reference.... u can ignore the varient names etc.
DATA : user(30) TYPE c VALUE ' ',
           pwd(30)  TYPE c VALUE '',
           host(64) TYPE c VALUE '10.2.203.64',
           cmd1(80) TYPE c,
           cmd2(80) TYPE c,
           cmd3(80) TYPE c,
            var TYPE i,
            action(3),
            command_index TYPE i,
           key TYPE i VALUE 26101957,
           dest TYPE rfcdest VALUE 'SAPFTP',
            dstlen TYPE i,
           compress TYPE c VALUE 'N'.
  DATA: command(80).
  DATA: BEGIN OF commands OCCURS 0,
          line(80),
        END OF commands.
  DATA: BEGIN OF result OCCURS 0,
          line(100),
        END OF result.
  DESCRIBE FIELD pwd LENGTH dstlen IN CHARACTER MODE.
  CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = pwd
      sourcelen   = dstlen
      key         = key
    IMPORTING
      destination = pwd.
  CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      user            = user
      password        = pwd
      host            = host
      rfc_destination = dest
    IMPORTING
      handle          = var
    EXCEPTIONS
      not_connected   = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
    WRITE /: 'Sorry no connection to FTP'.
  ELSE.
    command = 'bin'.
    CALL FUNCTION 'FTP_COMMAND'
      EXPORTING
        handle  = var
        command = command
      TABLES
        data    = result.
    IF sy-subrc <> 0.
    ENDIF.
    CLEAR command.
DATA:blob_length_l  TYPE i.
    DATA: fname LIKE epsf-epsdirnam VALUE 'forex1.txt'.
    DATA: tmp_text(50) TYPE c.
    DATA: result1 LIKE tmp_text OCCURS 0 WITH HEADER LINE.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        text = 'Read file from FTP Server'.
    CALL FUNCTION 'FTP_SERVER_TO_R3'
      EXPORTING
        handle               = var
        fname                = fname
       character_mode       = 'X'
     IMPORTING
       blob_length          = blob_length_l
     TABLES
  BLOB                 =
       text                 = result1
     EXCEPTIONS
       tcpip_error          = 1
       command_error        = 2
       data_error           = 3
       OTHERS               = 4
    IF sy-subrc <> 0.
      WRITE /: 'File Transfer Unsuccessful -- ' , backfname.
    ELSE.
      WRITE /: 'File Transfer Successful --' , backfname.
I hope this will help....
Regards,
Nitin