Download to excel - long text in single row using gui_download

Question

Hi Experts,
I want to download the long text (read_text) (500-600 characters) to excel in single row. the column width should be 60.
i am using the gui_download FM as in my report i m using one gui_download for header data and 2nd one for details using APPEND . Can u suggest me the solutions for the same. Can i use word wrap option and if yes , then how to use it?
For eg.
Customer Satisfaction
There are no escalations / adverse feedback from the customer
Customer uses him/her for benchmarking others
Regular status update to customer
Proactively understands future needs of customer
Increases customer's confidence so that there is an increase in quality / quantity of work
This whole text should appear as single row.
Thanks,
Edited by: Khushi p on Nov 12, 2010 10:44 AM

Answer 1

I tried alot to put this in a legible format by usingcode...code but still it is not putting the code in a correct format.May be some mentor will put it in a good format so that you can understand.Below is a wraper progrm which meets your objective.
REPORT  ZSCRATCHPAD.
TABLES:EKPO.
TYPE-POOLS:slis.
TYPES : BEGIN OF ty_ekpo,
         ebeln TYPE ekko-ebeln,
         ebelp TYPE ekpo-ebelp,
         txz01 TYPE ekpo-txz01,
         matnr TYPE ekpo-matnr,
         werks TYPE ekpo-werks,
         loekz TYPE ekpo-loekz,
         oic_ptrip TYPE ekpo-oic_ptrip,
         menge TYPE ekpo-menge,
         meins  TYPE ekpo-meins,
         umrez TYPE ekpo-umrez,
         umren TYPE ekpo-umren,
         text  TYPE string,
        END OF ty_ekpo.
TYPES : BEGIN OF ty_text ,
        tdformat TYPE tline-tdformat,
        tdline TYPE tline-tdline,
        END OF ty_text.
data:  g_t_ekpo TYPE STANDARD TABLE OF ty_ekpo WITH HEADER LINE,
       g_repid TYPE sy-repid,
       g_ebeln(15),
       l_fieldname1 LIKE ibipparms-path,
       l_fieldname2 TYPE string,
       g_objectid LIKE cdhdr-objectid,
       g_t_text TYPE STANDARD TABLE OF ty_text WITH HEADER LINE,
       g_t_text1 TYPE STANDARD TABLE OF ty_text WITH HEADER LINE.
data:g_fieldcat type slis_t_fieldcat_alv with header line,
     g_events type slis_t_event,
     wa_events like line of g_events,
     g_listheader type slis_t_listheader,
     walistheader like line of g_listheader,
     g_layout type slis_layout_alv,
     g_top type slis_formname,
     g_sort type slis_t_sortinfo_alv with header line,
     g_sort1 type slis_sortinfo_alv,
     g_printparams type slis_print_alv,
     g_variant type disvariant,
     g_title type lvc_title,
     g_excluding type slis_t_extab,
     g_grid TYPE REF TO cl_gui_alv_grid.
field-symbols: <fs> type lvc_title.
SELECT-OPTIONS:P_EBELN FOR EKPO-EBELN NO INTERVALS.
PARAMETERS:p_r1 radiobutton group grp1,
           p_r2 radiobutton group grp1.
SELECT ebeln
       ebelp
       txz01
       matnr
       werks
       loekz
       oic_ptrip
       menge
       meins
       umrez
       umren
       INTO TABLE g_t_ekpo
       FROM ekpo
       WHERE ebeln IN p_ebeln
       AND loekz NE 'L'.
IF sy-subrc <> 0.
  CLEAR g_t_ekpo.
ENDIF.
define m_fieldcat.
  g_fieldcat-fieldname = &1.
  g_fieldcat-col_pos = &2.
  g_fieldcat-seltext_l = &3.
  g_fieldcat-do_sum = &4.
  g_fieldcat-outputlen = &5.
  g_fieldcat-checkbox = &6.
  append g_fieldcat to g_fieldcat.
  clear  g_fieldcat.
end-of-definition.
if p_r1 = 'X'.
PERFORM summary_display.
else.
perform download.
endif.
FORM summary_display .
  concatenate 'Test' ' ' into g_title separated by space.
  assign g_title to <fs>.
  g_repid = sy-repid.
  m_fieldcat 'EBELN'     ''  'EBELN'     ''  10   ''.
  m_fieldcat 'EBELP'     ''  'EBELP'     ''  05   ''.
  m_fieldcat 'TXZ01'     ''  'TXZ01'     ''  40   ''.
  m_fieldcat 'MATNR'     ''  'MATNR'     ''  10   ''.
  m_fieldcat 'WERKS'     ''  'WERKS'     ''  04   ''.
  m_fieldcat 'LOEKZ'     ''  'LOEKZ'     ''  01   ''.
  m_fieldcat 'OIC_PTRIP' ''  'OIC_PTRIP' ''  16   ''.
  m_fieldcat 'MENGE'     ''  'MENGE'     ''  13   ''.
  m_fieldcat 'MEINS'     ''  'MEINS'     ''  03   ''.
  m_fieldcat 'UMREZ'     ''  'UMREZ'     ''  05   ''.
  m_fieldcat 'UMREN'     ''  'UMREN'     ''  05   ''.
  g_layout-zebra = 'X'.
  g_layout-colwidth_optimize = 'X'.
  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program       =  g_repid
*     i_callback_pf_status_set = 'SET_PF_STATUS'
      is_layout                =  g_layout
      i_callback_user_command  =  'LIST1'
      i_grid_title             = <fs>
*     i_callback_top_of_page   = ' '
      it_fieldcat              = g_fieldcat[]
*     it_excluding             = g_excluding
      i_save                   = 'A'
*     is_variant               = ITVARIANT
      it_events                = g_events[]
*     is_print                 = ITPRINTPARAMS
*     it_sort                  = itsort[]
    tables
      t_outtab                 =  g_t_EKPO[]
      exceptions
      program_error           = 1
      others                  = 2.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
  clear:g_fieldcat.
  refresh:g_fieldcat.
ENDFORM.                    " summary_display
form list1 using r_ucomm like sy-ucomm rs_selfield type slis_selfield.
  case r_ucomm.
    when '&IC1'.
      REFRESH g_t_text.
      if rs_selfield-fieldname = 'EBELN'.
        READ TABLE g_t_ekpo INDEX rs_selfield-tabindex.
        CONCATENATE g_t_ekpo-ebeln  g_t_ekpo-ebelp  INTO g_ebeln. "CRQ94538-Capture text
        SHIFT g_ebeln LEFT DELETING LEADING space.
        PERFORM read_text USING g_ebeln g_t_text[].
        IF g_t_text[] IS NOT INITIAL.
          PERFORM pop_up_with_table .
        ENDIF.
      endif.
    when 'OTHERS'.
      leave to screen 0.
  endcase.
endform.                                                    "list1
FORM read_text  USING    p_ebeln   p_t_itab LIKE g_t_text1[].
  PERFORM fill_readtext USING p_ebeln 'EKPO' 'F01' p_t_itab.
ENDFORM.                    " f0008_read_text
FORM fill_readtext  USING    p_vbeln
                             p_object
                             p_textid
                             pt_itab  LIKE g_t_text[] .
  DATA: ls_itab LIKE LINE OF g_t_text,
        l_header LIKE thead,
        l_tdname LIKE thead-tdname.
  CLEAR pt_itab.
  REFRESH pt_itab.
  MOVE p_vbeln TO l_tdname.
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      client                  = sy-mandt
      id                      = p_textid
      language                = sy-langu
      name                    = l_tdname
      object                  = p_object
    IMPORTING
      header                  = l_header
    TABLES
      lines                   = pt_itab
    EXCEPTIONS
      id                      = 1
      language                = 2
      name                    = 3
      not_found               = 4
      object                  = 5
      reference_check         = 6
      wrong_access_to_archive = 7
      OTHERS                  = 8.
endform.                    "fill_readtext
FORM pop_up_with_table .
  CALL FUNCTION 'POPUP_WITH_TABLE'
    EXPORTING
      endpos_col   = 82
      endpos_row   = 20
      startpos_col = 10
      startpos_row = 10
      titletext    = ' '
    TABLES
      valuetab     = g_t_text
    EXCEPTIONS
      break_off    = 1
      OTHERS       = 2.
  IF sy-subrc NE 0.
    CLEAR g_t_text.
  ENDIF.
ENDFORM.                    " f4000_pop_up_with_table
FORM download .
  if g_t_ekpo[] is not initial.
    loop at g_t_ekpo.
*      concatenate text-001 g_t_ekpo-matnr into g_t_ekpo-matnr.
      PERFORM convert_table_to_string.
      modify g_t_ekpo.
      clear g_t_ekpo.
    endloop.
  endif.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename                = 'C:/KKVT/TEST.XLS'
      filetype                = 'ASC'
      write_field_separator   = 'X'
    TABLES
      data_tab                = g_t_ekpo
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6
      header_not_allowed      = 7
      separator_not_allowed   = 8
      filesize_not_allowed    = 9
      header_too_long         = 10
      dp_error_create         = 11
      dp_error_send           = 12
      dp_error_write          = 13
      unknown_dp_error        = 14
      access_denied           = 15
      dp_out_of_memory        = 16
      disk_full               = 17
      dp_timeout              = 18
      file_not_found          = 19
      dataprovider_exception  = 20
      control_flush_error     = 21
      OTHERS                  = 22.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  else.
  message: 'file downloaded' type 'S'.
  ENDIF.
ENDFORM.                    " download
FORM convert_table_to_string .
  DATA: str TYPE string,
        len TYPE i,
        tot_len TYPE i.
  FIELD-SYMBOLS <fs1> TYPE ANY.
  IF g_t_ekpo-ebeln IS NOT INITIAL.
    CONCATENATE g_t_ekpo-ebeln  g_t_ekpo-ebelp  INTO g_ebeln. "CRQ94538-Capture text
    SHIFT g_ebeln LEFT DELETING LEADING space.
    PERFORM read_text USING g_ebeln g_t_text[].
    IF g_t_text[] IS NOT INITIAL.
      CLEAR: len,
             tot_len,
              str.
      DO.
        ASSIGN COMPONENT sy-index OF STRUCTURE g_t_text TO <fs1>.
        IF sy-subrc NE 0.
          EXIT.
        ENDIF.
        DESCRIBE FIELD <fs1> LENGTH len IN CHARACTER MODE.
        ADD len TO tot_len.
      ENDDO.
      CALL FUNCTION 'CONVERT_TABLE_TO_STRING'
        EXPORTING
          i_tabline_length = tot_len
        IMPORTING
          e_string         = str
        TABLES
          it_table         = g_t_text[].
      IF sy-subrc = 0.
        g_t_ekpo-text = str.
      ENDIF.
    ELSE.
      CLEAR: g_t_ekpo-text,
             tot_len,
             len,
             str.     .
    ENDIF.
  ENDIF.
ENDFORM.                    " convert_table_to_string
Edited by: Kiran K on Nov 18, 2010 5:21 AM