ABAP 中关于WS_DOWNLOAD 的程序（2）

REPORT  ZZW_LOCAL_FILE_OPERATION                .

******************************************************

*  Author: Lilo.Zhu

*

*  Date: 05/12/2006

*

*  KeyWord:WS_DOWNLOAD,WS_UPLOAD

*=====================================================

*  Last Modified Date:

*

*  Log

*

******************************************************

TABLES: SFLIGHT.

 

SELECTION-SCREEN BEGIN OF BLOCK B1.

SELECT-OPTIONS: S_CARRID FOR SFLIGHT-CARRID.

SELECTION-SCREEN END OF BLOCK B1.

 

 

PARAMETERS:  FNAME TYPE RLGRAP-FILENAME DEFAULT 'C:/TEMP/MYFILE.DAT',

             FTYPE TYPE RLGRAP-FILETYPE  DEFAULT 'DAT'.

 

DATA:        SFLIGHT_TAB_1 LIKE  TABLE   OF   SFLIGHT,

             SFLIGHT_TAB_2 LIKE  TABLE   OF   SFLIGHT,

             TAB_LINE  LIKE LINE OF  SFLIGHT_TAB_1,

             LENG  TYPE  I,

             LINS  TYPE  I,

             SIZE  TYPE  I.

 

 

SELECT * FROM

         SFLIGHT  INTO TABLE SFLIGHT_TAB_1

         WHERE CARRID = S_CARRID.

 

DESCRIBE FIELD  TAB_LINE(8)  LENGTH  LENG IN CHARACTER MODE.

DESCRIBE TABLE  SFLIGHT_TAB_1  LINES  LINS.

SIZE = LENG * LINS.

*SIZE = 10 * LINS.

 

 

CALL FUNCTION 'WS_DOWNLOAD'

      EXPORTING

        FILENAME  =  FNAME

        FILETYPE  =  FTYPE

        BIN_FILESIZE  =  SIZE

 

     TABLES

       DATA_TAB  =  SFLIGHT_TAB_1.

 

 

IF SY-SUBRC  <>  0.

    MESSAGE  E888(SABAPDOCU)  WITH  'SYS-SUBRC =  ' SY-SUBRC.

ENDIF.

 

CALL FUNCTION 'WS_UPLOAD'

      EXPORTING

        FILENAME  =  FNAME

        FILETYPE  =  FTYPE

 

      TABLES

        DATA_TAB  =  SFLiGHT_TAB_2.

 

 

IF SY-SUBRC  <> 0.

    MESSAGE E888(SABAPDOCU) WITH  'SY-SUBRC  =  ' SY-SUBRC.

ENDIF.

 

IF  SFLIGHT_TAB_1  =  SFLIGHT_TAB_2.

    MESSAGE I888(SABAPDOCU) WITH 'OK'.

ENDIF.

 

程序运行效果图：