Posted by [IP Address: 205.188.195.46] 'KeithS' on July 05, 2001 at 11:23:30 EST:
In Reply to: R/2 to R/3 Migration posted by [IP Address: 205.188.195.46] 'Vivek' on July 04, 2001 at 10:47:20 EST:
: Hi Viv,
What version of R3 are you migrating to?
See if your R3 system has table 'TUMRE'. If you do have it you can use the following ABAP to help you map your two systems:
REPORT ZR2R3.
*this abap will map R2 data fields to their corresponding R3 *field.
TABLES:
TUMRE.
DATA: BEGIN OF TAB OCCURS 20,
R2-TAB-FLD(17),
R3-TAB-FLD(17),
END OF TAB.
DATA: R2_TAB(5).
SELECTION-SCREEN BEGIN OF BLOCK SAP_R2 WITH FRAME TITLE TEXT-010.
PARAMETERS:
R2_TABLE(4) TYPE C,
R2_FIELD(10) TYPE C.
SELECTION-SCREEN END OF BLOCK SAP_R2.
SELECTION-SCREEN BEGIN OF BLOCK SAP_R3 WITH FRAME TITLE TEXT-020.
PARAMETERS:
R3_TABLE(4) TYPE C,
R3_FIELD(10) TYPE C.
SELECTION-SCREEN END OF BLOCK SAP_R3.
** this maps r2 fields to r3 fields. **
IF NOT R2_TABLE IS INITIAL.
MOVE R2_TABLE TO R2_TAB+0(4).
MOVE '%' TO R2_TAB+4.
IF NOT R2_FIELD IS INITIAL.
SELECT * FROM TUMRE WHERE R2TAB LIKE R2_TAB "map a single R2
AND R2FELD = R2_FIELD. "field
PERFORM BUILD_TAB.
ENDSELECT.
ELSE.
SELECT * FROM TUMRE WHERE R2TAB LIKE R2_TAB. "map all fields
PERFORM BUILD_TAB. "in the segment
ENDSELECT.
ENDIF.
** this maps r3 fields to r2 fields. **
ELSEIF NOT R3_TABLE IS INITIAL.
IF NOT R3_FIELD IS INITIAL.
SELECT * FROM TUMRE WHERE R3TAB = R3_TABLE "map a single r3
AND R3FELD = R3_FIELD. "field
PERFORM BUILD_TAB.
ENDSELECT.
ELSE.
SELECT * FROM TUMRE WHERE R3TAB = R3_TABLE. "map all fields
IF TUMRE-R2TAB NE SPACE. "in the table
PERFORM BUILD_TAB.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
SORT TAB BY R2-TAB-FLD R3-TAB-FLD(13).
LOOP AT TAB.
WRITE: / TUMRE-RELEAS,
' ',
TAB-R2-TAB-FLD,
' ',
'=',
' ',
TAB-R3-TAB-FLD INPUT ON. "input on for copied and paste
ENDLOOP.
TOP-OF-PAGE.
FORMAT COLOR COL_HEADING.
WRITE: 'R2-Release',
'R2-field',
' ',
'R3-field'.
SKIP 1.
FORMAT COLOR COL_NORMAL.
FORM BUILD_TAB.
TAB-R2-TAB-FLD+0(4) = TUMRE-R2TAB.
TAB-R2-TAB-FLD+4(1) = '-'.
TAB-R2-TAB-FLD+5 = TUMRE-R2FELD.
TAB-R3-TAB-FLD+0(4) = TUMRE-R3TAB.
TAB-R3-TAB-FLD+4(1) = '-'.
TAB-R3-TAB-FLD+5 = TUMRE-R3FELD.
COLLECT TAB.
ENDFORM.