ABAP上传数据到FTP服务器

*&---------------------------------------------------------------------*
*& Report ZIF010
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZIF010.

*--------------------------------------------------------------------*
*
*--------------------------------------------------------------------*
DATA:
  gt_dcxmllines TYPE dcxmllines,
  gs_dcxmllines LIKE LINE OF gt_dcxmllines,
  gv_size       TYPE i,
  gv_file_name  TYPE text200.

TYPES: BEGIN OF ts_out,
         line TYPE text1000,
       END OF ts_out.

DATA: lt_out     TYPE STANDARD TABLE OF ts_out WITH HEADER LINE,
      lt_ok     TYPE STANDARD TABLE OF ts_out WITH HEADER LINE,
      ls_out     TYPE ts_out,
      lt_ok_bin TYPE dcxmllines,
      lt_out_bin TYPE dcxmllines.

DATA: lt_data TYPE TABLE OF /1MD/MD______09E WITH HEADER LINE.

DATA: lv_output_length TYPE i.
*--------------------------------------------------------------------*
*
*--------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-t00.
PARAMETERS: p_date TYPE datum OBLIGATORY DEFAULT sy-datum.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-t01.
PARAMETERS: p_user TYPE text30 OBLIGATORY,
            p_pwd  TYPE text30 OBLIGATORY,
            p_host TYPE text70 OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b2.


INITIALIZATION.
  p_user = 'site_mdg_ts' .
  p_pwd = 'YXbi%MDts#2018$'.
  p_host = '10.1.20.20'.

*--------------------------------------------------------------------*
*
*--------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
  PERFORM f_set_selection_screen.


START-OF-SELECTION.
  PERFORM f_get_data.

END-OF-SELECTION.
  CHECK NOT lt_out[] IS INITIAL.

  CALL FUNCTION 'SCMS_TEXT_TO_BINARY'
    EXPORTING
*     FIRST_LINE    = 0
*     LAST_LINE     = 0
*     APPEND_TO_TABLE       = ' '
      mimetype      = 'text/plain'
      encoding      = '8400'
    IMPORTING
      output_length = lv_output_length
    TABLES
      text_tab      = lt_out
      binary_tab    = lt_out_bin
    EXCEPTIONS
      failed        = 1
      OTHERS        = 2.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

* 获取文件名
  PERFORM f_get_file_name CHANGING gv_file_name.
* 传到FTP
*  PERFORM f_binary_data_to_ftp TABLES gt_dcxmllines
*                               USING  p_user
*                                      p_pwd
*                                      p_host
*                                      gv_file_name
*                                      gv_size.

  PERFORM f_binary_data_to_ftp TABLES lt_out_bin
                             USING  p_user
                                    p_pwd
                                    p_host
                                    gv_file_name
                                    lv_output_length.

*  MESSAGE S000 WITH 'File' GV_FILE_NAME 'transfer completely'.

   "add   ]
    CLEAR ls_out.
    ls_out-line = 6.
    append ls_out to lt_ok.
    CLEAR ls_out.
    DESCRIBE TABLE lt_data LINES  ls_out-line.
    append ls_out to lt_ok.

     CALL FUNCTION 'SCMS_TEXT_TO_BINARY'
      EXPORTING
*       FIRST_LINE    = 0
*