很想把生產(chǎn)機(jī)上所有后續(xù)開發(fā)的CBO程序都備份下來。
以備急用！
用過2種方法：
1.寫B(tài)DC程序，模擬 TCODE:SE38 -->Ｐrogram --> Utilities(M)-->More Utilities-->Upload/Download-->Download-->*.txt保存。
2.ABAP提供了讀取的代碼：read report it_table-obj_name into rep_table.直接通過程序名讀取出程序代碼，再保存為*.txt文件保存，這種專業(yè)，首選！
下面代碼請參考！

?

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.

總結(jié)

以上是生活随笔為你收集整理的批量备SAP中CBO ABAP 程序代码为TXT文件备份的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。