以下为正文

在SAP的实际应用中,经常会需要将生成的文件上传到FTP,或从FTP下载相关文档数据。本例实现将本地指定文件上传到FTP,及从FTP下载文件到本地的功能。


从FTP复制文件共有两种方式,一种是直接复制文件,另一种方式是先从FTP读取文件数据到内表,拷贝再写入指定位置文件,不过该功能仅支持文本格式文件(*.TXT,*.DAT),一般不予推荐。


相关函数:


1)FTP_CONNECT:通过账号连接FTP。


2)FTP_COMMAND:执行FTP操作命令(注意,程序中所有命令必须为小写)。


1cd:指定本地文件夹路径;


cd:指定FTP文件夹路径;


put <filename>:上传文件;


get <filename>:下载文件;


3)FTP_SERVER_TO_R3:将FTP上的指定文本文件数据读取到内表。


4)FTP_DISCONNECT:关闭FTP连接。

REPORT ZR_EXAMPLE_07 .   
DATA: KEY TYPE I VALUE 26101957,   
    TRFCDEST   LIKE RFCDES-RFCDEST,   
    THANDLE    TYPE I.   
  
INCLUDE:<ICON>.   
*定义输入界面   
SELECTION-SCREEN:BEGIN OF BLOCK FTPLOGIN WITH FRAME TITLE TEXT-001.   
PARAMETERS: P_USER(45) LOWER CASE OBLIGATORY MEMORY ID USR,   
           P_PWD(45) MODIF ID PWD LOWER CASE OBLIGATORY MEMORY ID PWD,   
           P_HOST(15) MEMORY ID HOS OBLIGATORY,   
           FTP_PATH(30) MEMORY ID FPOS OBLIGATORY.   
SELECTION-SCREEN:END OF BLOCK FTPLOGIN.   
  
SELECTION-SCREEN:BEGIN OF BLOCK UPLOAD WITH FRAME TITLE TEXT-002.   
PARAMETERS: P_UPPATH(45),   
         P_FILE(20) .   
SELECTION-SCREEN: BEGIN OF LINE.   
SELECTION-SCREEN: PUSHBUTTON 1(20) PUBU USER-COMMAND UPLOAD.   
SELECTION-SCREEN: END OF LINE.   
SELECTION-SCREEN:END OF BLOCK UPLOAD.   
  
SELECTION-SCREEN:BEGIN OF BLOCK DOWNLOAD WITH FRAME TITLE TEXT-003.   
PARAMETERS: DL_PATH(45),   
           DL_FILE(20) .   
SELECTION-SCREEN: BEGIN OF LINE.   
SELECTION-SCREEN: PUSHBUTTON 1(20) GEBU USER-COMMAND DOWNLOAD.   
SELECTION-SCREEN: PUSHBUTTON 24(30) SHBU USER-COMMAND ITAB_DL.   
SELECTION-SCREEN: END OF LINE.   
SELECTION-SCREEN:END OF BLOCK DOWNLOAD.   
  
AT SELECTION-SCREEN OUTPUT.   
* 对密码输入栏进行加密处理   
  PERFORM MASK_PWD.   
  
* 给各按钮加入文本及图标   
  WRITE ICON_OUTGOING_OBJECT  AS ICON TO PUBU.   
  CONCATENATE PUBU 'Upload FTP' INTO PUBU SEPARATED BY SPACE.   
  
  WRITE ICON_INCOMING_OBJECT  AS ICON TO GEBU.   
  CONCATENATE GEBU 'FTP download' INTO GEBU SEPARATED BY SPACE.   
  
  WRITE ICON_WRITE_FILE  AS ICON TO SHBU.   
  CONCATENATE SHBU 'Internal table download' INTO SHBU SEPARATED BY   
SPACE.   
  
AT SELECTION-SCREEN.   
  PERFORM FTPCONNECT.   
  IF SY-SUBRC <> 0.   
 MESSAGE I001(00) WITH 'Can''t connect to FTP!'.   
 EXIT.   
  ENDIF.   
  
  MESSAGE S001(00) WITH 'FTP connect OK!'.   
  CASE SY-UCOMM.   
 WHEN 'ONLI'.   
   PERFORM FTPDISCONNECT.   
   EXIT.   
  ENDCASE.  
 
​
*执行FTP功能   
  PERFORM FTP_EXECUTE.   
*关闭FTP连接   
  PERFORM FTPDISCONNECT.   
*-----------------------------------------------------------------------------*   
*       改变密码输入框显示属性,实现密码保护        *   
*-----------------------------------------------------------------------------*   
FORM MASK_PWD.   
  LOOP AT SCREEN .   
 IF SCREEN-NAME = 'P_PWD'.   
   SCREEN-INVISIBLE = '1'.   
   MODIFY SCREEN .   
   CONTINUE.   
 ENDIF.   
  ENDLOOP.   
ENDFORM.                    "   
  
*-----------------------------------------------------------------------------*   
*       通过IP、用户名、密码连接FTP服务器         *   
*-----------------------------------------------------------------------------*   
FORM FTPCONNECT.   
  DATA: THOSTS(45),TUSERS(45),TPWORD(45).   
  THOSTS = P_HOST.   
  TUSERS = P_USER.   
  TPWORD = P_PWD.   
* 对密码数值进行加密解析处理   
  CALL 'AB_RFC_X_SCRAMBLE_STRING'     " System Function   
 ID 'SOURCE'      FIELD TPWORD   
 ID 'KEY'         FIELD KEY   
 ID 'SCR'         FIELD 'X'   
 ID 'DESTINATION' FIELD TPWORD   
 ID 'DSTLEN'      FIELD 64.   
  
* 定义RFC连接目标,前后台执行时不同   
  IF SY-BATCH = 'X'.   
 TRFCDEST = 'SAPFTPA'.   
  ELSE.   
 TRFCDEST = 'SAPFTP'.   
  ENDIF.   
  
*该函数可以定义有网关时账户密码,一般公司内部访问时无此设置   
  CALL FUNCTION 'FTP_CONNECT'   
 EXPORTING   
   USER                 = TUSERS  
   PASSWORD             = TPWORD  
   HOST                 = THOSTS  
   RFC_DESTINATION      = TRFCDEST  
IMPORTING   
  HANDLE                = THANDLE  
EXCEPTIONS   
  NOT_CONNECTED     = 1  
  OTHERS                = 2.   
ENDFORM.                " FTPCONNECT   
*&---------------------------------------------------------------------   
*&     设置结束时关闭SAP   
*&---------------------------------------------------------------------   
FORM FTPDISCONNECT.   
  CALL FUNCTION 'FTP_DISCONNECT'   
    EXPORTING   
         HANDLE = THANDLE.   
ENDFORM.                    " FTPDISCONNECT   
*&---------------------------------------------------------------------*   
*&      通过SAP执行命令上传或下载FTP文件   
*&---------------------------------------------------------------------*   
FORM FTP_EXECUTE.   
  DATA:TSUBRC LIKE SY-SUBRC.   
  DATA:BEGIN OF COM OCCURS 0,   
      CMD(100) TYPE C,   
    END OF COM.   
  DATA:BEGIN OF RES OCCURS 0,   
      LINE(100) TYPE C,   
    END OF RES.   
  
*指定FTP文件夹路径   
  IF NOT FTP_PATH IS INITIAL.   
 CONCATENATE 'cd' FTP_PATH INTO COM-CMD SEPARATED BY ' '.   
 APPEND COM.   
  ENDIF.   
  
  CASE SY-UCOMM.   
 WHEN 'UPLOAD'.   
*指定上传文件夹路径及上传文件命令   
   CONCATENATE 'lcd' P_UPPATH INTO COM-CMD SEPARATED BY ' '.   
   APPEND COM.   
   CONCATENATE 'put' P_FILE INTO COM-CMD SEPARATED BY ' '.   
   APPEND COM.   
  
 WHEN 'DOWNLOAD'.   
*指定下载文件夹路径及下载文件命令   
   CONCATENATE 'lcd' DL_PATH INTO COM-CMD SEPARATED BY ' '.   
   APPEND COM.   
   CONCATENATE 'get' DL_FILE INTO COM-CMD SEPARATED BY ' '.   
   APPEND COM.   
  ENDCASE.   
  
  LOOP AT COM FROM 1.   
 IF COM-CMD <> ''.   
*执行FTP指令   
   CALL FUNCTION 'FTP_COMMAND'   
        EXPORTING   
             HANDLE        = THANDLE  
             COMCOMMAND       = COM-CMD   
        TABLES   
             DATA          = RES  
        EXCEPTIONS   
             TCPIP_ERROR   = 1  
             COMMAND_ERROR = 2  
             DATA_ERROR    = 3  
             OTHERS        = 4.   
  
*当执行失败时回执数据并退出   
   IF SY-SUBRC <> 0.   
     CASE SY-UCOMM.   
       WHEN 'UPLOAD'.   
         MESSAGE E001(00) WITH 'FTP UPLOAD FAIL!'.   
       WHEN 'DOWNLOAD'.   
         MESSAGE E001(00) WITH 'FTP DOWNLOAD FAIL!'.   
     ENDCASE.   
     EXIT.   
   ELSE.   
  
*根据不同按钮的功能码判断程序执行逻辑及回执信息,当选择从内表下载功能时转入子程序   
     CASE SY-UCOMM.   
       WHEN 'UPLOAD'.   
         MESSAGE S001(00) WITH 'FTP UPLOAD SUCCESS!'.   
       WHEN 'DOWNLOAD'.   
         MESSAGE S001(00) WITH 'FTP DOWNLOAD SUCCESS!'.   
       WHEN 'ITAB_DL'.   
         PERFORM DL_ITAB USING THANDLE DL_PATH DL_FILE.   
     ENDCASE.   
   ENDIF.   
 ENDIF.   
  ENDLOOP.   
  
  CLEAR:COM,RES,TSUBRC.   
  REFRESH:COM,RES.   
ENDFORM.                    " FTPPUTFILE  
*---------------------------------------------------------------------*   
*      将FTP文本类型文件数据读取到内表       *   
*---------------------------------------------------------------------*   
FORM DL_ITAB USING THANDLE  TYPE I   
                VALUE(FILEPATH) TYPE C   
                FILENAME TYPE C.   
  DATA: BEGIN OF BLOB OCCURS 0,   
       LINE(255) TYPE C,   
     END OF BLOB.   
*连接字符串定义本地文件具体路径   
CONCATENATE FILEPATH FILENAME INTO FILEPATH.   
  
*将FTP文本类型文件数据读取到内表   
*若所读FTP文件为非文本文件(*.txt,*.dat)时将出现错误   
  CALL FUNCTION 'FTP_SERVER_TO_R3'   
    EXPORTING   
         HANDLE = THANDLE  
         FNAME  = FILENAME  
    TABLES   
         BLOBBLOB   = BLOB.   
  
*读取文件失败时退出程序并回执错误   
  IF SY-SUBRC <> 0.   
 MESSAGE E001(00) WITH 'Read FTP File FAIL!'.   
 EXIT.   
  ENDIF.   
  
*将内表数据下载到本地文件   
  CALL FUNCTION 'WS_DOWNLOAD'   
    EXPORTING   
         FILENAME            = FILEPATH  
         FILETYPE            = 'DAT'  
    TABLES   
         DATA_TAB            = BLOB  
    EXCEPTIONS   
         FILE_OPEN_ERROR     = 1  
         FILE_WRITE_ERROR    = 2  
         INVALID_FILESIZE    = 3  
         INVALID_TABLE_WIDTH = 4  
         INVALID_TYPE        = 5.   
  
*将数据写入本地文件失败时回执错误   
  IF SY-SUBRC <> 0.   
 MESSAGE E001(00) WITH 'FTP Download By Internal table FAIL!'.   
  ELSE.   
 MESSAGE S001(00) WITH 'FTP Download By Internal table SUCCESS!'.   
  ENDIF.   
ENDFORM.  
 
​

评论关闭
IT干货网

微信公众号号:IT虾米 (左侧二维码扫一扫)欢迎添加!

【ABAP系列】SAP ABAP 从FTP服务器读取文件到本地