上传下载文件 .

1. *&---------------------------------------------------------------------*  
2. *&  包括                ZUPLOAD_DOWNLOAD  
3. *&---------------------------------------------------------------------*  
4. *&---------------------------------------------------------------------*  
5. *&      Form  ws_filename_get  
6. *&---------------------------------------------------------------------*  
7. FORM WS_FILENAME_GET USING  P_FILE.  
8.   CALL FUNCTION 'WS_FILENAME_GET'  
9.     EXPORTING  
10.       DEF_FILENAME     = '*.txt'  
11.       DEF_PATH         = 'C:\'  
12.       MASK             = ',*.txt.'  
13.       MODE             = 'O'  
14.       TITLE            = TEXT-004  
15.     IMPORTING  
16.       FILENAME         = P_FILE  
17.     EXCEPTIONS  
18.       INV_WINSYS       = 1  
19.       NO_BATCH         = 2  
20.       SELECTION_CANCEL = 3  
21.       SELECTION_ERROR  = 4  
22.       OTHERS           = 5.  
23. ENDFORM.                    " ws_filename_get  
24. *&---------------------------------------------------------------------*  
25. *&      Form  UPLOAD_FILE  
26. *&---------------------------------------------------------------------*  
27. FORM UPLOAD_FILE  TABLES IT_UPLOAD  
28.                   USING P_FILE.  
29.   DATA: FSIZEIN  TYPE I,  
30.         W_REJECT TYPE I,  
31.         IJIR     TYPE I VALUE 0,  
32.         W_TYPE   LIKE DD01V-DATATYPE.  
33.   DATA: P_TYPE LIKE RLGRAP-FILETYPE VALUE 'DAT'.  
34. *-- Upload the Main Material Master file using Function 'WS_UPLOAD'  
35.   CALL FUNCTION 'WS_UPLOAD'  
36.     EXPORTING  
37.       FILENAME            = P_FILE  
38.       FILETYPE            = P_TYPE  
39.     IMPORTING  
40.       FILELENGTH          = FSIZEIN  
41.     TABLES  
42.       DATA_TAB            = IT_UPLOAD  
43.     EXCEPTIONS  
44.       CONVERSION_ERROR    = 1  
45.       FILE_OPEN_ERROR     = 2  
46.       FILE_READ_ERROR     = 3  
47.       INVALID_TABLE_WIDTH = 4  
48.       INVALID_TYPE        = 5  
49.       NO_BATCH            = 6  
50.       UNKNOWN_ERROR       = 7  
51.       OTHERS              = 8.  
52. *-- If error, display the necessary Error Message.  
53.   CASE SY-SUBRC.  
54.     WHEN 1. PERFORM MSG USING '转换错误' 'E'.  
55.     WHEN 2. PERFORM MSG USING '文件打开错误' 'E'.  
56.     WHEN 3. PERFORM MSG USING '文件读取错误' 'E'.  
57.     WHEN 4. PERFORM MSG USING '表宽不对' 'E'.  
58.     WHEN 5. PERFORM MSG USING '文件类型不对' 'E'.  
59.     WHEN 6. PERFORM MSG USING '不是批处理' 'E'.  
60.     WHEN 7. PERFORM MSG USING '不知名的错误' 'E'.  
61.     WHEN 8. PERFORM MSG USING '其他错误' 'E'.  
62.   ENDCASE.  
63.   DELETE IT_UPLOAD INDEX 1.  
64.   IF IT_UPLOAD[] IS INITIAL.  
65.     MESSAGE E315 WITH '上载文件错误,请检查'.  
66.     STOP.  
67.   ENDIF.  
68. ENDFORM.                    " UPLOAD_FILE  
69.   
70. *&---------------------------------------------------------------------*  
71. *&      Form  MSG  
72. *&---------------------------------------------------------------------*  
73. *       text  
74. *----------------------------------------------------------------------*  
75. *      -->MSGTXT     text  
76. *      -->MSGTYPE    text  
77. *----------------------------------------------------------------------*  
78. FORM MSG USING MSGTXT MSGTYPE.  
79.   CASE MSGTYPE.  
80.     WHEN 'E'.  MESSAGE E315 WITH MSGTXT.  
81.     WHEN 'I'.  MESSAGE I315 WITH MSGTXT.  
82.     WHEN 'S'.  MESSAGE S315 WITH MSGTXT.  
83.     WHEN 'W'.  MESSAGE W315 WITH MSGTXT.  
84.     WHEN 'A'.  MESSAGE A315 WITH MSGTXT.  
85.   ENDCASE.  
86. ENDFORM.                    "MSG  
87. *&---------------------------------------------------------------------*  
88. *&      Form  DOWN_LOAD  
89. *&---------------------------------------------------------------------*  
90. FORM DOWN_LOAD  TABLES IT_ERROR  
91.                 USING  P_DOWN.  
92.   CONCATENATE P_DOWN '_' SY-DATUM '_' SY-UZEIT '.txt'  
93.     INTO P_DOWN.  
94.   CONDENSE P_DOWN.  
95.   CALL FUNCTION 'WS_DOWNLOAD'  
96.     EXPORTING  
97.       FILENAME            = P_DOWN  
98.       FILETYPE            = 'DAT'  
99.     TABLES  
100.       DATA_TAB            = IT_ERROR  
101.     EXCEPTIONS  
102.       CONVERSION_ERROR    = 1  
103.       FILE_OPEN_ERROR     = 2  
104.       FILE_READ_ERROR     = 3  
105.       INVALID_TABLE_WIDTH = 4  
106.       INVALID_TYPE        = 5  
107.       NO_BATCH            = 6  
108.       UNKNOWN_ERROR       = 7  
109.       OTHERS              = 8.  
110.   IF SY-SUBRC = 0.  
111.     MESSAGE I999 WITH TEXT-S01 P_DOWN.  
112.     STOP.  
113.   ENDIF.  
114. ENDFORM.                    " DOWN_LOAD