topic Re: Converting Internal table columns to rows in Application Development and Automation Discussions

Converting Internal table columns to rows

Former Member — Wed, 09 Jul 2008 14:49:04 GMT

Hi,

i have an dynamic internal table(no.of records are changing each time...suppose for one condition it will have 9 records and in other condition it is having 4 records etc. this internal table is keep on changing)

Eg, internal table records appears as:

ACW

AHO

now i have to change this internal table to

AB ACW AD AE A AG AHO

here in the above case i have 7 columns and 1 row in my internal table. now i have to change this internal table to 1 column and 7 rows.(concatenating and appending to String may be helpful but it comes in a single line but i need to convert them as no.of columns = no.of rows).

my internal table structure is having only one field.

data: begin of type_table,

col(4) type c,

end of type_table.

iam handling this in smartforms so field catalog is not helpful to me.

<REMOVED BY MODERATOR>

Thanks,

Sree

Edited by: Alvaro Tejada Galindo on Jul 9, 2008 11:08 AM

Re: Converting Internal table columns to rows

Former Member — Wed, 09 Jul 2008 14:56:17 GMT

Find the below code for changing rows into colums.

data: begin of itab1 occurs 0,
fld,
end of itab1.

data: begin of itab2 occurs 0,
fld1,
fld2,
fld3,
end of itab2.

itab1-fld = 1.
append itab1.
itab1-fld = 2.
append itab1.
itab1-fld = 3.
append itab1.
read table itab1 index 1.
if sy-subrc eq 0.
itab2-fld1 = itab1-fld.
endif.
read table itab1 index 2.
if sy-subrc eq 0.
itab2-fld2 = itab1-fld.
endif.
read table itab1 index 3.
if sy-subrc eq 0.
itab2-fld3 = itab1-fld.
endif.
append itab2.
loop at itab1.
write:/ itab1.
endloop.
loop at itab2.
write:/ itab2.
endloop.

Re: Converting Internal table columns to rows

Former Member — Wed, 09 Jul 2008 14:57:47 GMT

If you want to use field symbols then this is the one....

TYPES: BEGIN OF ty_1,
first,
second,
third,
END OF ty_1.
 
TYPES: BEGIN OF ty_2,
first,
second,
third,
END OF ty_2.
 
FIELD-SYMBOLS: <fs> TYPE ANY,
              <fs2> TYPE ANY.
 
DATA: itab1 TYPE TABLE OF ty_1 WITH HEADER LINE,
      itab2 TYPE TABLE OF ty_1 WITH HEADER LINE,
      curr_line TYPE sy-tabix.
 
itab1-first = 'a'.
itab1-second = 'a'.
itab1-third = 'a'.
APPEND itab1.
 
itab1-first = 'b'.
itab1-second = 'b'.
itab1-third = 'b'.
APPEND itab1.
 
itab1-first = 'c'.
itab1-second = 'c'.
itab1-third = 'c'.
APPEND itab1.
 
LOOP AT itab1.
  CLEAR itab2.
  ASSIGN COMPONENT sy-tabix OF STRUCTURE itab2 TO <fs>.
  curr_line = sy-tabix.
  DO.
    ASSIGN COMPONENT sy-index OF STRUCTURE itab1 TO <fs2>.
    IF sy-subrc NE 0.
      EXIT.
    ENDIF.
    IF curr_line = 1.
      <fs> = <fs2>.
      APPEND itab2.
    ELSE.
      READ TABLE itab2 INDEX sy-index.
      <fs> = <fs2>.
      MODIFY itab2 INDEX sy-index.
    ENDIF.
  ENDDO.
ENDLOOP.

Re: Converting Internal table columns to rows

Former Member — Wed, 09 Jul 2008 15:08:31 GMT

Hi,

here we dont know how many fields that are coming to first internal table so declaring second internal table with fixed fields is not possible in this case.

is there any way to design an internal table based on the no.of records getting from the first internal table.

Thanks,

Sree.

Re: Converting Internal table columns to rows

Former Member — Wed, 09 Jul 2008 18:33:23 GMT

Please check this code...

FIELD-SYMBOLS: <dyntable> TYPE table.

FIELD-SYMBOLS: <dynline> TYPE ANY.

FIELD-SYMBOLS: <fs_1>, <fs>.

FIELD-SYMBOLS:

<dyn_wa>,

<dyn_field>.

DATA: lt TYPE lvc_t_fcat. "table of field cat structure

DATA: ls TYPE lvc_s_fcat. "Field cat structure

DATA: new_table TYPE REF TO data,

new_line TYPE REF TO data.

TYPES: BEGIN OF periodtyp,

period(10) TYPE c,

total TYPE netwr,

END OF periodtyp.

TYPES: BEGIN OF itab_typ,

period01 TYPE netwr,

period02 TYPE netwr,

period03 TYPE netwr,

period04 TYPE netwr,

period05 TYPE netwr,

period06 TYPE netwr,

period07 TYPE netwr,

period08 TYPE netwr,

period09 TYPE netwr,

period10 TYPE netwr,

period11 TYPE netwr,

period12 TYPE netwr,

END OF itab_typ.

DATA:

wa_period TYPE periodtyp,

wa1 TYPE itab_typ,

sum TYPE itab_typ,

w_fieldname(20) TYPE c,

c_tabix(2) TYPE n,

w_count TYPE i,

count(2) TYPE n.

DATA: it_period TYPE TABLE OF periodtyp,

itab1 TYPE TABLE OF itab_typ.

w_count = 0.

PERFORM load_itab1.

SKIP.

ULINE.

SKIP.

PERFORM create_dyntab.

PERFORM populating_dyntable.

PERFORM display_dyntab_data.

&----

*& Form CREATE_DYNTAB

&----

text

FORM create_dyntab.

Build field catalog of dynamic structure.

LOOP AT it_period INTO wa_period.

IF wa_period-total > 0.

c_tabix = sy-tabix.

CONCATENATE 'PERIOD' c_tabix INTO w_fieldname.

ls-fieldname = w_fieldname.

ls-datatype = 'CURR'.

ls-tabname = 'NEWTAB'.

ls-intlen = 10.

WRITE: / 'Field:', w_fieldname, 30 wa_period-total.

APPEND ls TO lt.

ENDIF.

ENDLOOP.

Create dynamic internal table with dynamic structure

CALL METHOD cl_alv_table_create=>create_dynamic_table

EXPORTING

it_fieldcatalog = lt

IMPORTING

ep_table = new_table.

*-Assign dynamic table to field symbol.

ASSIGN new_table->* TO <fs_1>.

ASSIGN <fs_1> TO <dyntable>.

Create a new Line with the same structure of the table.

CREATE DATA new_line LIKE LINE OF <dyntable>.

ASSIGN new_line->* TO <dynline>.

ENDFORM. "CREATE_DYNTAB

&----

*& Form load_itab1

&----

text

FORM load_itab1.

DO 5 TIMES.

CLEAR wa1.

MOVE: 100 TO wa1-period01,

15 TO wa1-period02,

20 TO wa1-period03,

30 TO wa1-period05,

7 TO wa1-period07.

IF sy-index = 3.

wa1-period02 = 0.

wa1-period07 = 0.

ENDIF.

APPEND wa1 TO itab1.

ENDDO.

LOOP AT itab1 INTO wa1.

ADD:

wa1-period01 TO sum-period01,

wa1-period02 TO sum-period02,

wa1-period03 TO sum-period03,

wa1-period04 TO sum-period04,

wa1-period05 TO sum-period05,

wa1-period06 TO sum-period06,

wa1-period07 TO sum-period07,

wa1-period08 TO sum-period08,

wa1-period09 TO sum-period09,

wa1-period10 TO sum-period10,

wa1-period11 TO sum-period11,

wa1-period12 TO sum-period12.

ENDLOOP.

CLEAR wa_period.

MOVE: sum-period01 TO wa_period-total,

'PERIOD01' TO wa_period-period.