topic Re: Internal table records - Horizontal display in Application Development and Automation Discussions

Internal table records - Horizontal display

Former Member — Wed, 12 Feb 2014 06:24:03 GMT

Hi There,

I have a situation here, where I need to display my internal table records horizontally in one Form.

Example: Suppose my it_tab has Text-1

Text-2

Text-3

Text-4

Text-5

Now I have to display my internal table data like this:

Text-1 Space Text-2 Space Text-3 ( Should display only 3 records in line 1)

Text-2 Space Text-3....(Again should display 3 records, other wise the remaining)

If internal table has only 2 records, it should display like:

Text-1 Space Text-2

kindly advise how to achieve this.

Thanks,

Priya

Re: Internal table records - Horizontal display

Former Member — Wed, 12 Feb 2014 06:39:53 GMT

hi Priya

Please define another it_itab2 with one filed type string.

data: lv_line type i,

lv_counts type i.

lv_counts = lines ( it_itab).

loop at it_itab.

concatenate it_itab2-text it_itab-text ' ' into it_itab2-text.

lv_line = sy-tabix mod 3.

if lv_line eq 0.

append it_itab2.

elseif lv_counts eq sy_tabix.

append it_itab2. " only 2 records, will save to itab2.

endif.

endloop.

regards,

Archer

Re: Internal table records - Horizontal display

Former Member — Wed, 12 Feb 2014 06:44:12 GMT

hi,

as per my understanding, my suggestions is .

Example: Suppose my it_tab has matnr " key field

Text-1

Text-2

Text-3

Text-4

Text-5

create the final internal table with

type: begin of ty_final,

matnr

text1

text2

text3

end of ty_final

create internal table of ty_final

create one more internal table IT_TAB1same as IT_TAB .

move the contented of IT_TAB into ITab1.

loop at it_tab1.

read table it-tab with key matnr .

if sy-subrc eq 0.

case sy-index.

when '1'.

it_final-text1 = it-tab-text.

when '2'

it_final-text2 = it-tab-text.

when'3'.

it_final-text3 = it-tab-text.

append wa_final to it_final. " since you want to require only 3 text

clear it_final

when '4'.

it_final-text1 = it-tab-text.

when '5'.

it_final-text2 = it-tab-text.

endcase.

else.

append wa_final to it_final.

endif.

endloop.

delete the duplicate entires of it_final where text 1 is initial. " if it-tab contains only 3 records so unneccessary one record is added in it_final.

Re: Internal table records - Horizontal display

Former Member — Wed, 12 Feb 2014 06:52:45 GMT

Paste code in abap editor and alter as per needed.

data : begin of itab occurs 0,
         main(10) type c,
        end of itab.

data : begin of it occurs 0,
         field1(50) type c,
        end of it.

itab-main = 'one'. append itab.
itab-main = 'two'.append itab.
itab-main = 'three'.append itab.
itab-main = 'four'.append itab.
itab-main = 'five'.append itab.

data: cnt type i.

loop at itab.
   cnt = sy-tabix mod 3.

   concatenate it-field1 itab-main into it-field1 separated by ' '.

   if cnt eq 0.
      append it.
     clear it.
   endif.
endloop.

if cnt eq 1 or cnt eq 2.
append it.
clear it.
endif.

Re: Internal table records - Horizontal display

Former Member — Wed, 12 Feb 2014 07:03:23 GMT

hey Priya,

For your Scenario!

LOOP AT itab INTO wa,

count = count +1.

IF count = 1.

var1 = wa-text1.

ENDIF.

IF count = 2.

var2 = wa-text1.

ENDIF.

IF count = 3 .

var3 = wa-text1.

CONCATENATE var1 var2 var3 INTO string SEPARATED BY space.

CLEAR count.

ENDIF.

ENDLOOP.

Hope this helps!

Happy Coding,

Santhosh Yadav

Re: Internal table records - Horizontal display

Former Member — Wed, 12 Feb 2014 07:27:58 GMT

Thank you all for your inputs.

Dengyong, your answer works good. Thank you.