本文介绍了一个使用SAP GUI进行文件上传的ABAP程序示例。该程序定义了必要的参数和数据类型，并通过调用GUI_UPLOAD函数模块实现文件读取。之后，将读取的数据写入指定的文件中。
| T-CODE： CG3Z upload
REPORT Z_FILE_UPLOAD . | ||||||||
| PARAMETER: PA_FILEU TYPE ESEFTAPPL. | ||||||||
| PARAMETER: PA_FILE TYPE ESEFTFRONT. | ||||||||
| TYPES: BEGIN OF GSTRT_FILEU, | ||||||||
| LINE(2000) TYPE C, | ||||||||
| END OF GSTRT_FILEU. | ||||||||
| DATA: GSTR_FILEU TYPE GSTRT_FILEU, | ||||||||
| GITAB_FILEU LIKE TABLE OF GSTR_FILEU. | ||||||||
| START-OF-SELECTION. | ||||||||
| PERFORM FM_FILEREAD. | ||||||||
| PERFORM FM_UPDATA. | ||||||||
| *&---------------------------------------------------------------------* | ||||||||
| *& Form FM_FILEREAD | ||||||||
| *&---------------------------------------------------------------------* | ||||||||
| * text | ||||||||
| *----------------------------------------------------------------------* | ||||||||
| * --> p1 text | ||||||||
| * <-- p2 text | ||||||||
| *----------------------------------------------------------------------* | ||||||||
| FORM FM_FILEREAD. | ||||||||
| DATA: LC_FILENAME TYPE STRING. | ||||||||
| LC_FILENAME = PA_FILE. | ||||||||
| CALL FUNCTION 'GUI_UPLOAD' | ||||||||
| EXPORTING | ||||||||
| FILENAME = LC_FILENAME | ||||||||
| * FILETYPE = 'ASC' | ||||||||
| * HAS_FIELD_SEPARATOR = ' ' | ||||||||
| * HEADER_LENGTH = 0 | ||||||||
| * READ_BY_LINE = 'X' | ||||||||
| * DAT_MODE = ' ' | ||||||||
| * IMPORTING | ||||||||
| * FILELENGTH = | ||||||||
| * HEADER = | ||||||||
| TABLES | ||||||||
| DATA_TAB = GITAB_FILEU | ||||||||
| EXCEPTIONS | ||||||||
| FILE_OPEN_ERROR = 1 | ||||||||
| FILE_READ_ERROR = 2 | ||||||||
| NO_BATCH = 3 | ||||||||
| GUI_REFUSE_FILETRANSFER = 4 | ||||||||
| INVALID_TYPE = 5 | ||||||||
| NO_AUTHORITY = 6 | ||||||||
| UNKNOWN_ERROR = 7 | ||||||||
| BAD_DATA_FORMAT = 8 | ||||||||
| HEADER_NOT_ALLOWED = 9 | ||||||||
| SEPARATOR_NOT_ALLOWED = 10 | ||||||||
| HEADER_TOO_LONG = 11 | ||||||||
| UNKNOWN_DP_ERROR = 12 | ||||||||
| ACCESS_DENIED = 13 | ||||||||
| DP_OUT_OF_MEMORY = 14 | ||||||||
| DISK_FULL = 15 | ||||||||
| DP_TIMEOUT = 16 | ||||||||
| OTHERS = 17 | ||||||||
| . | ||||||||
| IF SY-SUBRC <> 0. | ||||||||
| MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO | ||||||||
| WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. | ||||||||
| ENDIF. | ||||||||
| ENDFORM. " FM_FILEREAD | ||||||||
| *&---------------------------------------------------------------------* | ||||||||
| *& Form FM_UPDATA | ||||||||
| *&---------------------------------------------------------------------* | ||||||||
| * text | ||||||||
| *----------------------------------------------------------------------* | ||||||||
| * --> p1 text | ||||||||
| * <-- p2 text | ||||||||
| *----------------------------------------------------------------------* | ||||||||
| FORM FM_UPDATA. | ||||||||
| OPEN DATASET PA_FILEU FOR OUTPUT IN TEXT MODE encoding DEFAULT. | ||||||||
| IF SY-SUBRC = 0. | ||||||||
| LOOP AT GITAB_FILEU INTO GSTR_FILEU. | ||||||||
| TRANSFER GSTR_FILEU-LINE TO PA_FILEU. | ||||||||
| ENDLOOP. | ||||||||
| CLOSE DATASET PA_FILEU. | ||||||||
| * ELSE. | ||||||||
| * TRANSFER '' TO PA_FILEU. | ||||||||
| ENDIF. | ||||||||
| CLOSE DATASET PA_FILEU. | ||||||||
| ENDFORM. " FM_UPDATA | ||||||||
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
