Transport Table content by program

[Former Member]

Hi all,

I have created a transaction for maintain table content - now i like to write the data to a transporttask - i can't find any existing functionality. Cany anyone help me?

Thanks in advance

Stefan

[amit_khare]

If you want to transport the table entries. Change Delivery Class to C and then re-enter all the value. This will attach them to transport. or take help from BASIS.

Regards,

Amit

Reward all helpful replies.

[Former Member]

Hi thanks,

but i don't use a sm30 maintainview - i wrote an own abap program for maintain the data - so it dosn't work.

Stefan

[Former Member]

Hi Stefan,

Use this program to transport the data from one system to another system

*&---------------------------------------------------------------------*
*& Report YMNDTCOPY *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

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.'.
*endif.

<b>Reward Points if this helps,</b>

Satish

[andreas_mann3]

try to use se16 (DD02l-MAINFLAG = X)

A.

[andreas_mann3]

use fm's:

TR_ORDER_CHOICE_CORRECTION

and

TR_APPEND_TO_COMM_OBJS_KEYS

example FORM TRANSPORT_MARKED_LINES

in FUNCTION-POOL /1BCDWB/DBT005 = SE16 -Program of T005

A.

[steffen_siegmund]

Hi Andreas,

is there an equivalent fm to 'TR_ORDER_CHOICE_CORRECTION' for webdynpro ABAP based applications?

Best regards,

Steffen

[Former Member]

Hi Stefan,

To transport table content by program, create a BDC of SE16

Goto SE16

Enter table name

Hit enter

Click EXECUTE

select the checkbox

click Table entries=> Transport entries

Pass the TR no.

Best regards,

Prashant

[matt]

Forget about programs, and BDC of SE16. There is a very simple way of transporting table contents.

If your table is called Z_MY_TABLE, create an object entry in a transport manually, of

R3TR TABU Z_MY_TABLE.

TABU is the object type used by the Change and Transport System, for "Table Contents". I use this method frequently.

You can specify at the key level either "*" for all records, or you can specify just the keys of the records you want.

matt