Upload / Download Tables.

Question

Hi All,
I have a requirement in which I am suppose to use some tables in one system (For Ex : A) to make some reports and other operations like BDC etc., in another system (For Ex : B).
Both system A and B are not related or can be connected to each other since they belong to different projects altogether.
My question is : Is there a way by programming or by using a tool I can download these dictionary tables from system 'A' and later upload it to system 'B'.
Thanks in advance for the help.
DJ.

Answer 1

Hi Dipesh,
Copy this Program and execute:
<b>This has 3 paramenter  :  Table Name to transfer:
                                      From Client:
                                      To Client:</b>
REPORT YMNDTCOPY MESSAGE-ID US NO STANDARD PAGE HEADING.
PARAMETERS: TABLE    LIKE DD02L-TABNAME,
            MANDT_FM LIKE T000-MANDT DEFAULT '207',
            MANDT_TO LIKE T000-MANDT DEFAULT SY-MANDT.
TABLES:  DD02L, T000.
DATA: LINES LIKE SY-DBCNT VALUE 0.
DATA: ICURSOR TYPE CURSOR.
DATA: ICURSOR1 TYPE CURSOR.
DATA: BEGIN OF TMP OCCURS 1000,
        MANDT LIKE T000-MANDT,
        REST(8189) TYPE C,
      END OF TMP.
DATA: BEGIN OF TMP1 OCCURS 1000,
        MANDT LIKE T000-MANDT,
        REST(8189) TYPE C,
      END OF TMP1.
data : ws_flag, ws_ans.
*OPEN CURSOR WITH HOLD ICURSOR1 FOR
SELECT * FROM (TABLE) CLIENT SPECIFIED WHERE MANDT = MANDT_to.
*do.
FETCH NEXT CURSOR ICURSOR1 INTO TABLE TMP1 PACKAGE SIZE 1000.
IF SY-SUBRC = 0.
   ws_flag = 'X'.
   CLOSE CURSOR ICURSOR1.
   EXIT.
ENDIF.
*enddo.
*if ws_flag = 'X'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
   EXPORTING
  TITLEBAR                    = ' '
  DIAGNOSE_OBJECT             = ' '
     TEXT_QUESTION               = text-001
  TEXT_BUTTON_1               = 'Ja'(001)
  ICON_BUTTON_1               = ' '
  TEXT_BUTTON_2               = 'Nein'(002)
  ICON_BUTTON_2               = ' '
  DEFAULT_BUTTON              = '1'
  DISPLAY_CANCEL_BUTTON       = 'X'
  USERDEFINED_F1_HELP         = ' '
  START_COLUMN                = 25
  START_ROW                   = 6
  POPUP_TYPE                  =
  IV_QUICKINFO_BUTTON_1       = ' '
  IV_QUICKINFO_BUTTON_2       = ' '
  IMPORTING
    ANSWER                      = ws_ans
TABLES
  PARAMETER                   =
EXCEPTIONS
  TEXT_NOT_FOUND              = 1
  OTHERS                      = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*endif.
*if ws_ans = '1'.
  DELETE FROM (TABLE) CLIENT SPECIFIED WHERE MANDT = MANDT_TO.
  COMMIT WORK.
  OPEN CURSOR WITH HOLD ICURSOR FOR
    SELECT * FROM (TABLE) CLIENT SPECIFIED WHERE MANDT = MANDT_FM.
  DO.
    FETCH NEXT CURSOR ICURSOR INTO TABLE TMP PACKAGE SIZE 1000.
    IF SY-SUBRC <> 0.
      CLOSE CURSOR ICURSOR.
      EXIT.
    ENDIF.
    LOOP AT TMP.
      TMP-MANDT = MANDT_TO.
      MODIFY TMP.
      LINES = LINES + 1.
    ENDLOOP.
    INSERT (TABLE) CLIENT SPECIFIED FROM TABLE TMP.
    CALL FUNCTION 'DB_COMMIT'.
  ENDDO.
  WRITE: / 'for table', TABLE, LINES, 'lines are copied.'.
Reward points if this Helps.
Manish