Skip to Content
0
Former Member
Jan 13, 2009 at 08:14 AM

Upload of PO Text in MM02

56 Views

Hi,

I want to upload PO texts in MM02 for differnt plants.I wrote the following code but it's not working .

Please help.

data: begin of record occurs 0,

MATNR_001 TYPE THEAD-TDNAME,

MAKTX_004(040),

end of record.

DATA : TLINES TYPE TABLE OF TLINE WITH HEADER LINE.

LOOP AT RECORD.

TLINES-TDFORMAT = '*'.

TLINES-TDLINE = RECORD-MAKTX_004.

APPEND TLINES.

CLEAR TLINES.

CALL FUNCTION 'CREATE_TEXT'

EXPORTING

FID = 'BEST'

FLANGUAGE = SY-LANGU

FNAME = RECORD-MATNR_001

FOBJECT = 'MATERIAL'

  • SAVE_DIRECT = 'X'

  • FFORMAT = '*'

TABLES

FLINES = TLINES

  • EXCEPTIONS

  • NO_INIT = 1

  • NO_SAVE = 2

  • OTHERS = 3

.

IF SY-SUBRC <> 0.

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

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

ENDIF.

ENDLOOP.

How to make it work for different plants?

Thanks

K Srinivas