批量備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.