Problem in SAVE_TEXT usage

Question

I am facing problem in displaying the Long text in Open Maintenance orders IW31 Sscreen.
i am uploading the long text using SAVE_TEXT function module.
i can see the data in STXL table but i am not able to see the data on the transaction screen display or change mode.
I am using correct object name ,id and etc..in header table objectid: AUFK, TEXTID: AVOT ,tdname:clintidroutingnumber(afvc table aufpl field sequence(like 0001.. ), language: EN.
Text line also i am passing and i am enering the direct saving mpde.
i am getting sy-subrc eq = 0.
and i am able to get the data by READ_TEXT table.
my problem is why the Long text data is not diaplying on the scrreen(TEXT editor).
same thing happening in COmponents LONG TEXT in the same TCODE
Please Help me.

Answer 1

Hi Srinivas,
I've been facing similar problem.I followed the procedure that you've mentioned , but still couldn't display the long text on the transaction IW32.I've attaching the code as well.
*&  Include           ZXWO1U05
DATA:text_object_name LIKE stxh-tdname.
DATA: BEGIN OF ltxt_lines OCCURS 0.
        INCLUDE STRUCTURE tline.
DATA: END   OF ltxt_lines.
DATA:p_object LIKE   thead-tdobject VALUE 'AUFK',
     p_name LIKE   thead-tdname,
     p_language LIKE   thead-tdspras VALUE 'E',
     p_type LIKE   thead-tdid VALUE 'KOPF',
     p_header LIKE   thead .
TYPES: BEGIN OF lt_edit_line,
         line LIKE rssource-line,                           "c(72)
       END OF lt_edit_line.
DATA lt_edit_table TYPE TABLE OF lt_edit_line.
DATA:ls_efindpar TYPE efindpar.
DATA:t_trace TYPE TABLE OF ewffndtrac,
     t_result TYPE TABLE OF efindres.
TYPES:BEGIN OF ty_eablg,
      ablbelnr TYPE ablbelnr,
      anlage   TYPE anlage,
      ablesgr      TYPE ablesgr,
      ableinh  TYPE ableinh,
      adatsoll TYPE adatsoll,
      END OF ty_eablg.
DATA:t_eablg  TYPE TABLE OF ty_eablg,
     ls_edit_table TYPE c LENGTH 132.
FIELD-SYMBOLS:<fs_eablg> TYPE ty_eablg,
              <fs_trace> TYPE ewffndtrac.
CONSTANTS:lc_instln TYPE efindres-objtype VALUE 'INSTLN'.
CONSTANTS:lc_period TYPE ablesgr VALUE '01',
          lc_moveout TYPE ablesgr VALUE '03',
          lc_movein TYPE ablesgr VALUE '06'.
CALL FUNCTION 'CO_ZK_TEXTKEY_CAUFV'  "Gets me the thead-tdname
  EXPORTING
    aufnr = caufvd_imp-aufnr
  IMPORTING
    ltsch = text_object_name.
p_name = text_object_name.
CALL FUNCTION 'READ_TEXT'
  EXPORTING
    language        = p_language
    id              = p_type
    name            = p_name
    object          = p_object
  IMPORTING
    header          = p_header
  TABLES
    lines           = ltxt_lines
  EXCEPTIONS
    id              = 01
    language        = 02
    name            = 03
    not_found       = 04
    object          = 05
    reference_check = 06.
IF sy-subrc IS INITIAL.
  REFRESH lt_edit_table.
ENDIF.
ls_efindpar-l_devloc = caufvd_imp-tplnr.
*get the installation
CALL FUNCTION 'ISU_FINDER'
  EXPORTING
    x_objtype                   = lc_instln
    x_findpar                   = ls_efindpar
  TABLES
    yt_result                   = t_result
    yt_trace                    = t_trace
  EXCEPTIONS
    insufficient_selection      = 1
    objtype_not_supported       = 2
    additional_selection_needed = 3
    OTHERS                      = 4.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*get the 13 meter reads.
DATA:lv_calc_date TYPE bkpf-bldat,
     lv_tabix     TYPE sy-tabix,
     lv_text(100) TYPE c.
CONSTANTS:lc_read TYPE bseg-dtws2 VALUE '13'.
CALL FUNCTION '/SAPHT/DRM_CALC_DATE'
  EXPORTING
    date      = sy-datum
    days      = '00'
    months    = lc_read
    sign      = '-'
    years     = '00'
  IMPORTING
    calc_date = lv_calc_date.
READ TABLE t_trace ASSIGNING <fs_trace> WITH KEY objtype = lc_instln.
IF sy-subrc = 0.
  SELECT ablbelnr anlage ablesgr ableinh adatsoll
  FROM eablg
  INTO TABLE t_eablg
  WHERE anlage = <fs_trace>-objkey
  AND adatsoll BETWEEN lv_calc_date AND sy-datum
  AND ( ablesgr = lc_period OR ablesgr = lc_moveout OR ablesgr = lc_movein ).
  IF sy-subrc = 0.
    LOOP AT t_eablg ASSIGNING <fs_eablg>.
      AT FIRST .
        CONCATENATE ls_edit_table 'MR unit         ' INTO ls_edit_table SEPARATED BY space.
        CONCATENATE ls_edit_table 'Installation    ' INTO ls_edit_table SEPARATED BY space.
        CONCATENATE ls_edit_table 'MRU reason      ' INTO ls_edit_table SEPARATED BY space.
        CONCATENATE ls_edit_table 'Scheduled MR Dt ' INTO ls_edit_table SEPARATED BY space.
        APPEND ls_edit_table TO lt_edit_table.
      ENDAT.
      CLEAR: ls_edit_table.
      CLEAR lv_text.
      lv_text = <fs_eablg>-adatsoll.
      CONCATENATE lv_text '                 ' ls_edit_table INTO ls_edit_table SEPARATED BY space.
      CLEAR lv_text.
      lv_text = <fs_eablg>-ablbelnr.
      CONCATENATE lv_text '                 ' ls_edit_table INTO ls_edit_table SEPARATED BY space.
      CLEAR lv_text.
      lv_text = <fs_eablg>-anlage.
      CONCATENATE lv_text '                 ' ls_edit_table INTO ls_edit_table SEPARATED BY space.
      CLEAR lv_text.
      lv_text = <fs_eablg>-ableinh.
      CONCATENATE lv_text '                 ' ls_edit_table INTO ls_edit_table SEPARATED BY space.
      APPEND ls_edit_table TO lt_edit_table.
      CLEAR: ls_edit_table,lv_text.
    ENDLOOP.
  ENDIF.
ENDIF.
TYPES:BEGIN OF ty_elev,
      anlage TYPE anlage,
      vstelle TYPE vstelle,
      vbsart TYPE vbsart,
      eigent TYPE e_gpartner,
      END OF ty_elev.
DATA:t_elev TYPE TABLE OF ty_elev.
FIELD-SYMBOLS:<fs_elev> TYPE ty_elev.
IF t_eablg IS NOT INITIAL.
  SELECT elanlage evvstelle evvbsart  eveigent
  FROM eanl AS el
  INNER JOIN evbs AS ev
  ON elvstelle = evvstelle
  INTO TABLE t_elev
  FOR ALL ENTRIES IN t_eablg
  WHERE el~anlage = t_eablg-anlage.
ENDIF.
LOOP AT t_elev ASSIGNING <fs_elev>.
  AT FIRST.
    ls_edit_table = 'Premise'.
    CONCATENATE ls_edit_table 'Premise Type' 'Owner Allc' INTO ls_edit_table SEPARATED BY space.
    APPEND ls_edit_table TO lt_edit_table.
    CLEAR ls_edit_table.
  ENDAT.
  ls_edit_table = <fs_elev>-eigent.
  CONCATENATE ls_edit_table <fs_elev>-vbsart <fs_elev>-vstelle INTO ls_edit_table SEPARATED BY space.
  APPEND ls_edit_table TO lt_edit_table.
  CLEAR ls_edit_table.
ENDLOOP.
LOOP AT lt_edit_table INTO ltxt_lines-tdline.
  ltxt_lines-tdformat = '*'.
  APPEND ltxt_lines.
ENDLOOP.
if p_header is not initial.
CALL FUNCTION 'SAVE_TEXT'
  EXPORTING
  CLIENT                = SY-MANDT
    header                = p_header
  INSERT                = 'X'
   SAVEMODE_DIRECT       = 'X'
  OWNER_SPECIFIED       = ' '
  LOCAL_CAT             = ' '
IMPORTING
  FUNCTION              =
  NEWHEADER             =
  tables
    lines                 = ltxt_lines
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.
else.
UPDATE AUFk SET ltext = 'X' where aufnr = caufvd_imp-aufnr .
ENDIF.
else.
   p_header-tdobject = p_object.
  p_header-tdname   = p_name.
  p_header-tdspras  = p_language.
  p_header-tdid     = p_type.
  p_header-TDFUSER  = sy-uname.
  p_header-TDFRELES = '701'.
  p_header-TDFDATE  = sy-datum.
  p_header-TDFTIME  = sy-uzeit.
CALL FUNCTION 'SAVE_TEXT'
  EXPORTING
  CLIENT                = SY-MANDT
    header                = p_header
   INSERT                = 'X'
   SAVEMODE_DIRECT       = 'X'
  OWNER_SPECIFIED       = ' '
  LOCAL_CAT             = ' '
IMPORTING
  FUNCTION              =
  NEWHEADER             =
  tables
    lines                 = ltxt_lines
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.
else.
UPDATE AUFk SET ltext = 'X' where aufnr = caufvd_imp-aufnr .
endif.
endif.
CALL FUNCTION 'COMMIT_TEXT'
EXPORTING
   OBJECT                = p_object
   NAME                  = p_name
   ID                    = p_type
   LANGUAGE              = 'E'
   SAVEMODE_DIRECT       = 'X'
  KEEP                  = ' '
  LOCAL_CAT             = ' '
IMPORTING
  COMMIT_COUNT          =
TABLES
  T_OBJECT              =
  T_NAME                =
  T_ID                  =
  T_LANGUAGE            =
Kindly request you to provide a suitable solution at your earliest convenience.
Thanks,
Chakram Govindarajan