批量备SAP中CBO ABAP 程序代码为TXT文件备份

 

很想把生产机上所有后续开发的CBO程序都备份下来。
以备急用！
用过2种方法：
1.写BDC程序，模拟 TCODE:SE38 -->Ｐrogram --> Utilities(M)-->More Utilities-->Upload/Download-->Download-->*.txt保存。
2.ABAP提供了读取的代码：read report it_table-obj_name into rep_table.直接通过程序名读取出程序代码，再保存为*.txt文件保存，这种专业，首选！
下面代码请参考！

 

REPORT z_cbo_abap_backup.

TABLES tadir.
DATA: BEGIN OF it_table OCCURS 0,
       obj_name LIKE tadir-obj_name,
     END OF it_table.
DATA rep_table TYPE STANDARD TABLE OF t_type WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 500.
DATA: file TYPE string,
      path TYPE string.

PARAMETER: obj_name LIKE tadir-obj_name DEFAULT 'Z*'.
SELECT-OPTIONS: object FOR tadir-object DEFAULT 'PROG',
                author FOR tadir-author,
                devclass FOR tadir-devclass.

START-OF-SELECTION.

  SELECT obj_name INTO TABLE it_table FROM tadir
                WHERE obj_name LIKE obj_name
                AND object IN object
                AND author IN author
                AND devclass IN devclass.

  path = 'D:\ABAP\'.
  CONDENSE path NO-GAPS.

  LOOP AT it_table.

   READ REPORT it_table-obj_name INTO rep_table.

    CLEAR file.
    CONCATENATE path it_table-obj_name '.TXT' INTO file.

    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename = file
        filetype = 'ASC'
      TABLES
        data_tab = rep_table.
  ENDLOOP.