Skip to Content
0
Former Member
Jun 30, 2009 at 09:52 PM

Problem to delete a Field Symbol

81 Views

Hi Gurus,

I have a problem here.

I have a Field Symbol that I need to delete one of these lines, but one of these lines is a "sub internal table".

I got in the FS the table gs_0001 and I need to delete only the field gs_0001-tab_c0200, but if I try this code below, it gives me a short dump.

I tried to do delete <fs_gs_0001>-tab_0200 index sy-tabix but it gives me a short dump too.

data: t_c170 type standard table of j_1befds_c_3_c170.

data: wa_0200 type j_1befds_0_2_0200,

wa_h010 type line of j_1befdt_h_3_h010,

wa_c170 type j_1befds_c_3_c170.

field-symbols:

<fs_gt_h010> type j_1befdt_h_3_h010,

<gs_c170> type j_1befds_c_3_c170,

<fs_gs_0001> type j_1befds_0_1_0001.

data: l_tabix type sy-tabix.

assign ('(J_1BEFD_MAIN)gt_h010[]') to <fs_gt_h010>.

assign ('(J_1BEFD_MAIN)gs_0001') to <fs_gs_0001>.

import tab_c170 to t_c170 from memory id 'C170'.

if <fs_gs_0001> is assigned.

loop at <fs_gs_0001>-tab_0200 into wa_0200.

read table <fs_gt_h010> with key cod_item = wa_0200-cod_item

transporting no fields.

if not sy-subrc ne 0.

  • -> delete <fs_gs_0001>-tab_0200 from wa_0200.*

endif.

read table t_c170 with key cod_item = wa_0200-cod_item

transporting no fields.

if not sy-subrc eq 0.

  • -> delete <fs_gs_0001>-tab_0200 from wa_0200.*

endif.

endloop.

endif.

Best Regards,

Ricardo