开发技术：1.文本文件上载技术2.动态程序代码生成技术3.ABAP动态程序执行技术4.TXT文本文件对应用Table字段编辑技术 注意事项：文件文件编辑过程中时间日期格式为 20060201 120000 表示 2006.02.01 12：00：00文本文件中不能包含除字符，数字之外的其他特殊符号。假如Table中对应的字段数据为空时，在编辑数据时也对应该列为空。 程序代码：如下*&------------------------------------------------------------------**& Report Z_CBO_ABAP_TXT*&*&------------------------------------------------------------------** 程序说明 Table数据Upload 程序 只能导入TXT* 模块:版本* 参考文档* 应用顾问* 程序开发 Z-HANS* 开发日期 2011-02-24*&------------------------------------------------------------------**&更改记录*&日期 更改人 模块:版本 功能说明书*&*&*&------------------------------------------------------------------*REPORT Z_CBO_ABAP.
TABLES : dd03l,dd02t.*-------------------------------------------------------------------** 内表*-------------------------------------------------------------------*DATA: BEGIN OF tab OCCURS 10, fcode(4), END OF tab.DATA : BEGIN OF itab OCCURS 0, chk(1) TYPE c, " check box tabname LIKE dd03l-tabname, " Table name fieldname LIKE dd03l-fieldname, " Feld Name position LIKE dd03l-position, " Table keyflag LIKE dd03l-keyflag, " Primary Key datatype LIKE dd03l-datatype, " Data Type intlen LIKE dd03l-leng, END OF itab.DATA itab1 LIKE itab OCCURS 0 WITH HEADER LINE.DATA : BEGIN OF uptab OCCURS 0,* text(72) TYPE c, text(100) TYPE c, END OF uptab.DATA: BEGIN OF error_message, line1(72), line2(72), line3(72), END OF error_message.DATA : cnt1(8) TYPE c, fcode LIKE sy-ucomm, changed LIKE s38e-buf_varied, prog(8) TYPE c, msg(120) TYPE c, er_include LIKE sy-repid, er_line LIKE sy-index, er_off LIKE sy-tabix, er_subrc LIKE sy-subrc.
*-------------------------------------------------------------------** 选择画面*-------------------------------------------------------------------*PARAMETERS : tabname LIKE dd03l-tabname.
*------------------------------------------------------------------** START-OF-SELECTION **-------------------------------------------------------------------*
START-OF-SELECTION. IF tabname IS INITIAL. MESSAGE '请输入数据表名称！' TYPE 'S' DISPLAY LIKE 'E'. EXIT. ENDIF.
*上载Table字段分析 SELECT SINGLE * FROM dd02t WHERE tabname = tabname. if sy-subrc <> 0. MESSAGE '请输入正确的数据表名称！' TYPE 'S' DISPLAY LIKE 'E'. EXIT. endif. SET PF-STATUS 'CBO'. SELECT * INTO CORRESPONDING FIELDS OF TABLE itab FROM dd03l WHERE tabname = tabname AND as4local = 'A' ORDER BY position. itab-chk = 'X'. MODIFY itab INDEX 1 TRANSPORTING chk.*动态上载程序代码生成函数 PERFORM generate_upload_code.*ABAP程序代码编辑器调用 PERFORM edit_generator_code.
AT USER-COMMAND . IF sy-ucomm = 'EDIT'. PERFORM edit_generator_code. ELSEIF sy-ucomm = 'EXEC'. GENERATE SUBROUTINE POOL uptab NAME prog MESSAGE msg. IF MSG IS NOT INITIAL. MESSAGE MSG TYPE 'S' DISPLAY LIKE 'E'. EXIT. ENDIF.*程序代码语法检测 PERFORM chcek_syntax_error.*动态程序代码执行 PERFORM dyn1 IN PROGRAM (prog). elseif ( sy-ucomm = 'EXIT' or sy-ucomm = 'BACK' or sy-ucomm = 'CANC' ). EXIT. ENDIF.
*&---------------------------------------------------------------**& Form generate_upload_code*&---------------------------------------------------------------*FORM generate_upload_code. REFRESH uptab. uptab-text = 'REPORT ZUPLOAD_TABLE.'. APPEND uptab. CONCATENATE 'TABLES :' tabname '.' INTO uptab-text SEPARATED BY space. APPEND uptab. uptab-text = 'DATA : BEGIN OF UPTAB OCCURS 0,'. APPEND uptab. LOOP AT itab WHERE chk = ''. CLEAR uptab. CONCATENATE ' ' itab-fieldname '(' itab-intlen ')' ' TYPE C ,' INTO uptab-text+10(80). APPEND uptab. ENDLOOP. uptab-text+6(82) = 'END OF UPTAB.'. APPEND uptab. uptab-text = 'DATA : BEGIN OF RESULT OCCURS 0.'. APPEND uptab. CLEAR uptab. CONCATENATE 'INCLUDE STRUCTURE' itab-tabname '.' INTO uptab-text+10(80) SEPARATED BY space. APPEND uptab. uptab-text = 'DATA : END OF RESULT.'. APPEND uptab. uptab-text = 'FORM DYN1.'. APPEND uptab. CLEAR uptab. uptab-text+2(88) = 'CALL FUNCTION ''UPLOAD'''. APPEND uptab. CLEAR uptab. uptab-text+4(86) = 'EXPORTING'. APPEND uptab. CLEAR uptab. uptab-text+6(84) = 'FILENAME = ''C:/'''. APPEND uptab. uptab-text+6(84) = 'FILETYPE = ''DAT'''. APPEND uptab. uptab-text+4(86) = 'TABLES'. APPEND uptab. CLEAR uptab. uptab-text+6(84) = 'DATA_TAB = UPTAB.'. APPEND uptab. uptab-text+2(88) = 'LOOP AT UPTAB.'. APPEND uptab. CLEAR uptab. uptab-text+4(86) = 'CLEAR RESULT.'. APPEND uptab. uptab-text+4(86) = 'MOVE-CORRESPONDING UPTAB TO RESULT.'. APPEND uptab. uptab-text+4(86) = 'APPEND RESULT.'. APPEND uptab. uptab-text+2(88) = 'ENDLOOP.'. APPEND uptab. CLEAR uptab. CONCATENATE 'MODIFY' itab-tabname 'FROM TABLE RESULT.' INTO uptab-text+2(88) SEPARATED BY space. APPEND uptab. uptab-text = 'ENDFORM.' . APPEND uptab. CLEAR uptab.ENDFORM. " generate_upload_code*&---------------------------------------------------------------**& Form edit_generator_code*&---------------------------------------------------------------*FORM edit_generator_code. CALL FUNCTION 'EDITOR_APPLICATION' EXPORTING application = 'BF' display = ' ' name = 'Source Code.....' IMPORTING fcode = fcode changed = changed TABLES content = uptab. LOOP AT uptab. WRITE:/1 uptab-text. ENDLOOP.ENDFORM. " PRINT_GENERATOR_CODE*&---------------------------------------------------------------**& Form chcek_syntax_error*&---------------------------------------------------------------*FORM chcek_syntax_error. CALL FUNCTION 'EDITOR_SYNTAX_CHECK' EXPORTING i_global_check = SY-CALLD i_global_program = SY-REPID i_program = 'ZUPLOAD_TABLE'* i_r2_check = ' '* i_r2_destination = ' '* i_trdir = ' ' IMPORTING o_error_include = er_include o_error_line = er_line o_error_message = error_message o_error_offset = er_off o_error_subrc = er_subrc TABLES i_source = uptab. IF er_subrc <> 0. er_line = er_line - 2. WRITE:/1 'Error Line : ',er_line. WRITE:/1 error_message-line1,error_message-line2, error_message-line3. STOP. ENDIF.ENDFORM. " chcek_syntax_error
