FTP connection / Ftp Bağlantı Kodları

*****FTP CONNECTION

*****FTP Bağlantı Klasöre Dosya Atma 

FORM f_ftp_file_customer TABLES p_text.

  DATA:  gv_user(30)   TYPE c VALUE 'user name of ftp server', 

         gv_pwd(30)    TYPE c VALUE 'password of ftp server', 

         gv_host(64)   TYPE c VALUE 'ip address of FTP server', 

         gv_dest       LIKE rfcdesrfcdest VALUE 'SAPFTPA',"Background RFC destination

         lv_patha(20)  TYPE C,

         COMMANDS      TYPE TABLE OF TEXT WITH HEADER LINE,

         COMMAND_INDEX TYPE I,

         RESULT        TYPE TABLE OF TEXT WITH HEADER LINE.

  DATA: gv_hdl  TYPE i,

        gv_doc  TYPE c LENGTH 128,

        lv_key  TYPE i VALUE 26101957,

        lv_slen TYPE i.

*HTTP_SCRAMBLE: used to scramble the password provided into a format, which is been recognized by SAP.

  SET EXTENDED CHECK OFF.

  lv_slen = STRLEN( gv_pwd ).

  CALL FUNCTION 'HTTP_SCRAMBLE'

    EXPORTING

      SOURCE      = gv_pwd

      sourcelen   = lv_slen

      key         = lv_key

    IMPORTING

      destination = gv_pwd.

* To Connect to the Server using FTP

  CALL FUNCTION 'FTP_CONNECT'

    EXPORTING

      user            = gv_user

      password        = gv_pwd

      host            = gv_host

      rfc_destination = gv_dest

    IMPORTING

      handle          = gv_hdl

    EXCEPTIONS

      OTHERS          = 1.

  "ftp Command

  lv_patha = 'GIDEN\FATURA'.

  CONCATENATE 'cd' lv_patha INTO COMMANDS SEPARATED BY SPACE.

  APPEND COMMANDS.

  COMMANDS = 'ls'.

  APPEND COMMANDS.

  CALL FUNCTION 'FTP_COMMAND_LIST'

    EXPORTING

      HANDLE        = gv_hdl

    IMPORTING

      COMMAND_INDEX = COMMAND_INDEX

    TABLES

      DATA          = RESULT

      COMMANDS      = COMMANDS

    EXCEPTIONS

      COMMAND_ERROR = 1

      TCPIP_ERROR   = 2

      ERROR_MESSAGE = 3

      OTHERS        = 4.

 *FTP_R3_TO_SERVER:used to transfer the internal table data as a file to other system in the character mode.

  CONCATENATE SY-DATUM+6(2)

              SY-DATUM+4(2)

              SY-DATUM(4)

              'DOSYA ADI'

              '.TXT'

              INTO gv_doc.

  CALL FUNCTION 'FTP_R3_TO_SERVER'

    EXPORTING

      handle         = gv_hdl

      fname          = gv_doc          "file path of destination system

      character_mode = 'X'

    TABLES

      text           = p_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

    RAISING invalid_output_file.

  ENDIF.

*FTP_DISCONNECT: This is used to disconnect the connection between SAP and other system.

* To disconnect the FTP

  CALL FUNCTION 'FTP_DISCONNECT'

    EXPORTING

      handle = gv_hdl.

*RFC_CONNECTION_CLOSE:This is used to disconnect the RFC connection between SAP and other system.

  CALL FUNCTION 'RFC_CONNECTION_CLOSE'

    EXPORTING

      destination = gv_dest

    EXCEPTIONS

      OTHERS      = 1.

ENDFORM.                    " FTP_FILE_CUSTOMER