[ABAP]SQL1-动态where条件

取值动态SQL

"动态where条件
TABLES:ekko,ekpo.
SELECT-OPTIONS :s_ebeln FOR ekko-ebeln,
                s_lifnr FOR ekko-lifnr.

DATA where_tab(80) OCCURS 0 WITH HEADER LINE.
DATA p_1 TYPE char1.
IF p_1 IS NOT INITIAL.
  where_tab = 'B~LOEKZ EQ ''S'''.
  APPEND where_tab.
ELSE.
  where_tab = 'B~LOEKZ EQ ''L'''.
  APPEND where_tab.
ENDIF.

"采购订单
SELECT a~ebeln,
       a~lifnr,
       b~loekz
  FROM ekko AS a
  INNER JOIN ekpo AS b ON a~ebeln = b~ebeln
  INTO TABLE @DATA(gt_tab)
  WHERE a~ebeln IN @s_ebeln
    AND a~lifnr IN @s_lifnr
    AND (where_tab).

测试结果