Modifying dynamic internal table

[former_member210857]

Hi Experts ,

I have a requirement to modify dynamic internal table..

Eg:

In the below screen grab there is two consulting Exp .I want to make it a single row and modify values accordingly.I have checked in forums and everywhere it is showing how  to append a dynamic internal table. I want to modify internal table

Thanks and Regards,

Subeesh Kannottil

[custodio_deoliveira]

If you want to summarize values, why dont you use COLLECT statement?

[Former Member]

please search for the use of COLLECT before the real use (as it is not always clear, how and which columns will be summarized). For me a simple copy of the internal table with reading / appending lines is a better approach as for the clearness of the code.

[former_member210857]

Thanks for the reply,

I dont want to add the values in the fields,

As you can see in the picture Consulting expenses comes twice ,

First one got value in the first column and second one in the 5 th column .

I want consulting expenses as one row filled with '555 ' in the first column and '13000' in the fifth row

thanks and regards ,

Subeesh Kannottil

[Former Member]

then probably you do not want to add the row but search for an existing one? Our response is probably still the same

[Former Member]

If I'm not wrong, I think that he needs to merge the records DINAMICALLY field by field.

I'm trying to find a solution!!!

[Former Member]

I've tried to find a solution but unfortunately there is no ABAP STATEMENT (like COLLECT) / FUNCTION MODULE that could allow you to make this operation.

I think that you have to make a routine form to manage this type of situation properly.

Hope that someone could light up this post.

Finger crossed.

[Former Member]

Debug below snippet and observe how internal table changes.

1. TYPES:
2. BEGIN OF ty,
3.   name TYPE char10,
4.   val1 TYPE i,
5.   val2 TYPE i,
6. END OF ty.
7. DATA: lt TYPE TABLE OF ty,
8.       ls TYPE ty.
9. ls-name = 'consulting'.
10. ls-val1 = 1.
11. APPEND ls TO lt.
12. CLEAR ls-val1.
13. ls-val2 = 5.
14. APPEND ls TO lt.
16. DATA lv_value TYPE i.
17. PERFORM get_value USING lt 2 3 lv_value.
18. PERFORM modify_record USING lt 1 3 lv_value.
19. PERFORM delete_record USING lt 2.
20. *----------------------------------------------------------------------*
21. FORM get_value  USING    pt TYPE STANDARD TABLE
22.                          pv_index
23.                          pv_column
24.                          pv_value.
25.   FIELD-SYMBOLS: <fs_record> TYPE ANY,
26.                  <fs_value> TYPE ANY.
27.   READ TABLE pt ASSIGNING <fs_record> INDEX pv_index.
28.   CHECK sy-subrc EQ 0.
29.   ASSIGN COMPONENT pv_column OF STRUCTURE <fs_record> TO <fs_value>.
30.   CHECK sy-subrc EQ 0.
31.   pv_value = <fs_value>.
32. ENDFORM.                    " GET_VALUE
33. *----------------------------------------------------------------------*
34. FORM modify_record  USING    pt TYPE STANDARD TABLE
35.                              pv_index
36.                              pv_column
37.                              pv_value.
38.   FIELD-SYMBOLS: <fs_record> TYPE ANY,
39.                  <fs_value> TYPE ANY.
40.   READ TABLE pt ASSIGNING <fs_record> INDEX pv_index.
41.   CHECK sy-subrc EQ 0.
42.   ASSIGN COMPONENT pv_column OF STRUCTURE <fs_record> TO <fs_value>.
43.   CHECK sy-subrc EQ 0.
44.   <fs_value> = pv_value.
45. ENDFORM.                    " MODIFY_RECORD
46. *----------------------------------------------------------------------*
47. FORM delete_record  USING    pt TYPE STANDARD TABLE
48.                              pv_index.
49.   DELETE pt INDEX pv_index.
50. ENDFORM.                    " DELETE_RECORD

/.