1
*&---------------------------------------------------------------------*
2
*& Include ZDB_UPLOAD_DO *
3
*& *
4
5
6
*& This file is part of ZDB. *
7
8
*& ZDB_DOWNLOAD is free software: you can redistribute it and/or *
9
*& modify it under the terms of the GNU General Public License as *
10
*& published by the Free Software Foundation, either version 3 of the *
11
*& License, or any later version. *
12
13
*& ZDB_DOWNLOAD is distributed in the hope that it will be useful, *
14
*& but WITHOUT ANY WARRANTY; without even the implied warranty of *
15
*& MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
16
*& GNU General Public License for more details. *
17
18
*& You should have received a copy of the GNU General Public License *
19
*& along with ZDOWNLOAD. If not, see <http://www.gnu.org/licenses/>. *
20
21
22
23
*& Author: Ruediger von Creytz ruediger.creytz@globalbit.net *
24
*& Copyright: globalBIT, LLC http://www.globalbit.net *
25
26
27
28
29
*-----------------------------------------------------------------------
30
* form: upload
31
32
FORM upload CHANGING
33
ct_string TYPE it_string.
34
35
DATA:
36
l_infoline(80),
37
l_uri TYPE string.
38
39
REFRESH ct_string.
40
41
CALL FUNCTION 'GUI_UPLOAD'
42
EXPORTING
43
filename = g_file
44
TABLES
45
data_tab = ct_string
46
EXCEPTIONS
47
OTHERS = 1.
48
49
ENDFORM. "upload