开发技术：1.文本文件上载技术2.动态程序代码生成技术3.ABAP动态程序执行技术4.TXT文本文件对应用Table字段编辑技术注意事项：文件文件编辑过程中时间日期格式为 20060201 120000 表示 2006.02.01 12：00：00文本文件中不能包含除字符，数字之外的其他特殊符号。假如Table中对应的字段数据为空时，，在编辑数据时也对应该列为空。程序代码：如下*&——————————————————————**& Report Z_CBO_ABAP_TXT*&*&——————————————————————** 程序说明 Table数据Upload 程序 只能导入TXT* 模块:版本* 参考文档* 应用顾问* 程序开发 * 开发日期 *&——————————————————————**&更改记录*&日期 更改人 模块:版本 功能说明书*&*&*&——————————————————————*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.
有时，明知错了，却欲罢不能，
