backup own abap progs
REPORT ZBAK_UP . TABLES : TADIR,TRDIRT.DATA: BEGIN OF ITAB OCCURS 100, TEXT(75), END OF ITAB.
DATA: BEGIN OF REPNAME OCCURS 10, OBJ_NAME LIKE TADIR-OBJ_NAME, END OF REPNAME. PARAMETERS : DEVCLASS LIKE TADIR-DEVCLASS, DIRNAME(50) DEFAULT 'C:\'. SELECT * FROM TADIR INTO CORRESPONDING FIELDS OF TABLE REPNAME WHERE OBJECT = 'PROG' AND DEVCLASS = DEVCLASS. DATA NAME LIKE RLGRAP-FILENAME. LOOP AT REPNAME. READ REPORT REPNAME-OBJ_NAME INTO ITAB.
****Get report title SELECT SINGLE * FROM TRDIRT WHERE NAME EQ REPNAME-OBJ_NAME AND SPRSL = 'E'. CONCATENATE '*' TRDIRT-TEXT INTO TRDIRT-TEXT. INSERT TRDIRT-TEXT INTO ITAB INDEX 1.
CONCATENATE DIRNAME '\' REPNAME-OBJ_NAME '.txt' INTO NAME. *exit. CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING FILENAME = NAME TABLES DATA_TAB = ITAB EXCEPTIONS FILE_OPEN_ERROR = 1 FILE_WRITE_ERROR = 2 INVALID_FILESIZE = 3 INVALID_TABLE_WIDTH = 4 INVALID_TYPE = 5 NO_BATCH = 6 UNKNOWN_ERROR = 7 GUI_REFUSE_FILETRANSFER = 8 OTHERS = 9.
ENDLOOP.
MESSAGE I002(SY) WITH 'All the reports transfered Succefully'.
http://www.sap.com/community/int/forums/ShowPost.aspx?PostID=63871&SearchText=download%20program
posted by Dali @ 4:29 PM
<< Home