‎2010 May 25 11:53 PM
How we can use Modify <dyanamic Table> from work area Transporting.....?
Please give example for using TRANSPORTING
‎2010 May 26 12:27 AM
Hi Rita
You can use TRANSPORTING statment as sample below:
PARAMETERS p_carrid TYPE scarr-carrid.
DATA scarr_tab TYPE SORTED TABLE OF scarr
WITH UNIQUE KEY carrid.
DATA: idx TYPE sy-tabix,
scarr_wa TYPE scarr.
SELECT *
FROM scarr
INTO TABLE scarr_tab.
READ TABLE scarr_tab
WITH TABLE KEY carrid = p_carrid
TRANSPORTING NO FIELDS.
idx = sy-tabix.
scarr_wa-currcode = 'EUR'.
MODIFY scarr_tab INDEX idx FROM scarr_wa
TRANSPORTING currcode.
If you need a dynamic table you can use field symbols and define transporting list into a internal table where each line contains one field name.
Kind regards
Carlos Machado
‎2010 May 26 12:27 AM
Hi Rita
You can use TRANSPORTING statment as sample below:
PARAMETERS p_carrid TYPE scarr-carrid.
DATA scarr_tab TYPE SORTED TABLE OF scarr
WITH UNIQUE KEY carrid.
DATA: idx TYPE sy-tabix,
scarr_wa TYPE scarr.
SELECT *
FROM scarr
INTO TABLE scarr_tab.
READ TABLE scarr_tab
WITH TABLE KEY carrid = p_carrid
TRANSPORTING NO FIELDS.
idx = sy-tabix.
scarr_wa-currcode = 'EUR'.
MODIFY scarr_tab INDEX idx FROM scarr_wa
TRANSPORTING currcode.
If you need a dynamic table you can use field symbols and define transporting list into a internal table where each line contains one field name.
Kind regards
Carlos Machado
‎2010 May 26 1:03 AM
yes, but this is for general table. I need for dyanamic table where field name is unknown.
‎2010 May 26 1:57 AM
Hi
You can use example below:
&----
*& Report ZC020
*&
&----
*&
*&
&----
REPORT ZC020.
PARAMETERS:
p_table LIKE dd02l-tabname OBLIGATORY DEFAULT 'ZC001'.
FIELD-SYMBOLS:
<wa> TYPE ANY,
<fs> TYPE ANY,
<field> TYPE ANY,
<table> TYPE ANY TABLE.
DATA:
x_table LIKE dd02l-tabname,
x_line TYPE REF TO DATA,
x_tabdef TYPE REF TO DATA,
t_fields(30) TYPE c OCCURS 0.
START-OF-SELECTION.
x_table = p_table.
CREATE DATA x_line TYPE (p_table).
ASSIGN x_line->* TO <wa>.
CREATE DATA x_tabdef TYPE STANDARD TABLE OF (p_table) .
ASSIGN x_tabdef->* TO <table>.
SELECT * FROM (p_table) INTO <wa>.
INSERT <wa> INTO TABLE <table>.
DO.
ASSIGN COMPONENT sy-index OF STRUCTURE <wa> to <field>.
IF sy-subrc NE 0.
EXIT.
ENDIF.
Make changes in the values as needed
ENDDO.
MODIFY <table> INDEX 1 FROM <wa> TRANSPORTING (x_table).
ENDSELECT.
‎2010 May 26 2:32 PM