topic Re: Delete lines from a dynamic internal table in Application Development and Automation Discussions

Delete lines from a dynamic internal table

Former Member — Sun, 02 Mar 2008 15:14:32 GMT

Hi,

Can anyone give me a code example of deleteing a line form a dynamic internal table (not by index).

Thanks.

Re: Delete lines from a dynamic internal table

uwe_schieferstein — Sun, 02 Mar 2008 17:10:16 GMT

Hello

Let us assume that your dynamic itab contains a field VKORG (sales organisation) and you want to delete all entries where VKORG = '1100'.


FIELD-SYMBOLS:
  <ls_record>   TYPE any.
  <ld_fld>         TYPE any.

  LOOP AT <lt_itab> ASSIGNING <ls_record>.
    UNASSIGN <ld_fld>.

    ASSIGN COMPONENT 'VKORG' OF STRUCTURE <ls_record> TO <ld_fld>.
    IF ( <ld_fld> IS BOUND ).
      IF ( <ld_fld> = '1100' ).
         DELETE <lt_itab> INDEX syst-tabix.
      ENDIF.
    ENDIF.

  ENDLOOP.

Regards

Uwe

Re: Delete lines from a dynamic internal table

Former Member — Sun, 02 Mar 2008 19:48:37 GMT

Is there another way to delete the record, without using the record index ?

Re: Delete lines from a dynamic internal table

uwe_schieferstein — Sun, 02 Mar 2008 19:58:33 GMT

Hello

You may try the following variant which - at the end of the day - uses the INDEX internally.


FIELD-SYMBOLS:
  <ls_record>   TYPE any.
  <ld_fld>         TYPE any.
 
  LOOP AT <lt_itab> ASSIGNING <ls_record>.
    UNASSIGN <ld_fld>.
 
    ASSIGN COMPONENT 'VKORG' OF STRUCTURE <ls_record> TO <ld_fld>.
    IF ( <ld_fld> IS BOUND ).
      IF ( <ld_fld> = '1100' ).
         DELETE <lt_itab> FROM <ld_record>.  " not sure if this works
      ENDIF.
    ENDIF.
 
  ENDLOOP.

Regards

Uwe

Re: Delete lines from a dynamic internal table

Former Member — Mon, 03 Mar 2008 06:55:07 GMT

Yes, It doesn't work.

Re: Delete lines from a dynamic internal table

dhirendra_pandit — Thu, 19 Jul 2012 19:41:18 GMT

Thy following step.

1. Create a work area from dynamic table.

create data dyn_line like line of <fs_table>.

assign dyn_line->* to <fs_wa_tmp>.

2. Loop your internal table to work area and build one temp work area and then delete the record from your new work area.

LOOP at <fs_table> assigning <fs_wa>.

clear <fs_wa_tmp>.

Do.

Assign component sy-tabix of structure <fs_wa> to <fs_val>. <<<<<<<<<<<<< Assign value

if sy-subrc ne 0.

EXIT.

else.

Assign component sy-tabix of structure <fs_wa_tmp> to <fs_val1>. <<<<<<<<<<<<< Assign value

<fs_val1> = <fs_val>.

enddo.

delete <fs_table> from <fs_wa_tmp>.

ENDLOOP.

Try this logic according to your requirement.

Regards,

Dhirendra Pandit