topic Re: Modifying internal table in Application Development and Automation Discussions

Modifying internal table

former_member195383 — Wed, 05 Dec 2007 11:48:22 GMT

I have an internal table itab ,populated with data.It has a field named "Description".I want to insert a blank line when ever the length of the value in "Description" exceeds 15 characters.Insertion shud be done just after that perticular line and not at the end of internal table.Please suggest hw to go for this

Regards

Rudra

Re: Modifying internal table

amit_khare — Wed, 05 Dec 2007 11:51:05 GMT

It will be somewhat like this -

loop at itab.

vlen = strlen(itab-desc).

if vlen > 15 .

itab-desc = ' '.

modify itab transporting desc.

endif.

endloop.

Re: Modifying internal table

Former Member — Wed, 05 Dec 2007 11:53:20 GMT

oh thats quite easy.

dont modify your itab, but build a new one.

data: lv_len type i.

loop at itab.
  append itab to itab2.
  lv_len = strlen( itab-description ).
  if lv:len gt 15.
    clear itab.
    append itab to itab2.
  endif.
endloop.

in itab2 all should be like you wanted.

Message was edited by:

Florian Kemmer

Re: Modifying internal table

Former Member — Wed, 05 Dec 2007 11:53:40 GMT

loop at itab into wa.

v_len = strlen(wa-description).

if v_len gt 15.

clear wa.

append wa to itab.

endif.

endloop.

Re: Modifying internal table

Former Member — Wed, 05 Dec 2007 11:55:43 GMT

Hi,

pls follow the below code.

data:

l_len type i,

l_index like sy-index.

loop at itab.

l_len = strlen(itab-description).

if l_len > 15.

l_index = sy-index + 1.

clear itab-description.

insert itab index l_index.

endif.

clear itab.

endloop.

reward if it is helpful.

thanks,

sreeram.

Re: Modifying internal table

Former Member — Wed, 05 Dec 2007 12:01:27 GMT

Hi,

see this example.

it will output as 3.

one initial row and two filled rows.

data:itab like mara occurs 0 WITH HEADER LINE.

data:len(2).

itab-matnr = 'abcd'.

perform test.

itab-matnr = 'abcdefg'.

perform test.

itab-matnr = 'xabcd'.

perform test.

DESCRIBE TABLE itab LINES sy-tfill.

write:/ sy-tfill.

form test.

len = strlen( itab-matnr ).

if len > 5.

APPEND INITIAL LINE TO itab.

else.

APPEND itab.

endif.

ENDFORM.

rgds,

bharat.

Re: Modifying internal table

Former Member — Wed, 05 Dec 2007 12:26:02 GMT

Hi Rudra,

Check this code.

DATA : BEGIN OF ITAB1 OCCURS 10,

DESC(25),

END OF ITAB1.

DATA : ITAB2 LIKE TABLE OF ITAB1 WITH HEADER LINE.

DATA : LEN TYPE I.

DO 3 TIMES.

ITAB1-DESC = 'Less than 15'.

APPEND ITAB1.

ITAB1-DESC = 'Greater than 15 chars'.

APPEND ITAB1.

ENDDO.

LOOP AT ITAB1.

APPEND ITAB1 TO ITAB2.

LEN = STRLEN( ITAB1-DESC ).

CLEAR ITAB1.

IF LEN GT 15.

APPEND ITAB1 TO ITAB2.

ENDIF.

ENDLOOP.

WRITE 'ITAB1 RECORDS'.

LOOP AT ITAB1.

WRITE : / SY-TABIX, ITAB1-DESC.

ENDLOOP.

SKIP 2.

WRITE 'ITAB2 RECORDS'.

LOOP AT ITAB2.

WRITE : / SY-TABIX, ITAB2-DESC.

ENDLOOP.

Output:

ITAB1 RECORDS

1 Less than 15

2 Greater than 15 chars

3 Less than 15

4 Greater than 15 chars

5 Less than 15

6 Greater than 15 chars

ITAB2 RECORDS

1 Less than 15

2 Greater than 15 chars

4 Less than 15

5 Greater than 15 chars

7 Less than 15

8 Greater than 15 chars

Regards,

Vijay

Re: Modifying internal table

Former Member — Thu, 06 Dec 2007 05:08:26 GMT

hi try this.

data ind type i.

itab_temp[] = itab[].

loop at itab.

if itab-desc > 15.

ind = sy-tabix + 1.

insert intial line into itab_temp[] index ind.

clear ind.

endif.

endloop.

free itab.

itab[] = itab_temp[].

hope this helps.