批量备SAP中CBO ABAP 程序代码为TXT文件备份
2012-05-16 14:42
701 查看
很想把生产机上所有后续开发的CBO程序都备份下来。
以备急用!
用过2种方法:
1.写BDC程序,模拟 TCODE:SE38 -->Program --> 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.
以备急用!
用过2种方法:
1.写BDC程序,模拟 TCODE:SE38 -->Program --> 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.
相关文章推荐
- 批量备SAP中CBO ABAP 程序代码为TXT文件备份
- SAP ABAP编程 txt数据批量上传至内表
- ABAP--批量建立员工照片关联程序参考代码
- SAP ABAP读写Excel 与 TXT文件
- 在程序中压缩sql server2000的数据库备份文件的代码
- php 批量生成html,txt文件的实现代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- ABAP--批量建立员工照片关联程序参考代码
- windows下PHP批量生成打包android程序APK-渠道txt植入apk文件
- php 批量生成html,txt文件的实现代码
- ABAP--批量建立员工照片关联程序参考代码
- SAP abap程序里面权限控制代码
- 在程序中压缩sql server2000的数据库备份文件的代码
- ABAP--批量建立员工照片关联程序参考代码
- php 批量生成html,txt文件的方法(实例代码)
- 使用matlab批量的读取txt文件,并批量的删除文件中的空格 附:代码
- sql 读取本地txt文件批量插入数据库
- #ifdef电脑程序语句,我们可以用它区隔一些与特定头文件、程序库和其他文件版本有关的代码。
- 本文给出了一种方便实用的解决大文件的读取、存储等处理的方法,并结合相关程序代码对具体的实现过程进行了介绍