Uzun metin kaydetme.
FORM f_save_long_texts .
 DATA : lv_tdobject LIKE thead-tdobject ,         lv_tdid    LIKE thead-tdid .
 DATA : ls_header LIKE thead                       ,         lv_tdname LIKE thead-tdname                 ,         lv_function                                 ,         lt_lines TYPE TABLE OF tline WITH HEADER LINE,         lt_lines_tmp TYPE TABLE OF tline WITH HEADER LINE,         lv_commit_count LIKE sy-index              .
 lv_tdid    = '0001'  .  lv_tdobject = 'ZNPNOT' .
*--------------------------------------------------------------------* *save  LOOP AT gt_longt .
   CONCATENATE gt_longt-talepno gt_longt-posnr                gt_longt-svktar           INTO lv_tdname .
   CALL FUNCTION 'INIT_TEXT'      EXPORTING        id      = lv_tdid        language = sy-langu        name    = lv_tdname        object  = lv_tdobject      IMPORTING        header  = ls_header      TABLES        lines   = lt_lines      EXCEPTIONS        id      = 1        language = 2        name    = 3        object  = 4.
   DATA : lv_x TYPE c VALUE 'X' .
   lt_lines[] = gt_longt-tlines[] .
   CALL FUNCTION 'SAVE_TEXT'      EXPORTING        header         = ls_header        savemode_direct = lv_x      IMPORTING        newheader      = ls_header        function       = lv_function      TABLES        lines          = lt_lines[]      EXCEPTIONS        object         = 1        id             = 2        language       = 3        name           = 4.    IF lv_function = 'I' OR        lv_function = 'U'.      CALL FUNCTION 'COMMIT_TEXT'        IMPORTING          commit_count = lv_commit_count.    ENDIF.  ENDLOOP .
ENDFORM .
