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 .