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