Textaufbereitung TDLINE Thema ist als GELÖST markiert

Code: Alles auswählen.

  LOOP AT sav_text INTO line.
    lv_string = lv_string && line.
  ENDLOOP.

  lv_sum = strlen( lv_string ).
  lv_off = 131.
  DO.
    WHILE lv_space <> 'X'.
      lv_offspace = lv_string+lv_off(1).
      IF lv_offspace = space.
        lv_space = 'X'.
        gs_lines-tdformat = '= '.
        gs_lines-tdline = lv_string(lv_off).
        SHIFT gs_lines-tdline LEFT DELETING LEADING space.
        APPEND gs_lines TO gt_lines.
        lv_string = substring( val = lv_string off = lv_off ).
        lv_sum = strlen( lv_string ). " neue Länge von l_rest ermitteln
      ELSE.
        lv_off = lv_off - 1.
      ENDIF.
    ENDWHILE.
    lv_space = ''.
    IF lv_sum < 132.
      gs_lines-tdformat = '= '.
      gs_lines-tdline   = lv_string.
      APPEND gs_lines TO gt_lines.
      EXIT.
    ENDIF.
  ENDDO.