topic RE:SAVE_TEXT AND COMMIT_TEXT in Application Development and Automation Discussions

RE:SAVE_TEXT AND COMMIT_TEXT

Former Member — Thu, 09 Jul 2009 12:29:31 GMT

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.

Re: RE:SAVE_TEXT AND COMMIT_TEXT

premal_mistry2 — Thu, 09 Jul 2009 12:33:31 GMT

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

Re: RE:SAVE_TEXT AND COMMIT_TEXT

Former Member — Thu, 09 Jul 2009 13:20:27 GMT

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.

Re: RE:SAVE_TEXT AND COMMIT_TEXT

Former Member — Thu, 09 Jul 2009 13:24:16 GMT

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".