如何编写上传(PC->AS)和下载(AS->PC)程序示例
2006-08-30 10:57
549 查看
REPORT Z_HO_TTT .
parameters: pm_cr type TRKORR obligatory.
data: c_file(80), d_file(80).
DATA: C_L TYPE STRING, D_L TYPE STRING.
data: str(12).
str = pm_cr.
*shift str left by 3 places.
*str+7(1) = '.'.
*str+8(3) = pm_cr(3).
concatenate '/usr/sap/trans/cofiles/' pm_cr into c_file.
CONCATENATE 'C:/' pm_cr INTO C_L.
str(1) = 'R'.
concatenate '/usr/sap/trans/data/' pm_cr INTO D_FILE.
CONCATENATE 'C:/' pm_cr INTO D_L.
DATA: BEGIN OF I_LIST OCCURS 0,
STR(500),
END OF I_LIST.
DATA: I TYPE I, J TYPE I.
*文本文件下载
OPEN DATASET C_FILE FOR INPUT IN TEXT MODE.
DO.
READ DATASET C_FILE INTO I_LIST.
IF SY-SUBRC NE 0.
EXIT.
ENDIF.
APPEND I_LIST.
ENDDO.
close dataset c_file.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
* BIN_FILESIZE =
filename = C_L
* FILETYPE = 'ASC'
tables
data_tab = I_LIST
.
REFRESH I_LIST.
CLEAR: I_LIST.
CLEAR: I.
*二进值文件下载
OPEN DATASET D_FILE FOR INPUT IN BINARY MODE.
DO.
READ DATASET D_FILE INTO I_LIST LENGTH J.
IF SY-SUBRC NE 0 AND J = 0.
EXIT.
ENDIF.
I = I + J.
APPEND I_LIST.
ENDDO.
close dataset D_file.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE = I
filename = D_L
FILETYPE = 'BIN'
tables
data_tab = I_LIST.
parameters: pm_cr type TRKORR obligatory.
data: c_file(80), d_file(80).
DATA: C_L TYPE STRING, D_L TYPE STRING.
data: str(12).
str = pm_cr.
*shift str left by 3 places.
*str+7(1) = '.'.
*str+8(3) = pm_cr(3).
concatenate '/usr/sap/trans/cofiles/' pm_cr into c_file.
CONCATENATE 'C:/' pm_cr INTO C_L.
str(1) = 'R'.
concatenate '/usr/sap/trans/data/' pm_cr INTO D_FILE.
CONCATENATE 'C:/' pm_cr INTO D_L.
DATA: BEGIN OF I_LIST OCCURS 0,
STR(500),
END OF I_LIST.
DATA: I TYPE I, J TYPE I.
*文本文件下载
OPEN DATASET C_FILE FOR INPUT IN TEXT MODE.
DO.
READ DATASET C_FILE INTO I_LIST.
IF SY-SUBRC NE 0.
EXIT.
ENDIF.
APPEND I_LIST.
ENDDO.
close dataset c_file.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
* BIN_FILESIZE =
filename = C_L
* FILETYPE = 'ASC'
tables
data_tab = I_LIST
.
REFRESH I_LIST.
CLEAR: I_LIST.
CLEAR: I.
*二进值文件下载
OPEN DATASET D_FILE FOR INPUT IN BINARY MODE.
DO.
READ DATASET D_FILE INTO I_LIST LENGTH J.
IF SY-SUBRC NE 0 AND J = 0.
EXIT.
ENDIF.
I = I + J.
APPEND I_LIST.
ENDDO.
close dataset D_file.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE = I
filename = D_L
FILETYPE = 'BIN'
tables
data_tab = I_LIST.
相关文章推荐
- 如何编写上传(PC->AS)和下载(AS->PC)程序示例
- 如何编写上传(PC->AS)和下载(AS->PC)程序示例
- 如何编写上传(PC->AS)和下载(AS->PC)程序示例
- 如何编写上传(PC->AS)和下载(AS->PC)程序示例
- 如何编写上传(PC->AS)和下载(AS->PC)程序示例
- ABAP--编写下载(AS->PC)并在客户端打开的程序示例
- 编写下载(AS->PC)并在客户端打开的程序示例
- ABAP--编写下载(AS->PC)并在客户端打开的程序示例
- ABAP--编写下载(AS->PC)并在客户端打开的程序示例
- ABAP--编写下载(AS->PC)并在客户端打开的程序示例
- ABAP--编写下载(AS->PC)并在客户端打开的程序示例
- ABAP--编写下载(AS->PC)并在客户端打开的程序示例
- 微信小程序常见问题->上传文件后如何在后台(php)获取文件名解决方法
- 利用PROGISP实现ARDUINO IDE编写的程序的下载以及如何把AVR单片机做成ARDUINO板
- 如何编写AS程序——初学者第一课
- 如何编写文件下载程序
- Java程序如何限速(控制下载和上传速度)
- jsp实现文件上传下载的程序示例
- as 3.0 如何浏览文件,实现文件上传和下载功能。
- jsp实现文件上传下载的程序示例