Hi all,
I have an internal table itab_data with some fields in it.
I need to add few more fields to this internal table during run-time based on some conditions. All the fields to be added is of same data type . But the number of fields vary based on input.
Itab_data contains
matnr type mara-matnr
maktx type makt-maktx.
Now, based on input i need to add few more fields of type AUSP-ATWRT.
The field names are like atwrt1 , atwrt2...atwrt n ..
Hope my question is clear..
Thanking you in advance ..
Shankara Narayanan T.V
6 Answers
-
Best Answer
Former MemberPosted on Oct 20, 2006 at 12:30 PMHi
U can't change the structure of an internal table dynamically, u should create a new table with the fields of the old table and the new fields.
U can use the method CREATE_DYNAMIC_TABLE of class CL_ALV_TABLE_CREATE to create a table dynamically.
After creating it you have to transfer all data from old to new table.
Max
Add a comment
-
Former MemberPosted on Oct 20, 2006 at 12:18 PM
Hi ,
declare the fields in ur itab. like as u r saying ausp-atwrt.
now in the debugging put a break point near ur itab.
here u have insert , change , delete options for the itab.
click on an entry and enter the atwrt in that line and now press change ..
if u see the line populated with ur new field then i think u r on right track ..
but the itab structure must contain the field auart in the structure other wise it cant hold ..
regards,
VIjay.
now try to add a field to this
Add a comment
-
Former MemberPosted on Oct 20, 2006 at 12:21 PM
Hi Shankara,
you can make an internal table in an internal table:
Data: begin of itab occurs 0,
matnr like mara-matnr,
maktx like makt-maktx,
begin of itab1 occurs 0,
atwrt like ausp-atwrt,
end of itab1,
end of itab.
...
loop at itab.
write: / itab-matnr, itab-maktx.
loop at itab-itab1.
write: itab-itab1-atwrt.
endloop.
endloop.
Regards, dieter
Add a comment
-
Former MemberPosted on Oct 20, 2006 at 12:25 PM
I am not sure of if we can do that dynamically ...but I can put forth another soln as below.
1. Add two fields to your internal table itab_data.
ie serial(2) type n and
data(10) type c.
2. Populate the data for the material characterstics with incrementing the serial number.
3. Manipulate the data while writing the output to print/write in as columns.
Loop at itab_data.
at new maktx.
write : / matnr, maktx.
clear ltext.
endat.
lcnt = itab_data-serial - 1.
lcnt = lcnt * 10. (display length for charc)
write itab_data-data(10) to ltext+lcnt(10).
at end of maktx.
write ltext.
endat.
endloop.
Add a comment
-
Former MemberPosted on Oct 20, 2006 at 12:44 PM
Hi Shankara,
i made a little mistake in my example.
Here a working code:
REPORT ZGRO_TEST1 MESSAGE-ID ZZ.
*
TABLES: MARA, MAKT.
*
TYPES: BEGIN OF ITABX,
ATWRT LIKE AUSP-ATWRT,
END OF ITABX.
*
DATA: WA_ITAB1 TYPE ITABX.
*
DATA: BEGIN OF ITAB OCCURS 0,
MATNR LIKE MARA-MATNR,
MAKTX LIKE MAKT-MAKTX,
ITAB1 TYPE TABLE OF ITABX,
END OF ITAB.
*
START-OF-SELECTION.
*
SELECT * FROM MARA UP TO 10 ROWS.
*
CLEAR: ITAB.
REFRESH: ITAB-ITAB1.
*
SELECT SINGLE * FROM MAKT WHERE MATNR = MARA-MATNR
AND SPRAS = SY-LANGU.
*
ITAB-MATNR = MARA-MATNR.
ITAB-MAKTX = MAKT-MAKTX.
<b>* Fill this like you want
WA_ITAB1-ATWRT = '100'.
APPEND WA_ITAB1 TO ITAB-ITAB1.
WA_ITAB1-ATWRT = '200'.
APPEND WA_ITAB1 TO ITAB-ITAB1.
WA_ITAB1-ATWRT = '300'.
APPEND WA_ITAB1 TO ITAB-ITAB1.
WA_ITAB1-ATWRT = '400'.
APPEND WA_ITAB1 TO ITAB-ITAB1.</b>*
APPEND ITAB.
*
ENDSELECT.
*
LOOP AT ITAB.
WRITE: / ITAB-MATNR, ITAB-MAKTX.
LOOP AT ITAB-ITAB1 INTO WA_ITAB1.
WRITE: WA_ITAB1-ATWRT.
ENDLOOP.
ENDLOOP.
*
END-OF-SELECTION.
Regards, Dieter
Add a comment
Add a comment