Change Original System

Question

Hello,
I know this can be done, but am having some trouble finding where...
First off, a little background, my company has two systems, one for domestic and one for international. There was a great deal of development done for the international system that the domestic side now wants for themselves as well.
I have transported all of those objects from the Development box of the international system to the Development box of the domestic system, but to complete the process, I now need to switch the original system on all of that development from the international development system to the domestic development system to avoid having to do a repair every time a change is required to this development in the domestic system.
Does anyone know where this is done?
Thank you.
Nick Lyons

Answer 1

I know that our company had to do this also.  But I was not involved in the project.  The only thing I could find was a program that changes the original system.
Here is the code.
REPORT YCHORIG .
TABLES: SSCRFIELDS, TADIR.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN COMMENT 5(72) AAA.
SELECTION-SCREEN COMMENT /5(72) BBB.
SELECTION-SCREEN COMMENT /5(72) CCC.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK BLOCK WITH FRAME.
SELECTION-SCREEN COMMENT /2(72) DDD.
SELECTION-SCREEN COMMENT /2(72) EEE.
SELECTION-SCREEN COMMENT /2(72) FFF.
SELECTION-SCREEN COMMENT /2(72) GGG.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: A LIKE E071-PGMID.
PARAMETERS: B LIKE E071-OBJECT.
PARAMETERS: C LIKE E071-OBJ_NAME.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN COMMENT /1(72) HHH.
SELECTION-SCREEN COMMENT /1(72) III.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN PUSHBUTTON 3(30) MMM USER-COMMAND DISP.
SELECTION-SCREEN PUSHBUTTON 36(8) JJJ USER-COMMAND PROC.
SELECTION-SCREEN PUSHBUTTON 47(8) KKK USER-COMMAND EXIT.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN COMMENT /1(72) LLL.
SELECTION-SCREEN END OF BLOCK BLOCK .
INITIALIZATION.
  AAA = 'This program changes the specifyed object''s original system.'.
  BBB = 'The new SID will be the login SID.'.
  CCC = 'USE THIS PROGRAM WITH EXTREME CARE!!!'.
  DDD = 'Name of R/3 ABAP/4 Development Workbench object'.
  EEE = '|      Object type'.
  FFF = '|      |      Object name'.
  GGG = '|      |      |'.
  HHH = 'Example:'.
  III = 'R3TR PROG ZLOAD'.
  JJJ = 'PROCEED'.
  KKK = 'EXIT'.
  MMM = 'DISPLAY RECENT ORIGINAL SYSTEM'.
  LLL = ' '.
AT SELECTION-SCREEN.
  IF SSCRFIELDS-UCOMM = 'EXIT'.
    SET SCREEN 0.LEAVE SCREEN.
  ELSEIF SSCRFIELDS-UCOMM = 'PROC'.
    CLEAR TADIR.
    SELECT SINGLE * FROM TADIR WHERE PGMID = A AND OBJECT = B AND
    OBJ_NAME = C.
    IF TADIR-PGMID IS INITIAL.
      LLL = 'THIS OBJECT DOES NOT EXIST'.
    ELSE.
      IF SY-SYSID <> TADIR-SRCSYSTEM.
        TADIR-SRCSYSTEM = SY-SYSID.
        MODIFY TADIR.
        COMMIT WORK.
        LLL = 'THE ORIGINAL SYSTEM CHANGED TO:'.
        LLL+31(3) = SY-SYSID.
      ELSE.
   LLL = 'NO CHANGE: THE ORIGINAL SYSTEM AND LOGIN SYSTEM ARE THE SAME'.
      ENDIF.
    ENDIF.
  ELSEIF SSCRFIELDS-UCOMM = 'DISP'.
    CLEAR TADIR.
    SELECT SINGLE * FROM TADIR WHERE PGMID = A AND OBJECT = B AND
    OBJ_NAME = C.
    IF TADIR-PGMID IS INITIAL.
      LLL = 'THIS OBJECT DOES NOT EXIST'.
    ELSE.
      LLL = 'THE RECENT ORIGINAL SYSTEM IS: '.
      LLL+31(3) = TADIR-SRCSYSTEM.
    ENDIF.
  ENDIF.
Regards,
Rich Heilman