ABAP 动态内表 read table

这个程序展示了 如何动态内表的时候read 操作 loop 的时候 where条件的拼接

REPORT ztest_xy6.
DATA: BEGIN OF lt_tmp OCCURS 10,
        hkont    TYPE char10,
        sumty(2) TYPE c,
      END OF lt_tmp.
DATA: ls_tmp LIKE lt_tmp,
      ls_tp2 LIKE lt_tmp.
FIELD-SYMBOLS: <st_x> TYPE x.
DEFINE m_tmp.
  clear lt_tmp.
  lt_tmp-hkont = &1.
  lt_tmp-sumty = &2.
  append lt_tmp.
END-OF-DEFINITION.
m_tmp '0090020020' '22'.
m_tmp '0090020020' '21'.
m_tmp '0090010010' 'C1'.
m_tmp '0020110100' 'C1'.

ASSIGN: ls_tmp TO <st_x> CASTING.
ls_tmp-hkont = '0090020020'. ls_tmp-sumty = '22'.
DATA gt_where TYPE TABLE OF string.
gt_where = VALUE #(
*                    ( |with key| )
                    ( | HKONT = '0090020020'  AND| )
                    ( | SUMTY = '21'| ) ).


DATA:gv_where TYPE string.
gv_where = |Hello | & |world| .
WRITE:/ gv_where.
READ TABLE lt_tmp WITH KEY <st_x>.
IF sy-subrc = 0.
  WRITE: / lt_tmp-hkont,lt_tmp-sumty.
ENDIF.


LOOP AT lt_tmp WHERE (gt_where).
  WRITE: / lt_tmp-hkont,lt_tmp-sumty.
ENDLOOP.

"第三种变形
  DATA(bukrs) = 'BUKRS'.
  DATA(anln1) = 'ANLN1'.
  DATA(anln2) = 'ANLN2'.
  DATA(anlkl) = 'ANLKL'.


    IF <lt_alv_data> IS ASSIGNED.
    SORT <lt_alv_data> BY (bukrs) (anln1) (anln2) (anlkl).
    DATA(lv_check) = 'X'.
    ENDIF.
    
    MOVE-CORRESPONDING <fs_data> TO ls_tmp.
      READ TABLE <lt_alv_data> ASSIGNING FIELD-SYMBOL(<fs_alv_wa>) WITH KEY (bukrs) = ls_tmp-bukrs
                                                                            (anln1) = ls_tmp-anln1
                                                                            (anln2) = ls_tmp-anln2
                                                                            (anlkl) = ls_tmp-anlkl
                                                                                BINARY SEARCH.