topic Re: Delete rows from an internal table in Application Development and Automation Discussions

Delete rows from an internal table

former_member206394 — Tue, 08 May 2012 15:04:06 GMT

i have two internal tables.

say: internal_table1 and internal_table2 with content as follows:

internal_table1 has only one field i.e., objid

internal_table2 it of type qcat_stru.

internal_table2 has been filled with data that has been extracted with L-D-E evaluation path.(so it contains otypes of L, D, E, P).

Where as internal_table1 is filled for all entries in internal_table2 with otype = 'E' and relat = 024 and sclas = 'F' and sobid in s_loc(select options).

Now, i need to delete rows from internal_table2 where otype = 'E' and objid other than those in internal_table1. Can anyone help me in this regard.

Re: Delete rows from an internal table

Former Member — Tue, 08 May 2012 15:24:15 GMT

What have you tried so far?

Rob

Re: Delete rows from an internal table

Former Member — Tue, 08 May 2012 18:01:54 GMT

LOOP AT itab2 into ls_itab2.

IF ls_itab2-otype = 'E'.

CONTINUE.

ENDIF.

READ TABLE itab1 TRANSPORTING NO FIELDS

WITH KEY objid = ls_itab2-objid.

IF sy-subrc = 0.

CONTINUE.

ENDIF.

DELETE itab2.

ENDLOOP.

I hope it helps.

Kind regards,

Vasco Bradão

Re: Delete rows from an internal table

Former Member — Wed, 09 May 2012 02:37:51 GMT

Hi,

Please show us some of your program code.

Jake.

Re: Delete rows from an internal table

Former Member — Wed, 09 May 2012 05:28:52 GMT

Hi Shankar,

I hope this code helps.

Delete itab2 where otype = ‘E’. "deletes itab2 where otype is 'E'

Loop at itab2 into wa2.

Read table itab1 into wa1 with key objid = wa2-objid.

If sy-subrc NE 0.

Delete itab1 where objid = wa1-objid. "Deletes itab2 where objid not in itab1.

Endif.

Endloop.

Thanks,

Aravind

Re: Delete rows from an internal table

former_member196490 — Wed, 09 May 2012 05:53:35 GMT

Try this.

Loop at internal_table_2.

l_tabix = sy-tabix.

Read table internal_table_1 with key objid = internal_table_2-objid.

If sy-subrc= 0.

delete internal_table_2 index l_tabix.

endif.

endloop.

Re: Delete rows from an internal table

Private_Member_49934 — Wed, 09 May 2012 08:41:13 GMT

Isn't it a damn basic question?

Re: Delete rows from an internal table

Former Member — Wed, 09 May 2012 09:09:59 GMT

Hi Shankar,

Firstly, declare a char1 field (say 'FLAG') in the type of internal_table2. Once both the tables have been populated, do the following:

1. DELETE internal_table2 WHERE otype = 'E'. (Solution to the first part of your problem)

2. SORT internal_table1 BY objid.

3. DATA: li_itab1 LIKE internal_table1, l_index TYPE sytabix.

4. li_itab1[] = internal_table1[].

5. SORT li_itab1 BY objid.

6. DELETE ADJACENT DUPLICATES FROM li_itab1 COMPARING objid.

3. LOOP AT internal_table2 INTO work_area2.

l_index = sy-tabix.

READ TABLE li_itab1 INTO work_area1 WITH KEY objid = work_area2-objid.

IF sy-subrc NE 0.

work_area2-flag = 'X'.

MODIFY internal_table2 FROM work_area2 INDEX l_index

TRANSPORTING flag.

ENDIF.

CLEAR: work_area1, work_area2, l_index.

ENDLOOP.

4. DELETE internal_table2 WHERE flag = 'X'. (Solution to the second part of your problem)

Hope it helps.

Regards,

Gautam.

Re: Delete rows from an internal table

former_member206394 — Wed, 09 May 2012 10:35:03 GMT

Hi everyone,

here is the exact requirement.

{code}

DATA BEGIN OF tab_struct OCCURS 0.
        INCLUDE STRUCTURE qcat_stru.
        data END OF tab_struct.
types: begin of ty_loc_e,
objid type hrp1001-objid,
end of ty_loc_e.
data: it_loc_e type STANDARD TABLE OF TY_LOC_E with HEADER LINE,
        WA_LOC_E TYPE TY_LOC_E.

CALL FUNCTION 'RHPH_STRUCTURE_READ'
        EXPORTING
          plvar             = '01'
          otype             = 'L'
          objid             = '50000000'
          wegid             = 'L-D-E-§'
          begda             = '19000101'
          endda             = '99991231'
          tdepth            = '12'
        TABLES
          stru_tab          = tab_struct
        EXCEPTIONS
          catalogue_problem = 1
          root_not_found    = 2
          wegid_not_found   = 3
          OTHERS            = 4.
    ENDIF.

    SELECT objid FROM hrp1001 INTO TABLE it_loc_e
                            FOR ALL ENTRIES IN tab_struct
                            WHERE otype = 'E' AND
                                  objid = tab_struct-objid AND
                                  plvar = '01' AND
                                  relat = '024' AND
                                  sclas = 'F' AND
                                  sobid IN s_loc.

{code}

tab_struct contains all the data of different otypes (like L,D,E,P).

and it_loc_e contains only E type.

Now, i want to delete the records in tab_struct which are otype = 'E' and objid other than those records in it_loc_e.

please help me in this regard.

Re: Delete rows from an internal table

Former Member — Wed, 09 May 2012 10:39:25 GMT

SORT tab_struct BY otypes.
DELETE tab_struct WHERE otypes NE 'E'.

Jake.

Re: Delete rows from an internal table

former_member196490 — Wed, 09 May 2012 10:49:12 GMT

loop at tab_struct where otype = 'E'.

l_index = sy-tabix.

read table it_loc_e with key objid = tab_struct-objid.

If sy-subrc = 0.

delete tab_struct index l_tabix.

endif.

endloop.

Re: Delete rows from an internal table

former_member206394 — Wed, 09 May 2012 10:52:33 GMT

i dont want to delete all the otypes other than 'E'.

but, lets take an example.

if tab_struct has the following data:

1 L 50000000 EADS TRAINING CATALOGUE 20090101 99991231 00000000

2 L 50000001 50000001 B BUSINESS SUPPORT 20090101 99991231 20090101

3 L 50000012 50000012 B01 Communication & External Affairs** 19000101 99991231 20090101

4 D 10029871 10029871 Cost Center Test Héritage Cost Center Jonathan 20100101 99991231 20100101

5 E 10002539 10002539 E 11 Test Héritage Cost Center Jonathan 20100903 20100904 20100903

6 P 00001200 00001200 Imp Mr Chief 1 FR Imp 20090101 99991231 20100903

7 E 10111280 10111280 E 11 Test Héritage Cost Center Jonathan 20110501 20110502 20110501

8 E 10111303 10111303 E 11 Test Héritage Cost Center Jonathan 20110501 20110502 20110501

9 H 00000001 00000001 Otto Ottokar Otto 19970101 99991231 20110501

10 E 10111304 10111304 E 11 Test Héritage Cost Center Jonathan 20110503 20110504 20110503

11 E 10111543 10111543 E 11 Test Héritage Cost Center Jonathan 20111201 20111202 20111201

12 E 10111588 10111588 E 11 Test Héritage Cost Center Jonathan 20111205 20111214 20111205

and if it_loc_e has the following data

1. 10111304

2. 10111543

now, from tab_struct content, i want to delete all the records of type E other than 10111304, 10111543.(all L,D,P type data should remain the same.) and my new content should be as follows

1 L 50000000 EADS TRAINING CATALOGUE 20090101 99991231 00000000

2 L 50000001 50000001 B BUSINESS SUPPORT 20090101 99991231 20090101

3 L 50000012 50000012 B01 Communication & External Affairs** 19000101 99991231 20090101

4 D 10029871 10029871 Cost Center Test Héritage Cost Center Jonathan 20100101 99991231 20100101

5 P 00001200 00001200 Imp Mr Chief 1 FR Imp 20090101 99991231 20100903

6 H 00000001 00000001 Otto Ottokar Otto 19970101 99991231 20110501

7 E 10111304 10111304 E 11 Test Héritage Cost Center Jonathan 20110503 20110504 20110503

8 E 10111543 10111543 E 11 Test Héritage Cost Center Jonathan 20111201 20111202 20111201

please help me in this regard

Re: Delete rows from an internal table

former_member196490 — Wed, 09 May 2012 10:56:50 GMT

With the below code only records those records in the table tab_struct would be deleted which have obtyp = 'E' and are not present in it_loc_e.

loop at tab_struct where otype = 'E'.

l_index = sy-tabix.

read table it_loc_e with key objid = tab_struct-objid.

If sy-subrc <> 0.

delete tab_struct index l_tabix.

endif.

endloop

Re: Delete rows from an internal table

former_member196490 — Wed, 09 May 2012 10:58:08 GMT

it should be sy-subrc<> 0 in the 4th line above

Re: Delete rows from an internal table

Former Member — Wed, 09 May 2012 11:19:22 GMT

as i understand your issue.

you want to delete record from tab_structure which otypes = E and which is not in it_loc_e.

sort tab_structure by otypes.

read tab_structure into wa_tab_structure index 1.

if wa_tab_structure-otypes = e.

read table it_loc_e into wa_it_loc_e with key wa_it_loc_e -objid = wa_tab_structure -objid.

if sy_subrc <> 0.

delete tab_structure from wa_tab_structure.

endif.

index = index +1.

revert if any problem

regards

rohit

Re: Delete rows from an internal table

Former Member — Wed, 09 May 2012 12:59:11 GMT

It is - that's why it's locked now.

The answer from Neha Sinha was marked as correct.

Rob