ABAP下载服务器文件到本机
转自http://blog.sina.com.cn/s/blog_701594f40100l8ml.html
ABAP：下载服务器文件到本机
对服务器的文件进行读写操作，SAP提供了OPEN DATASET语句。而下载文件到本地，则可以调用GUI_DOWNLOAD函数。
由于我们只需要将文件原原本本地进行复制，所以采用BINARY MODE才是比较好的办法，可以支持TXT、PDF、WORD以及任意形式的文件下载。
DATA: dset TYPE string,
subrc LIKE
sy-subrc,
leng TYPE
i,
fsize TYPE i VALUE
0,
buf TYPE c LENGTH
1000,
tblob LIKE TABLE OF buf.
dset = '/home/comp/data/test.pdf'.
OPEN DATASET dset FOR INPUT IN BINARY
MODE.
IF sy-subrc <> 0.
MESSAGE 'Error: open dataset.' TYPE
'E'.
ENDIF.
WHILE subrc = 0.
leng = 0.
READ DATASET dset INTO buf
ACTUAL LENGTH leng.
subrc = sy-subrc.
CHECK leng >
0.
fsize = fsize + leng.
APPEND buf TO
tblob.
ENDWHILE.
CLOSE DATASET dset.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
bin_filesize = fsize
filename =
'c:\test.pdf'
filetype =
'BIN'
TABLES
data_tab =
tblob
EXCEPTIONS
OTHERS = 9.
说明：
(1)OPEN DATASET时设置IN BINARY MODE，GUI_DOWNLOAD时也是以'BIN'模式，从而实现二进制的直接传送。
(2)buf的大小决定了每次读取服务器文件中多大量的数据，如果是NON-UNICODE系统，则我们每次读取1000 BYTE（leng=1000）；
如果是UNICODE系统则每次读取2000 BYTE （leng = 2000）。
(3)要注意READ DATASET语句的返回值sy-subrc，它代表的并非本次读取到了数据与否，而是代表本次读取是否已到达文件结束符。换言之，它代表的是下次是否需要继续读取该文件。
