Best way to concatenate with a ; in dynamic internal table

Question

I have dynamic internal table, i need to concatenate each field with a semi colon (
The following is the code i have written , is any better approach to this
report zaRs
  no standard page heading line-size 255.
data : wa_itab      type yctcgsa_out. 
data : i_itab       type standard table of wa_itab.
data : i_details    type abap_compdescr_tab.
data : i_ref_descr  type ref to cl_abap_structdescr.
i_ref_descr ?= cl_abap_typedescr=>describe_by_data( i_itab ). " Here i_itab is dynamic int table
i_details[] = i_ref_descr->components[].
data: output(900) type c.
data: value(51) type c.
loop at i_itab into wa_itab.
  loop at i_details.
    assign component sy-tabix of structure <wa_itab> to <fs>.
    condense <fs> no-gaps.
    concatenamte <fs> ';' into value.
    condense value no-gaps.
    v_len = strlen( value ).
    move value to output+v_pos(v_len).
    v_pos = v_pos + v_len.
  endloop.
  move output to i_putput.
  append i_output.
  clear : v_pos, v_len, output, value.
endloop.
a®

Answer 1

Hello,
2/other solution:
Create a dynamic structure with 2n fields where n is the number of fields i_tab. The structure of this table will be:
field 1          : Field n°1 of i_tab
field 2         : one character field  named SEP0001
field 3         : Field n°2 of i_tab
field 4         : one character field  named SEP0002
field 2n - 1: Field n°n of i_tab
field 2n         : one character field  named SEP000n
Create a dynamic structure with n fields. this structure will be defined as follow:
field 1          :one character field  named SEP0001
field 2          :one character field  named SEP0002
field n          :one character field  named SEP000n
For example, we have the below report. This report does not explain how to create dynamic structures wa_sep and wa_itab_sep.
report zaRs
  no standard page heading line-size 255.
TYPES:
  BEGIN OF ywa_itab,
     field1 type vbeln,
     field2 type vbeln,
  END   OF ywa_tab,
  BEGIN OF ywa_sep,
     sep0001 type char1,
     sep0002 type char1,
  END   OF ywa_sep,
  BEGIN OF ywa_itab_sep,
     field1  type ywa_itab-field1,
     sep0001 type ywa_sep-sep0001,
     field2  type ywa_itab-field2,
     sep0002 type ywa_sep-sep0002,
  END   OF ywa_itab_sep.
data : wa_itab      type ywa_itab. 
data : i_itab       type standard table of wa_itab.
data : wa_sep       type ywa_sep.
data : wa_itab_sep  type ywa_itab_sep.
data: output(900) type c.
data: value(51) type c.
*init all fields of wa_sep with ';'
  DO.
    assign component sy-tabix of structure wa_sep to <fs>.
    IF  sy-subrc IS INITIAL. EXIT. ENDIF.
    MOVE ';'   TO <fs>.
  EnDDo.
loop at i_itab into wa_itab.
  move-correponsding wa_itab to wa_itab_sep.
  move-correponsding wa_sep  to wa_itab_sep.
  move wa_itab_sep           to i_output.
  append  i_output             to output.
endloop.
This report does not explain how to create dynamic structures wa_sep and wa_itab_sep.
Cordialement,
Chaouki.
Edited by: Chaouki AKIR on Jun 12, 2009 1:18 AM