Append new column to internal table

Hi all,
i have an internal table that was generated based on an ddic structure - now i want to add a column to that table. how can i do that ?
thank you!
clemens

Hi to all, thank you for your help! here is the code that i have:
REPORT *************_4 .
TYPE-POOLS : abap.
FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
 <dyn_wa>,
 <dyn_field>.
TYPE-POOLS: slis.
TABLES: dd03l, dd04t.
TYPES:
BEGIN OF ty_table_struct,
 fieldname TYPE dd03l-fieldname, " Tabellenname
 ddtext TYPE dd04t-ddtext, " Kurztext
 checkbox,
 END OF ty_table_struct.
DATA:t_fieldcat TYPE slis_t_fieldcat_alv,
 w_fieldcat TYPE slis_fieldcat_main.
DATA:
gt_table_struct TYPE TABLE OF ty_table_struct.
DATA: v_repid TYPE sy-repid.
DATA:
 dy_table TYPE REF TO data,
 dy_line TYPE REF TO data,
 xfc TYPE lvc_s_fcat,
 ifc TYPE lvc_t_fcat,
 l_tab_fields TYPE STANDARD TABLE OF ty_table_struct,
 w_tab_fields LIKE LINE OF l_tab_fields.
SELECTION-SCREEN :
SKIP, BEGIN OF LINE,COMMENT 5(28) v_1 FOR FIELD p_table.
PARAMETERS p_table TYPE dd03l-tabname OBLIGATORY VALUE CHECK.
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
v_1 = 'Tabelle für Dublettenprüfung'.
v_repid = sy-repid.
START-OF-SELECTION.
PERFORM f_read_data.
PERFORM f_display_data.
PERFORM get_structure.
PERFORM create_dynamic_itab.
PERFORM get_data.
PERFORM write_out.
*& Form get_structure
FORM get_structure.
DATA : idetails TYPE abap_compdescr_tab,
 xdetails TYPE abap_compdescr.
DATA : ref_table_des TYPE REF TO cl_abap_structdescr.
* Get the structure of the table.
ref_table_des ?=
 cl_abap_typedescr=>describe_by_name( p_table ).
idetails[] = ref_table_des->components[].
LOOP AT idetails INTO xdetails.
 READ TABLE l_tab_fields INTO w_tab_fields
 WITH KEY fieldname = xdetails-name.
 IF sy-subrc = 0.
 CLEAR xfc.
 xfc-fieldname = xdetails-name.
 xfc-datatype = xdetails-type_kind.
 xfc-inttype = xdetails-type_kind.
 xfc-intlen = xdetails-length.
 xfc-decimals = xdetails-decimals.
 APPEND xfc TO ifc.
 ENDIF.
ENDLOOP.
ENDFORM. "get_structure
*& Form create_dynamic_itab
* text
FORM create_dynamic_itab.
* Create dynamic internal table and assign to FS
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = ifc
 IMPORTING
 ep_table = dy_table.
ASSIGN dy_table->* TO <dyn_table>.
* Create dynamic work area and assign to FS
CREATE DATA dy_line LIKE LINE OF <dyn_table>.
ASSIGN dy_line->* TO <dyn_wa>.
ENDFORM. "create_dynamic_itab
*& Form get_data
* text
FORM get_data.
* Select Data from table.
SELECT (l_tab_fields) INTO CORRESPONDING FIELDS OF TABLE <dyn_table>
 FROM (p_table).
ENDFORM. "get_data
*& Form write_out
* text
FORM write_out.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 i_program_name = v_repid
 i_structure_name = p_table
 CHANGING
 ct_fieldcat = t_fieldcat
 EXCEPTIONS
 inconsistent_interface = 1
 program_error = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
* Show only fields that are needed
LOOP AT t_fieldcat INTO w_fieldcat.
 READ TABLE l_tab_fields INTO w_tab_fields
 WITH KEY fieldname = w_fieldcat-fieldname.
 IF sy-subrc <> 0.
 DELETE t_fieldcat.
 ENDIF.
ENDLOOP.
w_fieldcat-tabname = '<dyn_table>'.
w_fieldcat-fieldname = 'NETPR'.
w_fieldcat-seltext_m = 'Net Price'.
w_fieldcat-outputlen = 15.
w_fieldcat-col_pos = 10.
* w_fieldcat-do_sum = 'X'. "Display column total
w_fieldcat-datatype = 'CURR'.
append w_fieldcat to t_fieldcat.
* Write out data from table.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 it_fieldcat = t_fieldcat
 I_BYPASSING_BUFFER = 'X'
 TABLES
 t_outtab = <dyn_table>
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. "write_out
*& Form f_read_data
* text
FORM f_read_data.
SELECT * FROM ( dd03l
 INNER JOIN dd04t
 ON dd03l~rollname = dd04t~rollname
 AND dd04t~ddlanguage = syst-langu
 AND dd04t~as4local = 'A' ) INTO CORRESPONDING FIELDS OF
TABLE
gt_table_struct WHERE dd03l~tabname = p_table .
ENDFORM. " F_READ_DATA
* Form f_display_data
FORM f_display_data.
* Macro definition
DEFINE m_fieldcat.
 add 1 to ls_fieldcat-col_pos.
 ls_fieldcat-fieldname = &1.
 ls_fieldcat-ref_tabname = &2.
 ls_fieldcat-rollname = &3.
 append ls_fieldcat to lt_fieldcat.
END-OF-DEFINITION.
TYPE-POOLS: slis. " ALV Global types
DATA:
 l_exit,
 ls_private TYPE slis_data_caller_exit,
 ls_field TYPE ty_table_struct,
 ls_fieldcat TYPE slis_fieldcat_alv,
 lt_fieldcat TYPE slis_t_fieldcat_alv.
* Build the field catalog
m_fieldcat 'FIELDNAME' 'ty_table_struct' 'FIELDNAME'.
m_fieldcat 'DDTEXT' 'ty_table_struct' 'DDTEXT'.
* Optimize column width
ls_private-columnopt = 'X'.
* Display data in a popup
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
 EXPORTING
 i_selection = 'X'
 i_zebra = 'X'
 it_fieldcat = lt_fieldcat
 i_tabname = 'gt_table_struct'
 i_checkbox_fieldname = 'CHECKBOX'
 is_private = ls_private
 IMPORTING
 e_exit = l_exit
 TABLES
 t_outtab = gt_table_struct.
CHECK l_exit = space.
* write selected columns to the internal table for inclusion
* into fieldcat
LOOP AT gt_table_struct INTO ls_field WHERE checkbox = 'X'.
 APPEND ls_field-fieldname TO l_tab_fields.
ENDLOOP.
ENDFORM.
What
i want it to do is, have the alvgrid displaying the fields from t_fieldcat, plus some fields ( that should be appended to the internal table before, i think ? ). What went wrong ?
Clemens

Similar Messages

How to Delete a Column in Internal Table

Hi All,
Does any one know ,How to Delete a Column in Internal Table?

Hi,
For deleting the column in the internal table, you have to eliminate the field which you want to delete.
loop at itab into wa.
move corresponding wa to wa1.
append wa1 to itab1.
clear wa1.
clear wa.
endloop.
wa1 is the workarea without the field which you want to delete.
itab1 is the internal table which consists of the deleted column.

Add a field in a form after creating a new column in a table

Hi,
I have searched extensively in the help menus and tutorials and maybe I have missed this, but after adding a new column to a table. How do I update the form so that when data is entered into the form it is populated in the table? Is there a tutorial or explanation of the process somewhere?
Thanks,

Hi
That has to be done manually but it is simple. Create a new item of the desired type e.g. Text Item, Select List by Right clicking on the region and select Create Page Item. A wizard will start where you will select the desired type. Press next and enter the name of the item. e.g. P3_LAST_NAME. Press Next and Enter a label for the Item. Press next and choose Source Type as Database Column when asked. Press Create button.
Hope it helps.
Zulqarnain
MaxApex Hosting
http://www.maxapex.com

Can't add a new column to LCD table? Option there, just wont add it.

I have a LCD form with a table in it. Im trying to simply add a new column to the table. The option is there but the column just wont appear after clicking add Column to Left. I selected a column, right clicked the space > Insert > Column to left. But wont intsert. The table object properties tab shows rows and colum numbers but they are grayed out.
See screenshots:
http://www.emermed.net/staging/forums...
http://www.emermed.net/staging/forums...
This is a dynamic table where a new row can be inserted using a button. Is that dynamic nature the issue? Id hate to undo all the dynamic flow and programming just to add a column then reapply everything.
Thanks!

Hi,
You don't add columns in the Object > Table palette (Screenshot 2). I suspect that the problem is that there is not enough on the page (within the content area) to actually add the column. In Screenshot 1, if you look at the width of the highlighted column versus the space available to the right of the table, you will see that a column cannot be added due to space restrictions.
Reduce the width of the highlighted column (temporarily), then add a column. Once added, you can resize the columns to match the page width.
Hope that helps,
Niall

Check 2 tables(Table A and Table B) and figure out new columns present in Table A and add these new columns to Table B

How to check 2 tables(Table A and Table B) and figure out new columns present in Table A and add these new columns to Table b.
DDL-
Create table A
( A INT,
B INT,C VARCHAR(2)
Create table B
A INT,
B INT
Any advice on the best approach or method to achieve this.
I understand that I need to check the schema of the columns and then do a match between 2 tables and find new columns and then alter my target table
Mudassar

Can you try this..
CREATE TABLE A ( A INT, B INT, C VARCHAR(2) )
CREATE TABLE B ( A INT, B INT )
Declare @ColumnVar nvarchar(128),@DatatypeVar nvarchar(128)
SELECT @ColumnVar=x.COLUMN_NAME, @DatatypeVar=x.DATA_TYPE
FROM INFORMATION_SCHEMA.COLUMNS AS x
WHERE TABLE_NAME = 'A'
AND NOT EXISTS ( SELECT *
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = 'B'
AND COLUMN_NAME = x.COLUMN_NAME )
Declare @SQL VarChar(1000)
SELECT @SQL = 'ALTER TABLE B ADD ' + @ColumnVar + ' '+ @DatatypeVar
Exec (@SQL)
select * from B
Please Mark This As Answer if it helps to solve the issue
http://stackoverflow.com/questions/2614101/alter-table-my-table-add-column-int

Add a new column in item table control of va01 screen

Hi All,
i have requirement to add new column in item table control of va01 screen 4900 for the custome field of vbap table
the required coloum is add with the help of access key
however whem i am trying to save data, that custom field is not populate
please let me know if any one had work on this

I think i solved the problem . The single way to to that is to modify the SAP standard Screen.

ADF - New columns in DB table need to be reflected in Data Control Palette

I am new to ADF. I am editing a JSF that does add and edit to data in database table. I added new columns to the table and need to modify the JSF accordingly.
I have not been able to find info on how to take a new "snapshot" of the database table that will reflect my new columns in the DataBindings.cpx.
Can someone steer me in the right direction?
Thanks,
Chris

Chris,
if your business service is ADF BC, then synchronize the EO with the database for it to pick up the changes. Once this is done, go to the VO and add the two new attributes. Right after that the data control palette will show the new entries.
If you use EJB as a business service layer, change the entity classto expose the two attributes, re-generate the session facade ad then re-generate the data control.
Frank

How to append new rows in a table with Javascript ?

Hi ,
I'd like to append new rows in a table dynamically using javascript?
Do some of you have already done this before ?

Rui's answer will create copies of the entire table. There may be times where thsi is what you want, but you asked about creating new rows. If your new row is a copy of one of your existing rows, then you could use
_RowName.addInstance(1);
(the underscore at the beginning invokes the instance manager). Is this what you're looking for?

CONVERT ROWS INTO COLUMNS IN INTERNAL TABLE

Hi Experts,
I want to convert rows into coloumns in final internal table.
How to do that one. Can any one help me its very urgent.
Regards,
PBS.

hi,
Find the below code for changing rows into colums.
data: begin of itab1 occurs 0,
fld,
end of itab1.
data: begin of itab2 occurs 0,
fld1,
fld2,
fld3,
end of itab2.
itab1-fld = 1.
append itab1.
itab1-fld = 2.
append itab1.
itab1-fld = 3.
append itab1.
read table itab1 index 1.
if sy-subrc eq 0.
itab2-fld1 = itab1-fld.
endif.
read table itab1 index 2.
if sy-subrc eq 0.
itab2-fld2 = itab1-fld.
endif.
read table itab1 index 3.
if sy-subrc eq 0.
itab2-fld3 = itab1-fld.
endif.
append itab2.
loop at itab1.
write:/ itab1.
endloop.
loop at itab2.
write:/ itab2.
endloop.
refer the below link for further information
internal table rows to columns
in the final display list how can i change rows to columns and vice versa

Dynamical columns in internal table

Hi all.
I need to make an internal table with dynamical columns(i have 3 static columns and the rest depends on the number of clients that i have in a month). If it's possible, how can i do it?
Can anyone please help.
Thanks & Regards

Hi,
type-pools : abap.
field-symbols: <dyn_table> type standard table,
 <dyn_wa>,
 <dyn_field>.
data: dy_table type ref to data,
 dy_line type ref to data,
 xfc type lvc_s_fcat,
 ifc type lvc_t_fcat.
selection-screen begin of block b1 with frame.
parameters: p_table(30) type c default 'T001'.
selection-screen end of block b1.
start-of-selection.
 perform get_structure.
perform create_dynamic_itab. *Creates a dyanamic internal table **
perform get_data.
perform write_out.
form get_structure.
data : idetails type abap_compdescr_tab,
 xdetails type abap_compdescr.
data : ref_table_des type ref to cl_abap_structdescr.
* Get the structure of the table.
ref_table_des ?=
 cl_abap_typedescr=>describe_by_name( p_table ).
idetails[] = ref_table_des->components[].
 loop at idetails into xdetails.
 clear xfc.
 xfc-fieldname = xdetails-name .
 xfc-datatype = xdetails-type_kind.
 xfc-inttype = xdetails-type_kind.
 xfc-intlen = xdetails-length.
 xfc-decimals = xdetails-decimals.
 append xfc to ifc.
endloop.
endform.
form create_dynamic_itab.
* Create dynamic internal table and assign to FS
call method cl_alv_table_create=>create_dynamic_table
 exporting
 it_fieldcatalog = ifc
 importing
 ep_table = dy_table.
 assign dy_table->* to <dyn_table>.
* Create dynamic work area and assign to FS
create data dy_line like line of <dyn_table>.
assign dy_line->* to <dyn_wa>.
endform.
form get_data.
* Select Data from table.
select * into table <dyn_table>
 from (p_table).
endform.
 Write out data from table.
loop at <dyn_table> into <dyn_wa>.
 do.
 assign component sy-index
 of structure <dyn_wa> to <dyn_field>.
 if sy-subrc <> 0.
 exit.
 endif.
 if sy-index = 1.
 write:/ <dyn_field>.
 else.
 write: <dyn_field>.
 endif.
 enddo.
endloop.
Regards
Sudheer

New columns in the table control do not appear

Hi,
We have a requirement to add two fields(columns) in a table control for a transaction upon clicking Create button and those two fields should be editable. We have added the two fields in the table control. But, they do not appear in the transaction ( If I delete an existing column, then I am able see the new column). Have checked everywhere, but not sure if I am missing something here. There is no hide statement used.
Appreciate help on this.
Thanks,
Pavan

Hi Pavan,
What I understood is you are adding fields to the table control dynamically.\
For that you have to use field-symbols to add fields to the work area dynamically.
( If this is not your actual requirement share your code with me I will try to solve it. )
Regards,
Swaroop

How to determine most recent date from the date column of internal table

Dear friends
would you like to tell me. how i determine the most recently changed record by looking at date and time from internal table i am not supposed to sort the table by date and time... I must check date and time with other records date and time to determine which record is most recently changed...
here the scenario is.
id idnumber chdate chtime
1 123456 20060606 135312
2 123456 20060606 135900
3 123456 20060606 132300
4 123457 20060606 140000
5 123457 20060606 142500
in the above scenario i must keep in my mind that the most recently changed record is identical to its idnumber i can say that:
the record should be fetched this way
id idnumber chdate chtime
3 123456 20060606 132300
5 123457 20060606 142500
because here the id 3 is the most recently changed in the idnumber 123456
where id 5 is the most recently changed in the idnumber 123457
please help me to determin how i am supposed to carry out this task any suggestion, code will be great help of mine.
regards
Naim

After testing my suggestion above, I realized that it doesn't work because the delete adjacent actually will keep the first one and delete the rest. I'm working with Srinivas's code a bit now, I think it is almost what you want. I am under the impression that you dont' want to HIGHest date/time, but just the last record of the sequence, if this is the case, then this code will help. Here we will assign an index to each record per the idnumber, that way we can sort it and get the lastest record.
report zrich_0001.
types: begin of itab_type,
 id type i,
 idnumber type i,
 chdate like sy-datum,
 chtime like sy-uzeit.
types: end of itab_type.
types: begin of itab_type2,
 id type i,
 idnumber type i,
 index type i,
 chdate like sy-datum,
 chtime like sy-uzeit.
types: end of itab_type2.
data: itab type table of itab_type with header line,
 itab2 type table of itab_type2 with header line,
 prev_rec type itab_type.
data: v_id type i.
start-of-selection.
itab-id = 1.
itab-idnumber = 123456.
itab-chdate = '20060606'.
itab-chtime = '135312'.
append itab. clear itab.
itab-id = 2.
itab-idnumber = 123456.
itab-chdate = '20060606'.
itab-chtime = '135900'.
append itab. clear itab.
itab-id = 3.
itab-idnumber = 123456.
itab-chdate = '20060606'.
itab-chtime = '142500'.
append itab. clear itab.
itab-id = 4.
itab-idnumber = 123457.
itab-chdate = '20060606'.
itab-chtime = '140000'.
append itab. clear itab.
itab-id = 5.
itab-idnumber = 123457.
itab-chdate = '20060606'.
itab-chtime = '120000'.
append itab.
clear itab.
 data: counter type i.
* Assign an index to each row per idnumber
loop at itab.
 on change of itab-idnumber.
 if sy-tabix > 1.
 clear counter.
 endif.
 endon.
 clear itab2.
 move-corresponding itab to itab2.
 counter = counter + 1.
 itab2-index = counter.
 append itab2.
endloop.
* Sort it and get rid of older records.
sort itab2 by idnumber ascending
 index descending.
delete adjacent duplicates from itab2 comparing idnumber.
read table itab2 with key idnumber = '123456'.
write:/ itab2-chdate, itab2-chtime.
read table itab2 with key idnumber = '123457'.
write:/ itab2-chdate, itab2-chtime.
Regards,
Rich Heilman

How to append data from an internal table to an external table.

HI everyone,
I am trying to update an DB table type 'c'from the data captured in my internal table. can any one tell me as to how to do this.the contents of the DB table needs to be erased completly before i send in new data.
Regards,
Vj

Assuming that you table has 1 character field(?) besides the MANDT field
MANDT
FIELD
you need to update this db table with values from ITAB which I assume has one field of type c.
To first delete all of the data from DB table.
* Yes there are other ways of doing this.
tables: ztable.
select * from ztable.
delete ztable.
endselect.
Then simply LOOP your internal table and update the table.
loop at itab.
ztable-field = itab-field.
insert ztable.
endloop.
Regards,
Rich Heilman

How to append records between two internal tables

hi all,
im trying to append from an internal table to another internal table with same structure. i tried the following but it overwrites previous contents of i_dest:
move i_src to i_dest
thanks,
sid

hey u try to move it record by record
itab2 = itab.
append itab2.
This should work I guess
just check the code below, if u want to move the whole itab into itab2 then use itab2[] = itab.
loop at it_pgm.
read table itab with key obj_name = it_pgm-pgm_name.
if sy-subrc = 0.
 itab_final-obj_name = itab-obj_name.
 itab_final-func_spec = itab-func_spec.
 itab_final-func_area = itab-func_area.
 itab_final-dev_class = itab-dev_class.
 append itab_final.
else.
 itab_alt-pgm_name = it_pgm-pgm_name.
 append itab_alt.
endif.
please reward points if found helpful

Append a record to internal table

hello:
when i execute the code below,there is a runtime error." In die sortierte interne Tabelle (Typ SORTED_TABLE)
"PROGRAM=ZJOIN_INTER_TABLEDATA=T_ITAB1" sollte an
Position 1 eine Zeile eingefügt bzw. geändert werden.
Dadurch wurde die für die Tabelle durch ihren Schlüssel festgelegte
Sortierreihenfolge zerstört."
how can i resolve it?which one can tell me?Thanks very much
REPORT ZJOIN_INTER_TABLE.
DATA:BEGIN OF WA_ITAB,
        COL1 TYPE I,
        COL2(10) TYPE C,
      END OF WA_ITAB.
DATA:T_ITAB1 LIKE SORTED TABLE OF WA_ITAB WITH NON-UNIQUE KEY COL1.
WA_ITAB-COL1 = 10.
WA_ITAB-COL2 = 'col2'.
APPEND WA_ITAB TO T_ITAB1.
WA_ITAB-COL1 = 9.
WA_ITAB-COL2 = 'col2'.
APPEND WA_ITAB TO T_ITAB1.

hi
kindly go thro the lines.
syntax:
DATA itab {TYPE tabkind OF linetype|LIKE tabkind OF lineobj}
          WITH [UNIQUE|NON-UNIQUE] keydef
          [INITIAL SIZE n] [WITH HEADER LINE].
The system creates an internal table with table type tabkind. Since there is no generic field definition, you cannot use the table types ANY TABLE or SORTED TABLE.
The construction of the table lines is defined by linetype (if you are using a TYPE reference) or by the type of the referred object lineobj (if you are using a LIKE reference). If you specify the line type, you can also use REF TO to refer to a reference type.
The same rules apply to UNIQUE and NON-UNIQUE as apply to the TYPES definition. You may only omit this specification with standard tables.
If you do not specify an INITIAL SIZE, the system assumes a default value of INITIAL SIZE 0.
i think now u r clear... now yr code will work.
DATA:BEGIN OF WA_ITAB,
COL1 TYPE I,
COL2(10) TYPE C,
END OF WA_ITAB.
DATA:T_ITAB1 like TABLE OF WA_ITAB WITH NON-UNIQUE KEY COL1.
WA_ITAB-COL1 = 10.
WA_ITAB-COL2 = 'col2'.
APPEND WA_ITAB TO T_ITAB1.
WA_ITAB-COL1 = 9.
WA_ITAB-COL2 = 'col2'.
APPEND WA_ITAB TO T_ITAB1.

Append new column to internal table

Similar Messages

Maybe you are looking for