内表操作例子

1. Read internal table with table key

 

REPORT ztest_itab_processing.

DATA: gt_makt TYPE SORTED TABLE OF makt
              WITH UNIQUE KEY matnr spras,
      gw_makt TYPE makt.

PARAMETERS: p_matnr TYPE makt-matnr.
PARAMETERS: p_spras TYPE makt-spras.

START-OF-SELECTION.

  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE gt_makt
    FROM makt
    WHERE matnr EQ p_matnr
    AND   spras EQ p_spras.
  IF sy-subrc NE 0.
    WRITE: / 'NO RECORDS'.
    EXIT.
  ENDIF.

  WRITE: / '1.READ TABLE WITH TABLE KEY'.
  READ TABLE gt_makt WITH TABLE KEY  matnr = p_matnr
                                    spras = p_spras
                          INTO gw_makt.
  IF sy-subrc EQ 0.
    WRITE: / gw_makt-matnr,
           gw_makt-spras,
           gw_makt-maktx.
  ENDIF.