Trying to use FTP to get data from a different server

Question

Hi Friends,
    I have to use FTP to get data from a different server and upload it on SAP server. Now my problem is when I m trying to do ftp through command line it brings the file but with no data.
   Through ABAP program nothing is happening.
Here's my code--
  V_PASSWORD = 'test@123'.
  V_PWD_LEN = STRLEN( V_PASSWORD ).
  CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = V_PASSWORD
      SOURCELEN   = V_PWD_LEN
      KEY         = CS_KEY_500098
    IMPORTING
      DESTINATION = V_PASSWORD.
  CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      USER            = 'test'
      PASSWORD        = V_PASSWORD
      HOST            = '176.0.1.6'
      RFC_DESTINATION = 'SAPFTPA'
    IMPORTING
      HANDLE          = MI_HANDLE
    EXCEPTIONS
      NOT_CONNECTED   = 1
      OTHERS          = 2.
  CHECK SY-SUBRC = 0.
  cmd = 'lcd d:\ftp'. .
  PERFORM FTP_COMMAND USING CMD.
  CMD = 'asc'.
  PERFORM FTP_COMMAND USING CMD.
  CONCATENATE 'dir' 'ftpt*' INTO CMD SEPARATED BY SPACE.
  PERFORM FTP_COMMAND USING CMD.
  cmd = 'ls'.
concatenate 'ls' INTO CMD SEPARATED BY SPACE.
  PERFORM FTP_COMMAND USING CMD.
  cmd = 'mget trial.txt'.
CONCATENATE 'mget' 'trial.txt' INTO CMD SEPARATED BY SPACE.
  CALL FUNCTION 'FTP_COMMAND'
    EXPORTING
      HANDLE        = MI_HANDLE
      COMMAND       = CMD
    TABLES
      DATA          = MTAB_DATA1
    EXCEPTIONS
      TCPIP_ERROR   = 1
      COMMAND_ERROR = 2
      DATA_ERROR    = 3
      OTHERS        = 4.
  IF SY-SUBRC = 0.
    LOOP AT MTAB_DATA1.
      WRITE: / MTAB_DATA1.
    ENDLOOP.
  ELSE.
    CONCATENATE 'Error in FTP Command while executing' CMD INTO ERROR SEPARATED BY SPACE.
    WRITE: / ERROR.
  ENDIF.

Answer 1

Hi
try this.....in one of my reqt, i done this successfully....
FORM FTPCON.
FTP-------------------------------------------------------*
  CLEAR DSTLEN.
  SET EXTENDED CHECK OFF.
  DSTLEN = STRLEN( S_PWD ).     -
>  (S_PWD (password) is a selection screen field )                  
  CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = S_PWD
      SOURCELEN   = DSTLEN
      KEY         = KEY
    IMPORTING
      DESTINATION = S_PWD.
  CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      USER            = P_USER                   -
> Username
      PASSWORD        = S_PWD             -
> password
      HOST            = P_HOST                  -
> Host
      RFC_DESTINATION = P_DEST         -
> Destination
    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.
  ENDIF.
  CALL FUNCTION 'FTP_COMMAND'
    EXPORTING
      HANDLE        = HDL
      COMMAND       = 'set passive on'
    TABLES
      DATA          = RESULT
    EXCEPTIONS
      TCPIP_ERROR   = 1
      COMMAND_ERROR = 2
      DATA_ERROR    = 3.
  CALL FUNCTION 'FTP_R3_TO_SERVER'
    EXPORTING
      HANDLE         = HDL
      FNAME          = G_FCNAME
      CHARACTER_MODE = 'X'
    TABLES
      TEXT           = T_FILE1
    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.
  ENDIF.
  CALL FUNCTION 'FTP_R3_TO_SERVER'
    EXPORTING
      HANDLE         = HDL
      FNAME          = G_FCNAME1
      CHARACTER_MODE = 'X'
    TABLES
      TEXT           = T_FILE2
    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.
  ENDIF.
  CALL FUNCTION 'FTP_DISCONNECT'
    EXPORTING
      HANDLE = HDL.
  CALL FUNCTION 'RFC_CONNECTION_CLOSE'
      EXPORTING
        DESTINATION          = P_DEST
      EXCEPTIONS
        DESTINATION_NOT_OPEN = 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.
ENDFORM.                    " FTPCON
Hope it helps.....