REPORT ztest001.
TABLES: ztest001.
TYPES: BEGIN OF st01,
document_no TYPE ztest001-document_no,
storage TYPE ztest001-storage,
drug_code TYPE ztest001-drug_code,
END OF st01.
DATA:it_tab TYPE TABLE OF st01 WITH HEADER LINE,
st_tab TYPE st01.
DATA: g_con_name TYPE dbcon_name VALUE 'TEST',
ex TYPE REF TO cx_sy_native_sql_error.
**连接数据库
TRY.
EXEC SQL.
connect to :g_con_name
ENDEXEC.
CATCH cx_sy_native_sql_error INTO ex.
RAISE connect_fails.
ENDTRY.
IF sy-subrc <> 0.
RAISE connect_fails.
ENDIF.
*------------------------------------
**sql语句
EXEC SQL.
OPEN lv_cur for