很恐怖ABAP修改程序(千万不要乱用!!!!!!!!!)

*& Report  **************

*& 

*&---------------------------------------------------------------------* 

*& 

*& 

*&---------------------------------------------------------------------* 

REPORT  **************. 

types: abapline(255) type c. 

data: it_repsrc type standard table of abapline. 

DATA: ZBACK type standard table of abapline. 

DATA: wa_repsrc TYPE  abapline. 

data : fcode like sy-ucomm. 

DATA:changed like s38e-buf_varied. 

DATA:IT_MESSAGE TYPE TABLE OF ZTEXT_EDITOR_MESSAGE WITH HEADER LINE. 

DATA: BEGIN OF INCTABL OCCURS 10, 

   LINE(100), 

END OF INCTABL. 

PARAMETERS:Zname LIKE RS38M-PROGRAMM. 

start-of-selection. 

set pf-status 'PFSTA00'. 

write: /1 '你编辑好的程序：' color 2. 

read report Zname into it_repsrc. 

read report Zname into ZBACK. 

  LOOP AT it_repsrc INTO wa_repsrc. 

    WRITE :/ wa_repsrc. 

  ENDLOOP. 

at user-command. 

if sy-ucomm = 'ZWRITE'.     "写入 

  CLEAR :INCTABL[]. 

  LOOP AT it_repsrc INTO wa_repsrc. 

    INCTABL-LINE = wa_repsrc. 

    APPEND INCTABL. 

  ENDLOOP. 

  INSERT REPORT ZNAME FROM INCTABL. 

  if sy-subrc = 0. 

    MESSAGE '写入成功,将测试运行新的程序.如果有错误,请点"还原"恢复.'  TYPE 'I'. 

  ENDIF. 

  SUBMIT Zname  AND RETURN. 

  read report Zname into it_repsrc. 

  LOOP AT it_repsrc INTO wa_repsrc. 

    WRITE :/ wa_repsrc. 

  ENDLOOP. 

elseif sy-ucomm = 'EXEC'.   "还原 

  it_repsrc[] = ZBACK[]. 

  INSERT REPORT Zname FROM ZBACK. 

  LOOP AT ZBACK INTO wa_repsrc. 

    WRITE :/ wa_repsrc. 

  ENDLOOP. 

  SUBMIT Zname  AND RETURN. 

  MESSAGE '还原成功' TYPE 'I'. 

ELSEIF SY-ucomm = 'EDIT'.   "编辑 

  perform. editor_CHX. 

  LOOP AT it_repsrc INTO wa_repsrc. 

    WRITE :/ wa_repsrc. 

  ENDLOOP. 

elseif sy-ucomm = 'ZBACK' OR sy-ucomm = 'BACK'.    "退出 

     CLEAR: inctabl[],it_repsrc[],ZBACK[],Zname. 

     FREE :inctabl[],it_repsrc[],ZBACK[],Zname. 

     leave to screen 0. 

ELSE. 

endif. 

*&---------------------------------------------------------------------* 

*&      Form  editor_CHX 

*&---------------------------------------------------------------------* 

*       text 

*----------------------------------------------------------------------* 

*  -->  p1        text 

*  <--  p2        text 

*----------------------------------------------------------------------* 

FORM. editor_CHX . 

  call function 'EDITOR_APPLICATION' 

       exporting 

            application = 'BF' 

            display     = ' ' 

            name        = '[编辑你的程序:]' 

       importing 

            fcode       = fcode 

            changed     = changed 

       tables 

            content     = it_repsrc. 

ENDFORM.                    " editor_CHX 

*********************后话 

用上面这个程序,可以修改SAP的任何程序.不需要申请KEY,也不会产生序列号.建议有丰富ABAP编写经验的人才可以使用,如果你一定要使用,请记住"写入程序"后的提示.在测试正确前,不要退出本程序,这样,你还有机会还原!!!!!!!!!(想想吧,如果使用不慎,即使几百万的SAP系统不会全毁了,某个模块也会可能毁坏.所以,一定慎重使用).