ABAP动态生成经典应用之DynamicSQLExcute程序.docxVIP

[SAP]ABAP动态生成经典应用之Dynamic?SQL?Excute?程序(2006-03-01 23:59:59) 转载▼分类：SAP开发说明：在SAP的系统维护过程中，有时我们需要修改一些Table中的数据，可是很多Table又不能直接在Tcode：SE16中修改，使用的SAP ID又没有调试数据修改权限，这时我们应该怎么样修改数据呢？思路-- ABAP程序中的SQL 更新语句谁都有权限执行，只要我们能动态生成修改该Table字段的ABAP CODE动态执行即可！?开发技术：1.SQL代码编写技术1.动态程序代码生成技术2.ABAP动态程序执行技术?注意事项：SQL语法一定要准确，修改条件准确，修改数据后不违法数据唯一性原则?程序代码：如下******************************************************************** (Copyright @2006 Mysingle Digital System Co.Ltd.* All Rights Reserved|Confidential)* System Module?? :? ABAP CBO* Program Description? :? Dynamic SQL Excute* Developer???????? :? ZOU XIN* Develop Date?? :? 2006.03.01* Use Status?? :? Release 1.0*******************************************************************REPORT z_cbo_abap_02 MESSAGE-ID zp NO STANDARD PAGE HEADING.?DATA : fcode LIKE sy-ucomm,?????? changed LIKE s38e-buf_varied,?????? save_tabix? LIKE sy-tabix,?????? tabix_count TYPE i,?????? select_key(10) TYPE c,?????? etc(80)? TYPE c,?????? update_flag? TYPE c,?????? line_cnt???? TYPE i,?????? prog(8)????? TYPE c,?????? msg(120)???? TYPE c,?????? msg_text(72) TYPE c,?????? confirm_flag TYPE c.DATA: itab_sql LIKE abapsource OCCURS 0 WITH HEADER LINE,????? itab_prog LIKE abapsource OCCURS 0 WITH HEADER LINE.?START-OF-SELECTION.*程序执行直接进入ABAP代码编辑器? SET PF-STATUS PFSTA00.? WRITE: /1 Edit Your SQL COLOR 2.?AT USER-COMMAND.*动态生成程序修改确认? IF sy-ucomm = EDIT.??? PERFORM editor_sql.*动态生成程序执行? ELSEIF sy-ucomm = EXEC OR sy-ucomm = EDEX.??? REFRESH itab_prog.??? CLEAR itab_prog.??? IF update_flag = X.????? PERFORM exec_modify.??? ENDIF.? ENDIF.***????? Form? editor_sql**FORM editor_sql.* CALL Editor? CALL FUNCTION EDITOR_APPLICATION?????? EXPORTING??????????? application = BF??????????? display???? = ??????????? name??????? = [Edit Your SQL]?????? IMPORTING??????????? fcode?????? = fcode??????????? changed???? = changed?????? TABLES??????????? content???? = itab_sql.* Translate Code Upper? LOOP AT itab_sql.??? save_tabix? = sy-tabix.??? tabix_count = tabix_count + 1.??? IF itab_sql-