可以修改任意程序(包括SAP标准程序)的程序

这个程序   使用起来一定要格外小心，他可以把 SAP 的标准程序都改掉而且不需要 ACCESS  KEY.
我特别喜欢这个万用程序。在 PRODUCTION  环境中是禁制修改或是开发新程序的。这只程序只要偷偷上到  PRODUCTION ....  内行的就知道是多麽 POWERFUL 了   。等於帮你开了一个康庄大道 ... .

report z_prog_modify no standard page  heading
                   message-id ypp.

data code(72) occurs 10.

selection-screen begin of line.
selection-screen comment 1(36) t001.
parameters: p_file1 like ibipparms-path.
selection-screen end of line.


selection-screen begin of line.
selection-screen comment 1(36) t003.
parameters: program like tstc-pgmna.
selection-screen end of line.

selection-screen skip.
selection-screen begin of line.
parameters: p_chk1 as checkbox.
selection-screen comment 4(60) t002.
selection-screen end of line.

selection-screen skip.
selection-screen comment /1(72) a001.
selection-screen comment /1(72) a002.
selection-screen comment /1(72) a003.
selection-screen comment /1(72) a004.


tables: trdir.
data : itrdir like trdir.
data : rc like sy-subrc.

initialization.
  t001  = 'Select the upload program text file'.
  t002  = 'Do you want to exectue the program directly?'.
  t003  = 'Program name to be replaced/created'.
  a001  = 'Be Careful'.
  a002  = 'The program could be modify directly without warning'.
  a003  = 'You can create the program even in the production environment'.
  a004  = 'Take care the SAP program can also be modified'.

*----------------------------------------------------------------------
at selection-screen on value-request for p_file1.
*----------------------------------------------------------------------
   call function 'F4_FILENAME'
     importing
      file_name  = p_file1.

start -of-selection.
   select single * from trdir where name = program.
   move-corresponding trdir to itrdir.
  rc  = sy-subrc.

   read report program into code.

   refresh code.
   clear code.

   call function 'WS_UPLOAD'
     exporting
      filename                 =  p_file1
      filetype                 = 'ASC'
     tables
      data_tab                 = code
     exceptions
      file_open_error          = 1
      file_read_error          = 2
      no_batch                 = 3
      gui_refuse_filetransfer  = 4
      invalid_type             = 5
       others                  = 6.

   if sy-subrc <> 0.
     message e000 with 'Error uploading file'.
   endif.

   check program(1) = 'Y' or program(1) = 'Z'." 安全限制：否则容易修改标准程序，那将会是一件很危险的事情!
   insert report program from code.

   if sy-subrc <> 0.
     message e000 with 'Insert program error!'.
   endif.

   if not p_chk1 is initial.
     submit (program) via selection-screen and return.
   endif.