Ejemplo Mostrar string tabla

El siguiente ejemplo nos enseña como mostrar y editar una cadena muy larga usando la función TERM_CONTROL_EDIT y CONVERT_STRING_TO_TABLE

Ejemplo Mostrar string tabla. El siguiente ejemplo nos enseña como mostrar y editar una cadena muy larga usando la función TERM_CONTROL_EDIT y CONVERT_STRING_TO_TABLE.

  DATA: lv_indica TYPE char1.
  DATA lv_string TYPE  string.
  DATA lv_posic TYPE i.
  DATA gv_titel(35) TYPE c.
  DATA: gt_textlines TYPE TABLE OF ty_lines,
        gs_textlines TYPE ty_lines,
        p_t_desc_part type char1024,
        p_desc_partida type char1024.

  REFRESH gt_textlines.
  gv_titel = 'Descripción partida'.

  IF p_desc_partida IS INITIAL.
    lv_indica = ' '.
  ELSE.
    lv_indica = 'X'.
  ENDIF.

  p_desc_partida = p_t_desc_part.

  lv_string = p_desc_partida.
  CALL FUNCTION 'CONVERT_STRING_TO_TABLE'
    EXPORTING
      i_string               = lv_string
      i_tabline_length       = 72
    TABLES
      et_table               = gt_textlines.

  CALL FUNCTION 'TERM_CONTROL_EDIT'
    EXPORTING
      titel                = gv_titel
      langu                = 'S'
    TABLES
      textlines            = gt_textlines
    EXCEPTIONS
      user_cancelled       = 1
      OTHERS               = 2.

  IF sy-subrc = 0.
    CLEAR p_desc_partida.
    LOOP AT gt_textlines INTO gs_textlines.
      lv_posic = sy-tabix - 1.
      lv_posic = lv_posic * 72.
      lv_posic = lv_posic - 1.
      IF sy-tabix = 1.
        p_desc_partida = gs_textlines-line.
      ELSE.
        IF lv_indica  = ''.
          CONCATENATE p_desc_partida gs_textlines-line
                        INTO p_desc_partida SEPARATED BY space.
        ELSE.
          IF p_desc_partida+lv_posic(1) = ''.
            CONCATENATE p_desc_partida gs_textlines-line
                          INTO p_desc_partida SEPARATED BY space.
          ELSE.
            CONCATENATE p_desc_partida gs_textlines-line
                          INTO p_desc_partida.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDLOOP.
    p_t_desc_part = p_desc_partida.
  ENDIF.
El siguiente ejemplo nos enseña como mostrar y editar una cadena muy larga usando la función TERM_CONTROL_EDIT y CONVERT_STRING_TO_TABLE