Backup ABAP Programs

Question

Hi Everyone,
I need your help.
I am working on a tool that can backup the ABAP source codes and tables.
I am using the READ REPORT to get the source code and store the result in a text file,
my question is, if I want to give this tool to a client , what kind of authorization a user need to be able
to run the tool and backup all the ABAP programs of the SAP system ?
Can any ABAP developer use the "READ REPORT" and read the source code written by
other ABAP developer ?
Thanks

Answer 1

REPORT zdownload.
TABLES: trdir.
SELECT-OPTIONS name FOR trdir-name NO INTERVALS.
PARAMETERS: path TYPE c LENGTH 50 DEFAULT 'C:\USERS\SCHWAB\PROGRAMS'.
START-OF-SELECTION.
  LOOP AT name.
    PERFORM download_program USING name-low.
  ENDLOOP.
FORM download_program
FORM download_program USING value(i_name) LIKE trdir-name.
  DATA: BEGIN OF lt_data_tab OCCURS 0,
         line(72),
        END OF lt_data_tab,
        l_filename TYPE string.
  CONCATENATE path '\' i_name '.TXT' INTO l_filename.
  READ REPORT i_name INTO lt_data_tab.
  IF lines( lt_data_tab ) = 0.
    MESSAGE e001(uc) WITH TEXT-TK0.
  ENDIF.
  CALL METHOD cl_gui_frontend_services=>gui_download
    EXPORTING
      filename = l_filename
    CHANGING
      data_tab = lt_data_tab[]
    EXCEPTIONS
      OTHERS   = 0.
  IF sy-subrc <> 0.
    MESSAGE e001(uc) WITH TEXT-K01.
  ENDIF.
ENDFORM.                    "download_program
AT SELECTION-SCREEN ON name.
  check name-low <> space.
  SELECT SINGLE * FROM trdir WHERE name = name-low.
  IF sy-subrc <> 0.
    MESSAGE e001(uc) WITH TEXT-K02.
  ENDIF.