RE:SAVE_TEXT AND COMMIT_TEXT

[Former Member]

HAI ALL,

I UPLOADED DATA FROM FLAT FILE TO INTERNAL TABLE FOR MM01 AND THEN USING SAVE_TEXT AND COMMIT_TEXT I AM TRYING TO SAVE THE DATA BUT IT IS NOT GETTING SAVED.

I AM SENDING MY CODE PLEASE TRY TO GIVE SOME SUGGESTIONS

DATA:BEGIN OF TB_ITAB OCCURS 0,

FIELD LIKE TLINE-TDFORMAT,

FIELD1 LIKE TLINE-TDLINE,

END OF TB_ITAB.

DATA:I_ITAB LIKE STANDARD TABLE OF TLINE WITH HEADER LINE,

WA_LINE TYPE TLINE.

DATA:HEADER LIKE THEAD.

CALL FUNCTION 'UPLOAD'

EXPORTING

• CODEPAGE = ' '

FILENAME = 'C:\Documents and Settings\grptrainee1\Desktop\NEW.TXT'

FILETYPE = 'DAT'

• ITEM = ' '

• FILEMASK_MASK = ' '

• FILEMASK_TEXT = ' '

• FILETYPE_NO_CHANGE = ' '

• FILEMASK_ALL = ' '

• FILETYPE_NO_SHOW = ' '

• LINE_EXIT = ' '

• USER_FORM = ' '

• USER_PROG = ' '

• SILENT = 'S'

• IMPORTING

• FILESIZE =

• CANCEL =

• ACT_FILENAME =

• ACT_FILETYPE =

TABLES

DATA_TAB = I_ITAB

• EXCEPTIONS

• CONVERSION_ERROR = 1

• INVALID_TABLE_WIDTH = 2

• INVALID_TYPE = 3

• NO_BATCH = 4

• UNKNOWN_ERROR = 5

• GUI_REFUSE_FILETRANSFER = 6

• OTHERS = 7

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT I_ITAB.

MOVE: I_ITAB-TDFORMAT TO TB_ITAB-FIELD,

I_ITAB-TDLINE TO TB_ITAB-FIELD1.

APPEND TB_ITAB.

ENDLOOP.

HEADER-TDOBJECT = 'MATERIAL'.

HEADER-TDNAME = '0000000000000516'.

HEADER-TDID = 'BEST'.

HEADER-TDSPRAS = 'EN'.

CALL FUNCTION 'SAVE_TEXT'

EXPORTING

CLIENT = SY-MANDT

HEADER = HEADER

• INSERT = 'X'

SAVEMODE_DIRECT = 'X'

• OWNER_SPECIFIED = 'X'

• LOCAL_CAT = 'X'

• IMPORTING

• FUNCTION =

• NEWHEADER = HEADER1

TABLES

LINES = TB_ITAB

• EXCEPTIONS

• ID = 1

• LANGUAGE = 2

• NAME = 3

• OBJECT = 4

• OTHERS = 5

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*

*

.

CALL FUNCTION 'COMMIT_TEXT'

EXPORTING

OBJECT = 'MATERIAL'

NAME = '0000000000000516'

ID = 'BEST'

LANGUAGE = SY-LANGU

SAVEMODE_DIRECT = 'X'

KEEP = 'X'

• LOCAL_CAT = ' '

IMPORTING

COMMIT_COUNT = SY-INDEX

• TABLES

• T_OBJECT =

• T_NAME =

• T_ID =

• T_LANGUAGE =

.

.

LOOP AT I_ITAB.

WRITE:/ I_ITAB-TDFORMAT,

I_ITAB-TDLINE.

ENDLOOP.

LOOP AT TB_ITAB.

WRITE:/ TB_ITAB-FIELD,

TB_ITAB-FIELD1.

ENDLOOP.

[premal_mistry2]

Please mark your code with

CODE

segment . We are not able to understand the code.

Regards,

Premal

Edited by: Premal Mistry on Jul 9, 2009 6:03 PM

[Former Member]

DATA:BEGIN OF TB_ITAB OCCURS 0,

FIELD LIKE TLINE-TDFORMAT,

FIELD1 LIKE TLINE-TDLINE,

END OF TB_ITAB.

DATA:I_ITAB LIKE STANDARD TABLE OF TLINE WITH HEADER LINE,

WA_LINE TYPE TLINE.

DATA:HEADER LIKE THEAD.

CALL FUNCTION 'UPLOAD'

EXPORTING

• CODEPAGE = ' '*

FILENAME = 'C:\Documents and Settings\grptrainee1\Desktop\NEW.TXT'

FILETYPE = 'DAT'

• ITEM = ' '*

• FILEMASK_MASK = ' '*

• FILEMASK_TEXT = ' '*

• FILETYPE_NO_CHANGE = ' '*

• FILEMASK_ALL = ' '*

• FILETYPE_NO_SHOW = ' '*

• LINE_EXIT = ' '*

• USER_FORM = ' '*

• USER_PROG = ' '*

• SILENT = 'S'*

• IMPORTING*

• FILESIZE =*

• CANCEL =*

• ACT_FILENAME =*

• ACT_FILETYPE =*

TABLES

DATA_TAB = I_ITAB

• EXCEPTIONS*

• CONVERSION_ERROR = 1*

• INVALID_TABLE_WIDTH = 2*

• INVALID_TYPE = 3*

• NO_BATCH = 4*

• UNKNOWN_ERROR = 5*

• GUI_REFUSE_FILETRANSFER = 6*

• OTHERS = 7*

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.*

ENDIF.

LOOP AT I_ITAB.

MOVE: I_ITAB-TDFORMAT TO TB_ITAB-FIELD,

I_ITAB-TDLINE TO TB_ITAB-FIELD1.

APPEND TB_ITAB.

ENDLOOP.

HEADER-TDOBJECT = 'MATERIAL'.

HEADER-TDNAME = '0000000000000516'.

HEADER-TDID = 'BEST'.

HEADER-TDSPRAS = 'EN'.

CALL FUNCTION 'SAVE_TEXT'

EXPORTING

CLIENT = SY-MANDT

HEADER = HEADER

INSERT = ' '

SAVEMODE_DIRECT = 'X'

• OWNER_SPECIFIED = 'X'*

• LOCAL_CAT = 'X'*

IMPORTING

• FUNCTION = ' '*

NEWHEADER = HEADER

TABLES

LINES = TB_ITAB

• EXCEPTIONS*

• ID = 1*

• LANGUAGE = 2*

• NAME = 3*

• OBJECT = 4*

• OTHERS = 5*

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.*

ENDIF.

***

***

.

CALL FUNCTION 'COMMIT_TEXT'

EXPORTING

OBJECT = 'MATERIAL'

NAME = '0000000000000516'

ID = 'BEST'

LANGUAGE = SY-LANGU

SAVEMODE_DIRECT = 'X'

KEEP = 'X'

• LOCAL_CAT = ' '*

IMPORTING

COMMIT_COUNT = SY-TABIX

• TABLES*

• T_OBJECT =*

• T_NAME =*

• T_ID =*

• T_LANGUAGE =*

.

.

LOOP AT I_ITAB.

WRITE:/ I_ITAB-TDFORMAT,

I_ITAB-TDLINE.

ENDLOOP.

LOOP AT TB_ITAB.

WRITE:/ TB_ITAB-FIELD,

TB_ITAB-FIELD1.

ENDLOOP.

[Former Member]

Hey kpsgoutam,

please do me a favor and have a look at your thread.

have a look at your two posts, and the sincereley tell me if you want to read such unformated stuff.

i would bet a years earnings you come to the conclusion: "NO".