*&---------------------------------------------------------------------* *& Include ZDB_UPLOAD_DO * *& * *&---------------------------------------------------------------------* *& * *& This file is part of ZDB. * *& * *& ZDB_DOWNLOAD is free software: you can redistribute it and/or * *& modify it under the terms of the GNU General Public License as * *& published by the Free Software Foundation, either version 3 of the * *& License, or any later version. * *& * *& ZDB_DOWNLOAD is distributed in the hope that it will be useful, * *& but WITHOUT ANY WARRANTY; without even the implied warranty of * *& MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * *& GNU General Public License for more details. * *& * *& You should have received a copy of the GNU General Public License * *& along with ZDOWNLOAD. If not, see . * *& * *&---------------------------------------------------------------------* *& * *& Author: Ruediger von Creytz ruediger.creytz@globalbit.net * *& Copyright: globalBIT, LLC http://www.globalbit.net * *& * *&---------------------------------------------------------------------* *----------------------------------------------------------------------- * form: upload *----------------------------------------------------------------------- FORM upload CHANGING ct_string TYPE it_string. DATA: l_infoline(80), l_uri TYPE string. REFRESH ct_string. CALL FUNCTION 'GUI_UPLOAD' EXPORTING filename = g_file TABLES data_tab = ct_string EXCEPTIONS OTHERS = 1. ENDFORM. "upload