ABAP--如何通过Oracle游标直接操作Oracle的系统表

在ABAP编程中，有时候需要利用Native SQL操作数据库表（自定义和非业务数据的表，业务数据表我的建议还是应该通过SAP提供的类、函数，BAPI等技术操作）。下面的例子是通过游标操作Oracle的系统表的代码，供大家参考。

*---------------------------------------------------------------------*
* Read information about partitions of a table
*---------------------------------------------------------------------*
FORM get_partition_info
  USING
    i_tablnm        TYPE rsd_tablnm
  CHANGING
    e_ts_part_info  TYPE rsdu_ts_part_info.

  DATA:
    l_s_part_info   TYPE rsdu_s_part_info.

* this works only for Oracle
  CHECK sy-dbsys = 'ORACLE'.

  EXEC SQL.
    open csr for
      select partition_name, high_value
      from user_tab_partitions
      where table_name = :i_tablnm
  ENDEXEC.

  DO.
    EXEC SQL.
      fetch next csr into :l_s_part_info-partition_name,
                          :l_s_part_info-high_value
    ENDEXEC.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

*   Special treatment of upper limit (highvalue) in Oracle
    IF l_s_part_info-high_value EQ 'MAXVALUE'.
      l_s_part_info-high_value = rsdu_c_max_value.
    ENDIF.

    INSERT l_s_part_info INTO TABLE e_ts_part_info.
  ENDDO.

  EXEC SQL.
    close csr
  ENDEXEC.

ENDFORM.                               " GET_PARTITION_INFO