Ô­À´ÎªÁËÄã

*---Modify table itab from wa
PARAMETERS p_carrid TYPE scarr-carrid.

DATA scarr_tab TYPE SORTED TABLE OF scarr WITH UNIQUE KEY carrid.
DATA scarr_wa TYPE scarr.

SELECT *
  FROM scarr
  INTO TABLE scarr_tab.

READ TABLE scarr_tab INTO scarr_wa WITH TABLE KEY carrid = p_carrid.

scarr_wa-currcode = 'EUR'.

MODIFY TABLE scarr_tab FROM scarr_wa TRANSPORTING currcode.


*---Modify itab index ind from wa
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.