03-04-2009 8:39 AM
Hi,
How can I backup all my ABAP program in my local PC?
Is there any existing code available to do this?
we are using ECC6.
thanks!
james
03-04-2009 8:40 AM
SEARCH in SCN you will find a program which is used to copy
all the programs of a package into your PC.
03-04-2009 8:41 AM
03-04-2009 8:41 AM
03-04-2009 8:43 AM
03-04-2009 8:44 AM
hi
you can create backup in following manners:
in SE38 utilities===> version==>generate version
in sap script utilities===>copy from client
smartforms utilities ===>download form
regards
rahul
03-04-2009 8:47 AM
hi,
you can do it by click on the "save to local disk" button which is apper just below the Reprort name
after you open the reprort.
hope this halp you
Regards
Ritesh J
03-04-2009 9:03 AM
03-04-2009 9:04 AM
03-04-2009 10:04 AM
Hi
total package at a time you can download to your PC for that.
search in SDN u wil find the code sure
03-04-2009 10:34 AM
>
> Hi,
>
> How can I backup all my ABAP program in my local PC?
> Is there any existing code available to do this?
> we are using ECC6.
>
> thanks!
> james
The following program code can be used to download all the program from a certain package.Using this program you can backup your ABAP programs.Hope you find your solution.
REPORT ZDOWN_PACKG
* Author: Pulak Mandal
***********************************************************************
* Table declaration *
***********************************************************************
TABLES: TADIR.
***********************************************************************
* Data declaration *
***********************************************************************
TYPES: ABAPLINE(255) TYPE C.
TYPES: BEGIN OF TY_REPOSIT,
PGMID TYPE TADIR-PGMID,
OBJECT TYPE TADIR-OBJECT,
OBJ_NAME TYPE TADIR-OBJ_NAME,
DEVCLASS TYPE TADIR-DEVCLASS,
END OF TY_REPOSIT.
DATA: IT_REPOSIT TYPE STANDARD TABLE OF TY_REPOSIT,
WA_REPOSIT TYPE TY_REPOSIT.
DATA: IT_REPSRC TYPE STANDARD TABLE OF ABAPLINE,
WA_REPSRC TYPE ABAPLINE.
DATA: PROG(60) TYPE C,
MC_FILENAME TYPE RLGRAP-FILENAME,
FILENAME TYPE STRING.
***********************************************************************
* Selection Screen *
***********************************************************************
PARAMETERS: P_DEV TYPE TADIR-DEVCLASS. "Package Name
*****Program Logic
SELECT PGMID
OBJECT
OBJ_NAME
DEVCLASS
FROM TADIR
INTO TABLE IT_REPOSIT
WHERE PGMID = 'R3TR' AND
OBJECT = 'PROG' AND
DEVCLASS = P_DEV.
IF SY-SUBRC NE 0.
MESSAGE 'No programs available in the given package' TYPE 'E'.
EXIT.
ENDIF.
* Get the program names and download to the given path
LOOP AT IT_REPOSIT INTO WA_REPOSIT.
PROG = WA_REPOSIT-OBJ_NAME.
clear it_repsrc.
READ REPORT PROG INTO IT_REPSRC.
CONCATENATE 'C:\Documents and Settings\Administrator\Desktop\My ABAP Programs\Report' PROG '.txt'
INTO MC_FILENAME.
FILENAME = MC_FILENAME.
*****Function module for download files into local system
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
FILENAME = FILENAME
TABLES
DATA_TAB = IT_REPSRC
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CLEAR PROG.
CLEAR WA_REPSRC.
ENDLOOP.
*****After download all the programs to intimate user.
MESSAGE 'Check your folder for the Programs downloaded' TYPE 'S'.
08-21-2015 6:30 AM
02-23-2023 1:59 PM
02-23-2023 3:12 PM
Seeing as this has already been bumped, the best thing to use is ZABAPGIT. from MIT Search for it.