ABAP支持不支持动态SQL？W39版主，帮忙呀

whaisheng

REPORT demo_select_dynamic_database .
DATA wa TYPE scarr.

DATA name(10) TYPE c VALUE 'SCARR'.

SELECT *
INTO wa
FROM (name) CLIENT SPECIFIED
WHERE mandt = '000'.

WRITE: / wa-carrid, wa-carrname.

ENDSELECT.





REPORT demo_select_dynamic_conditions .

DATA: cond(72) TYPE c,
itab LIKE TABLE OF cond.

PARAMETERS: city1(10) TYPE c, city2(10) TYPE c.

DATA wa TYPE spfli-cityfrom.

CONCATENATE 'CITYFROM = ''' city1 '''' INTO cond.
APPEND cond TO itab.
CONCATENATE 'OR CITYFROM = ''' city2 '''' INTO cond.
APPEND cond TO itab.
CONCATENATE 'OR CITYFROM = ''' 'BERLIN' '''' INTO cond.
APPEND cond TO itab.

LOOP AT itab INTO cond.
WRITE cond.
ENDLOOP.

SKIP.

SELECT cityfrom
INTO wa
FROM spfli
WHERE (itab).

WRITE / wa.

ENDSELECT.




REPORT demo_select_dynamic_columns .

DATA: itab TYPE STANDARD TABLE OF spfli,
wa LIKE LINE OF itab.

DATA: line(72) TYPE c,
list LIKE TABLE OF line(72).

line = ' CITYFROM CITYTO '.
APPEND line TO list.

SELECT DISTINCT (list)
INTO CORRESPONDING FIELDS OF TABLE itab
FROM spfli.

IF sy-subrc EQ 0.
LOOP AT itab INTO wa.
WRITE: / wa-cityfrom, wa-cityto.
ENDLOOP.
ENDIF.

SnakeNico

whaisheng给的demo不错

izyw

同志们都理解错了，楼主问的是native sql里的动态sql
如：
EXEC SQL PERFORMING sub_append_data.
   select MANDT,
               SEQNO
            into :g_zfibxsum-MANDT,
                  :g_zfibxsum-SEQNO
           from lis_test.liaccsapsummary
ENDEXEC.
此处的sql语句是否可以动态指定，如动态指定一个表名：
如：
l_table = 'lis_test.liaccsapsummary'.
EXEC SQL PERFORMING sub_append_data.
   select MANDT,
               SEQNO
            into :g_zfibxsum-MANDT,
                  :g_zfibxsum-SEQNO
           from (l_table)
ENDEXEC.
但上述语句是会报错的

showxz

嘿嘿, 谢谢大伙.

whaisheng提供的例子是对的,我是问的open sql的, 至于native sal,项目中还没有用过.

但也谢谢 izyw

williamzhou

学习．

virtual_hsu

要看你的系统版本是什么，我记得ECC5还是ECC6提供了一系列的class可以实现dynamic sql，不用写死句子的。之前看过一个老外的例子

arthurccc

/nse38 ADBC_DEMO

nidazhi

ABAP动态查询的实现：可以完全实现动态查询，每个字段都可以动态。


（1） 利用宏


（2） 利用abap指针


（3） 利用FIELD-SYMBOL


具体实现：


1.结构的动态查询


DEFINE Select_DATA_TO_WA.


Select &1


FROM &2


INTO CORRESPONDING FIELDS OF &3


Where (&4).


EXIT.


ENDSelect.


END-OF-DEFINITION.


2.变量的动态查询


DEFINE Select_DATA_TO_VARIANT.


Select &1


FROM &2


INTO &3


Where (&4).


EXIT.


ENDSelect.


END-OF-DEFINITION.


3.内表的动态查询


DEFINE Select_DATA_TO_VARIANT.


Select &1


FROM &2


INTO CORRESPONDING FIELDS OF TABLE &3


Where (&4).


EXIT.


ENDSelect.


END-OF-DEFINITION.




具体程序实现：


DATA: L_FIELD(100) TYPE C,


L_TABLE(10) TYPE C,


L_COND(100) TYPE C.


DATA: I_COND TYPE TALBE OF L_COND.


FIELD-SYMBOLS TYPE ANY.




START-OF-SelectION.


CONCATENATE ‘CARRID’ ‘CONNID’ ‘CITYFROM’


INTO L_S


SEPARATE BY SPACE.


CONCATENATE ‘CONNID = ‘ ‘’ ‘0123’ ‘’’’ INTO L_COND.


APPEND COND TO I_COND.


L_TABLE = ‘SPFLI’.


IF IS ASSIGNED.


UNASSIGN .


ASSIGN SPFLI TO .


ELSE.


ASSIGN SPFLI TO .


ENDIF.




Select_DATA_TO_WA (L_S) (L_TABLE) I_COND.

ssole

动态表名, 动态字段,动态条件 都好象都是可以的
放到一个STRING里面, 然后加括号就可以执行了.

  CONCATENATE '/BIC/T' i_object INTO id_text.

  CONCATENATE id_name ' = ' l_mark l_wrk_hier-nodename l_mark
    INTO l_con_sql.


  TRY.
        SELECT SINGLE txtsh FROM  (id_text)
               INTO   l_shtext
               WHERE (l_con_sql).
    CATCH cx_sy_dynamic_osql_error.
        MESSAGE `Wrong WHERE condition!` TYPE 'I'.
    ENDTRY.

crazy-stone

受益匪浅!