Update sales text in MM02

Question

Hi Experts,
We are trying to upload sales text in MM02 transaction, which does not have screen field. Please advise whether I can use SAVE_TEXT or BAPI to change material. Sample code will be very much helpful.
Thanks in advance.

Answer 1

Hi
You have to use the CREATE_TEXT fun module and to pass the paramters OBJECT,ID, OBJECTNAME and LANGUAGE correctly after declaring them correctly
see the sample code for long text creation
REPORT zmm_longtext
       NO STANDARD PAGE HEADING
       LINE-SIZE 255.
Internal Table for Upload of Long Texts Data
DATA: BEGIN OF itab1 OCCURS 0,
        matnr    LIKE mara-matnr,    " Material
        text1    LIKE tline-tdline,  " Long Text
        text2    LIKE tline-tdline,  " Long Text
        text3    LIKE tline-tdline,  " Long Text
        text4    LIKE tline-tdline,  " Long Text
        text5    LIKE tline-tdline,  " Long Text
        text6    LIKE tline-tdline,  " Long Text
        text7    LIKE tline-tdline,  " Long Text
        text8    LIKE tline-tdline,  " Long Text
        text9    LIKE tline-tdline,  " Long Text
        text10   LIKE tline-tdline,  " Long Text
        text11   LIKE tline-tdline,  " Long Text
        text12   LIKE tline-tdline,  " Long Text
        text13   LIKE tline-tdline,  " Long Text
        text14   LIKE tline-tdline,  " Long Text
        text15   LIKE tline-tdline,  " Long Text
        text16   LIKE tline-tdline,  " Long Text
        text17   LIKE tline-tdline,  " Long Text
        text18   LIKE tline-tdline,  " Long Text
        text19   LIKE tline-tdline,  " Long Text
        text20   LIKE tline-tdline,  " Long Text
        text21   LIKE tline-tdline,  " Long Text
        text22   LIKE tline-tdline,  " Long Text
        text23   LIKE tline-tdline,  " Long Text
        text24   LIKE tline-tdline,  " Long Text
        text25   LIKE tline-tdline,  " Long Text
      END OF itab1.
Internal Table for Upload of Long Texts Data
DATA: BEGIN OF itab OCCURS 0,
        matnr LIKE mara-matnr,    " Material
        text  LIKE tline-tdline,  " Long Text
      END OF itab.
To create Long Text lines for CREATE_TEXT function module
DATA:BEGIN OF dt_lines OCCURS 0.
        INCLUDE STRUCTURE tline.   " Long Text
DATA:END OF dt_lines.
Variable declarations for CREATE_TEXT function module
DATA : dl_name TYPE thead-tdname,   " Object Name
       dl_lan TYPE thead-tdspras,   " Language
       gv_matnr TYPE matnr.
Constants
CONSTANTS:
Object ID for Long Text of Material Basic Data 1
  c_best     TYPE thead-tdid VALUE 'GRUN',
  c_material TYPE thead-tdobject VALUE 'MATERIAL'. " Object
Parameters
PARAMETERS p_file LIKE rlgrap-filename.
At selection-screen on Value Request for file Name
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
Get the F4 Values for the File
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name  = syst-cprog
      dynpro_number = syst-dynnr
    IMPORTING
      file_name     = p_file.
Start Of Selection
START-OF-SELECTION.
*To Upload Flat file
  CALL FUNCTION 'UPLOAD'
    EXPORTING
      filename                = p_file
      filetype                = 'DAT'
    TABLES
      data_tab                = itab1
    EXCEPTIONS
      conversion_error        = 1
      invalid_table_width     = 2
      invalid_type            = 3
      no_batch                = 4
      unknown_error           = 5
      gui_refuse_filetransfer = 6
      OTHERS                  = 7.
  SORT itab1 BY matnr.
  LOOP AT itab1.
    CLEAR gv_matnr.
    SELECT SINGLE matnr INTO gv_matnr
       FROM mara WHERE bismt = itab1-matnr.
    IF itab1-text25 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text25.
      APPEND itab.
    ENDIF.
    IF itab1-text24 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text24.
      APPEND itab.
    ENDIF.
    IF itab1-text23 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text23.
      APPEND itab.
    ENDIF.
    IF itab1-text22 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text22.
      APPEND itab.
    ENDIF.
    IF itab1-text21 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text21.
      APPEND itab.
    ENDIF.
    IF itab1-text20 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text20.
      APPEND itab.
    ENDIF.
    IF itab1-text19 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text19.
      APPEND itab.
    ENDIF.
    IF itab1-text18 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text18.
      APPEND itab.
    ENDIF.
    IF itab1-text17 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text17.
      APPEND itab.
    ENDIF.
    IF itab1-text16 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text16.
      APPEND itab.
    ENDIF.
    IF itab1-text15 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text15.
      APPEND itab.
    ENDIF.
    IF itab1-text14 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text14.
      APPEND itab.
    ENDIF.
    IF itab1-text13 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text13.
      APPEND itab.
    ENDIF.
    IF itab1-text12 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text12.
      APPEND itab.
    ENDIF.
    IF itab1-text11 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text11.
      APPEND itab.
    ENDIF.
    IF itab1-text10 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text10.
      APPEND itab.
    ENDIF.
    IF itab1-text9 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text9.
      APPEND itab.
    ENDIF.
    IF itab1-text8 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text8.
      APPEND itab.
    ENDIF.
    IF itab1-text7 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text7.
      APPEND itab.
    ENDIF.
    IF itab1-text6 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text6.
      APPEND itab.
    ENDIF.
    IF itab1-text5 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text5.
      APPEND itab.
    ENDIF.
    IF itab1-text4 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text4.
      APPEND itab.
    ENDIF.
    IF itab1-text3 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text3.
      APPEND itab.
    ENDIF.
       IF itab1-text2 NE ' '.
    itab-matnr = gv_matnr.
    itab-text  = itab1-text2.
    APPEND itab.
       ENDIF.
    IF itab1-text1 NE ' '.
      itab-matnr = gv_matnr.
      itab-text  = itab1-text1.
      APPEND itab.
    ENDIF.
    CLEAR itab.
  ENDLOOP.
  DELETE itab WHERE matnr EQ ' '.
Upload the Texts
  SORT itab BY matnr.
  LOOP AT itab.
    dt_lines-tdformat = 'ST'.
    dt_lines-tdline = itab-text.
    APPEND dt_lines.
    dl_lan = sy-langu.
    dl_name = itab-matnr.
Call the Function Module to Create Text
    CALL FUNCTION 'CREATE_TEXT'
      EXPORTING
        fid         = c_best
        flanguage   = dl_lan
        fname       = dl_name
        fobject     = c_material
        save_direct = 'X'
        fformat     = '*'
      TABLES
        flines      = dt_lines
      EXCEPTIONS
        no_init     = 1
        no_save     = 2
        OTHERS      = 3.
    IF sy-subrc <> 0.
      WRITE:/ 'Long Text Creation failed for Material'(001),
             itab-matnr.
    ELSE.
      WRITE:/ 'Long Text Created Successfully for Material'(002),
             itab-matnr.
    ENDIF.
    AT END OF matnr.
      REFRESH dt_lines.
    ENDAT.
  ENDLOOP.
<b>Reward points for useful Answers</b>
Regards
Anji