FTP服务器和ABAP的连接

*&---------------------------------------------------------------------* *& Report  ZLITEST *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT  zlitest. TYPE-POOLS:slis,truxs. TABLES: mseg,mkpf,makt,ekko,mara. DATA: l_ftpcommand(128) TYPE c.  "FTP command DATA: l_handle          TYPE i.  "HANDle DATA:  pr_return TYPE c. DATA lt_ftp TYPE truxs_t_text_data. DATA ls_ftp TYPE truxs_t_text_data WITH HEADER LINE. DATA: hdl TYPE i,     key TYPE i VALUE 26101957,     slen TYPE i. DATA dest LIKE rfcdes-rfcdest VALUE 'SAPFTP'. DATA:l_file_name(30) TYPE c. DATA:l_path(255) TYPE c. DATA:l_file(255) TYPE c. DATA:  BEGIN OF lt_output OCCURS 0,    name(10) TYPE c,   age(2) TYPE n,   address(20) TYPE c,   END OF lt_output. DATA:lt_output_ftp LIKE TABLE OF lt_output WITH HEADER LINE. DATA  pv_pw(30) TYPE c. lt_output-name = 'LIYUWU'. lt_output-age = 24. lt_output-address = 'hunang yongzhou'. APPEND lt_output. lt_output-name = 'FANGCHUN'. lt_output-age = 22. lt_output-address = 'shichuan'. APPEND lt_output. LOOP AT lt_output.   MOVE-CORRESPONDING lt_output TO lt_output_ftp.   APPEND lt_output_ftp.   CLEAR lt_output_ftp. ENDLOOP. l_file_name = 'ftcput.txt'. CALL FUNCTION 'FILE_GET_NAME'   EXPORTING     client           = sy-mandt     logical_filename = 'ZFTOSHIBA'     operating_system = sy-opsys     eleminate_blanks = 'X'   IMPORTING     file_name        = l_path   EXCEPTIONS     file_not_found   = 1     OTHERS           = 2. CONCATENATE l_path l_file_name INTO l_file. TRANSLATE l_file TO LOWER CASE. * *CALL FUNCTION 'ZTRANSVMI_FILE_TO_FTP' *  EXPORTING *    pv_path          = l_file *    pv_host          = '10.10.11.131' *    pv_user          = 'ittest' *    pv_pw            = 'abcd!1234' *    pv_ftppath       = 'toshiba\vmi\put' *    pv_ftpfn         = 'miput.TXT' ** IMPORTING **   PV_SUBRC         = *  TABLES *    pv_tbl           = lt_output_ftp *          . CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'   EXPORTING     i_field_seperator          ='|' *   I_LINE_HEADER              = *   I_FILENAME                 = *   I_APPL_KEEP                = ' '   TABLES     i_tab_sap_data             = lt_output_ftp  CHANGING    i_tab_converted_data       =  lt_ftp  EXCEPTIONS    conversion_failed          = 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. OPEN DATASET l_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT. IF sy-subrc EQ 0.   LOOP AT lt_ftp INTO ls_ftp.     TRANSFER ls_ftp TO l_file.   ENDLOOP. ENDIF. CLOSE DATASET l_file. slen = STRLEN( 'abcd!1234' ) . DO 10 TIMES.   CALL FUNCTION 'HTTP_SCRAMBLE'     EXPORTING       SOURCE      = 'abcd!1234'       sourcelen   = slen       key         = key     IMPORTING       destination = pv_pw.   CALL FUNCTION 'FTP_CONNECT'     EXPORTING       user                   =       'ittest'       password               =   pv_pw *   ACCOUNT                =       host                   =     '10.10.11.131'       rfc_destination        =   dest *   GATEWAY_USER           = *   GATEWAY_PASSWORD       = *   GATEWAY_HOST           =    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.     EXIT.   ENDIF. ENDDO. CLEAR l_ftpcommand. CONCATENATE 'cd'  'TOSHIBA\VMI\PUT' INTO l_ftpcommand SEPARATED BY space. perform frm_ftp_command using l_ftpcommand       changing pr_return hdl. clear l_ftpcommand. l_ftpcommand = 'ascii'. perform frm_ftp_command using l_ftpcommand       changing pr_return hdl. clear l_ftpcommand. concatenate 'put'  l_file  'liyutest.txt' into l_ftpcommand separated by space. perform frm_ftp_command using l_ftpcommand       changing pr_return         hdl. *&---------------------------------------------------------------------* *&      Form  frm_ftp_command *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* *      -->PV_COMMAND text *      -->CHANGE     text *      -->PV_RET     text *      -->PV_HANDLE  text *----------------------------------------------------------------------* FORM frm_ftp_command USING pv_command changing pv_ret pv_handle.   DATA:BEGIN OF it_result OCCURS 0,     line(100) TYPE c,     END OF it_result.   CALL FUNCTION 'FTP_COMMAND'     EXPORTING       handle        = pv_handle       command       = pv_command       compress      = 'N'     TABLES       data          = it_result     EXCEPTIONS       tcpip_error   = 1       command_error = 2       data_error    = 3.   IF sy-subrc <> 0.     pv_ret = '1'.     CALL FUNCTION'FTP_DISCONNECT'     EXPORTING       handle = pv_handle.     EXIT.   ENDIF. ENDFORM.                    "frm_ftp_command