直联外部数据库，取数方法 DBCO DB02

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
  select t1.document_no ,t1.storage,t2.drug_code
    from drug_export_master t1, drug_export_detail t2
   where t1.document_no = t2.document_no
     and t1.export_date between to_date(20000615, 'yyyy-mm-dd')
     and to_date(20000616235959, 'yyyy-mm-dd hh24miss')
ENDEXEC.


DO.
  EXEC SQL.
    FETCH NEXT lv_cur into :st_tab
  ENDEXEC.
  IF sy-subrc <> 0.
    EXIT.
  ENDIF.

*  WRITE:/ st_tab-document_no, st_tab-storage. ", st_tab-drug_code.
*  APPEND st_tab TO it_tab.

ENDDO.


*modify ztest001 from table it_tab.
EXEC SQL.
  close lv_cur.
ENDEXEC.

EXEC SQL.
  DISCONNECT :g_con_name
ENDEXEC.


*DATA: l_sql(72) TYPE c,
*      g_sql     TYPE zif_ttstr_tbl WITH HEADER LINE.
*DATA: it_tab1   TYPE TABLE OF ztest001.
*
*APPEND ' select  t1.document_no ,t1.storage,t2.drug_code,t1.receiver ' TO g_sql.
*APPEND ' from drug_export_master t1, drug_export_detail t2 ' TO g_sql.
*APPEND ' where t1.document_no = t2.document_no ' TO g_sql.
*APPEND ' and t1.export_date between to_date(20000615, ''yyyy-mm-dd'') ' TO g_sql.
*APPEND ' and to_date(20000616235959, ''yyyy-mm-dd hh24miss'')' TO g_sql.
*
*CALL FUNCTION 'ZIF_EXEC'
*  EXPORTING
*    iv_con_name = g_con_name
*    iv_tbtype   = 'ZTEST001'
*  TABLES
*    it_sql      = g_sql
*    et_table    = it_tab1.
*
*write:/ 'ok0'.