topic How to delete internal table rows in Application Development and Automation Discussions

How to delete internal table rows

Former Member — Fri, 27 Apr 2012 05:44:28 GMT

Hello,

Here i have to delete internal table production order column based on hold column.

If you see the attached .jpeg file you will get clear idea about my issue.

I tried by giving this DELETE i_final[] WHERE hind IS not INITIAL. but it does not satisfy my requirement.

If hold column is marked with X then entire production order has to be deleted.

Please suggest me how...

Re: How to delete internal table rows

former_member199125 — Fri, 27 Apr 2012 05:48:59 GMT

It should work,

otherwise try

delete i_final where hindi = 'X'.

Regards

Srinivas

Re: How to delete internal table rows

Former Member — Fri, 27 Apr 2012 05:56:25 GMT

Hello Srinivas,

I tried as u said but the is same,

As per my logic & your logic the only specific hind column are deleted where it is having "X"

but my requirement is to delete entire production order with reference to hind column.

Re: How to delete internal table rows

Former Member — Fri, 27 Apr 2012 06:09:15 GMT

Hello,

First get the production order number where hind is not initial. and then delete all the entries for that order number.

I hope it helps.

Thanks.

Re: How to delete internal table rows

Private_Member_49934 — Fri, 27 Apr 2012 06:17:36 GMT

Ah.. Column HOLD became HIND and HIND became HINDI

Re: How to delete internal table rows

Private_Member_49934 — Fri, 27 Apr 2012 06:21:24 GMT

Loop at i_final[] assigning <fs_final> where HOLD = 'X'.
 
DELETE IT_FINAL WHERE  PRODUCTION_ORDER = <FS_FINAL>-PRODUCTION_ORDER.
 
ENDLOOP.

Re: How to delete internal table rows

former_member222707 — Fri, 27 Apr 2012 06:21:41 GMT

Hi,

You requirement is interesting.

What you can do is create a list of Production order that is need to deleted in new internal table and delete these from the I_FINAL table.

I_DELL[] = I_FINAL[].

DELETE I_DELL[] WHERE HOLD IS INITIAL.

SORT the I_DELL[] by Production order.

Delete the adjacent duplicate.

Now you 'll have the list of Production order that are needed to delete.

so for this you can do

Loop at I_FINAL INTO <WA>.

DELETE I_FINAL[] WHERE PRDORD = <wa>-prdord.

ENDLOOP.

Regards,

Rakesh

Re: How to delete internal table rows

Former Member — Fri, 27 Apr 2012 06:28:28 GMT

sort i_final by Production_order hind.

Loop at i_final.

DELETE i_final where hind = 'X'.

ENDLOOP

Re: How to delete internal table rows

Former Member — Fri, 27 Apr 2012 06:33:42 GMT

Hello Rakesh

Thanks for your response,,... I tried the code which is very similar.

But still i could not reach the requirement.

sort i_final by hind DESCENDING.

lt_final[] = i_final[].

loop at i_final into wa_final where hind = 'X'.

loop at lt_final into wa1_final where aufnr = wa_final-aufnr.

append wa1_final to lt1_final.

clear: wa1_final.

endloop.

clear:wa_final.

endloop.

clear i_final[].

FREE i_final[].

i_final[] = lt1_final[].

SORT i_final ASCENDING by aufnr ktsch ltxa1 lmnga.

delete ADJACENT DUPLICATES FROM i_final COMPARING aufnr vornr.

clear lt1_final[].

free lt1_final[].

ENDIF.

Suggest me anything more i can do here.

Re: How to delete internal table rows

former_member222707 — Fri, 27 Apr 2012 06:42:01 GMT

Hi,

Instead of this you can write the like this it will works.

lt_final[] = i_final[].

Delete lt_final[] where where hind is not intial.

sort lt_final by aufnr.

delete ADJACENT DUPLICATES FROM lt_final COMPARING aufnr.

Loop at lt_final into <wa>.

delete i_final[] where aufnr = <wa>-aufnr.

endloop.

now you have the desire result in i_final[] .

Regards,

Rakesh

Re: How to delete internal table rows

former_member282968 — Fri, 27 Apr 2012 07:00:17 GMT

Check if this helps:

Hi Kris,

   types:BEGIN OF s_po,
            po   type char10,
            hold type char1,
            end of s_po.

data:it_s_po type table of s_po,
     wa_s_po type          s_po.

wa_s_po-po   = '110076836'.
wa_s_po-hold = 'X'.
append wa_s_po to it_s_po.

wa_s_po-po   = '110076836'.
wa_s_po-hold = 'X'.
append wa_s_po to it_s_po.

wa_s_po-po   = '110076836'.
wa_s_po-hold = 'X'.
append wa_s_po to it_s_po.

wa_s_po-po   = '110076839'.
wa_s_po-hold = 'X'.
append wa_s_po to it_s_po.

wa_s_po-po   = '110076839'.
wa_s_po-hold = 'X'.
append wa_s_po to it_s_po.

wa_s_po-po   = '110076839'.
wa_s_po-hold = ' '.
append wa_s_po to it_s_po.

wa_s_po-po   = '110076862'.
wa_s_po-hold = ' '.
append wa_s_po to it_s_po.

wa_s_po-po   = '110076862'.
wa_s_po-hold = ' '.
append wa_s_po to it_s_po.

wa_s_po-po   = '110076862'.
wa_s_po-hold = ' '.
append wa_s_po to it_s_po.

loop at it_s_po into wa_s_po.
check wa_s_po-hold = 'X'.
delete it_s_po where po = wa_s_po-po.
endloop.

loop at it_s_po into wa_s_po.
write😕 wa_s_po-po,wa_s_po-hold.
endloop.

*output
110076862
110076862
110076862

With regards,

Re: How to delete internal table rows

Former Member — Fri, 27 Apr 2012 07:36:33 GMT

Still i output is same only the specific rows are getting deleted,

Here there are 3 columns

1. Production order

2. Hold

3. Standard Text (which is like Line item)

For Each production order there can be several hold and standard text,

Here If any hold column is there with "X" with reference to production order then entire production order and other details like standard text also has to be deleted.

Once see this new picture.

Here 110076839 and 110076862 and all the details has to be deleted because hold column is having "X" with reference that production order and 110076836 should remain as it is because no hold with "X".

I am explaining briefly because may be you could not get what was saying.

Re: How to delete internal table rows

Former Member — Fri, 27 Apr 2012 07:40:04 GMT

try to do which i send logic 101% it will work

Re: How to delete internal table rows

kumud — Fri, 27 Apr 2012 07:46:31 GMT

Hi,

If the requirement is to delete all the rows of an order if Hold is marked 'X' even once, I tried with the below code and it worked fine.

   TYPES: BEGIN OF tp_tab,
                order TYPE char20,
                hold TYPE flag,
                text TYPE char10,
               END OF tp_tab.

TYPES: BEGIN OF tp_tab1,
             t1 TYPE tp_tab,
             delete TYPE char1,
            END OF tp_tab1.

DATA: t_tab TYPE STANDARD TABLE OF tp_tab,
           t_tab1 TYPE STANDARD TABLE OF tp_tab1,
           w_tab TYPE tp_tab,
           w_tab1 TYPE tp_tab1.

FIELD-SYMBOLS: <fs_tab> TYPE tp_tab,
                           <fs_tab1> TYPE tp_tab1.

   LOOP AT t_tab ASSIGNING <fs_tab> WHERE hold EQ 'X'.
       w_tab1-t1-order = <fs_tab>-order.
       w_tab1-t1-hold = <fs_tab>-hold.
       w_tab1-t1-text = <fs_tab>-text.
       w_tab1-delete = 'X'.
       APPEND w_tab1 TO t_tab1.
       CLEAR w_tab1.
ENDLOOP.
UNASSIGN <fs_tab>.

LOOP AT t_tab1 ASSIGNING <fs_tab1> WHERE delete EQ 'X'.
DELETE t_tab WHERE order = <fs_tab1>-t1-order.
ENDLOOP.

UNASSIGN <fs_tab1>.

You may take care of declaring constants as required.

Regards,

Kumud

Re: How to delete internal table rows

former_member222707 — Fri, 27 Apr 2012 07:47:39 GMT

hi,

Can you send me the code that you r using.

Regards,

Rakesh

Re: How to delete internal table rows

Former Member — Fri, 27 Apr 2012 08:13:45 GMT

Hello rakesh

I already given logic which i have maintained in my program.

Re: How to delete internal table rows

Former Member — Fri, 27 Apr 2012 08:21:58 GMT

Hello Krupa,

If your dont mind anything please thoroughly check my issue.

The logic which has been given by you will not match to my requirement.

Re: How to delete internal table rows

keyur_pawar — Fri, 27 Apr 2012 08:24:55 GMT

Hi,

Try following code,

100% working.....

REPORT ZDELETE_ITAB.

types: begin of s_tab,
   po type int4,
   hold type char10,
   tkey type char10,
   END OF s_tab.

   DATA: itab type table of s_tab,
         wa   type s_tab.

   wa-po   = 100001.
   wa-hold = ' '.
   wa-tkey = 's001'.
   append wa to itab.

   wa-po   = 100002.
   wa-hold = 'X'.
   wa-tkey = 's002'.
   append wa to itab.

   wa-po   = 100003.
   wa-hold = ' '.
   wa-tkey = 's003'.
   append wa to itab.

   wa-po   = 100004.
   wa-hold = 'X'.
   wa-tkey = 's004'.
   append wa to itab.

   wa-po   = 100004.
   wa-hold = ''.
   wa-tkey = 's005'.
   append wa to itab.

   wa-po   = 100004.
   wa-hold = ''.
   wa-tkey = 's006'.
   append wa to itab.

data : pono type char10.

LOOP AT itab into wa.
   IF wa-hold = 'X'.
     pono = wa-po.
   ENDIF.

   delete itab[] where po = pono.

ENDLOOP.

   LOOP AT itab into wa.
     write:/ wa-po, wa-hold, wa-tkey.
   ENDLOOP.

Regards,

Re: How to delete internal table rows

former_member222707 — Fri, 27 Apr 2012 08:27:26 GMT

Hi,

Have you tried my logic..it will work or you can go for Kumud's logic both will work

Regards,

Rakesh

Re: How to delete internal table rows

Former Member — Fri, 27 Apr 2012 08:33:54 GMT

Loop at IT_final into wa_final where hind = 'X'.

delete it_final where pono = wa_final-pono.

Endloop.

This should work!