oracle认证应用技术学习资料汇总10

会计考友

教你如何通过Oracle游标直接操作Oracle系统表
- n+ S; [6 x% X! ^6 h9 A　在ABAP编程中，有时候需要利用Native SQL操作数据库表(自定义和非业务数据的表，业务数据表我的建议还是应该通过SAP提供的类、函数，BAPI等技术操作)。下面的例子是通过游标操作Oracle的系统表的代码，供大家参考。
% K5 s' n6 g; ^1 j; z4 v/ W　　*--------------------------------------------*
　　* Read information about partitions of a table
　　*-------------------------------------------*
　　FORM get_partition_info
1 Q3 e9 l# _) W) A　　USING
　　i_tablnm TYPE rsd_tablnm
　　CHANGING
　　e_ts_part_info TYPE rsdu_ts_part_info.
: O7 @" Q  F; t$ o9 k  o　　DATA:
2 b4 _' k' s: ^' T　　l_s_part_info TYPE rsdu_s_part_info.
5 w  Q$ o% m7 O( _　　* this works only for Oracle
) O8 |! Z% F6 S% R　　CHECK sy-dbsys = ’ORACLE’.
　　EXEC SQL.
　　open csr for
　　select partition_name, high_value
6 m) b# P: R3 p: z! t4 d: }　　from user_tab_partitions
　　where table_name = :i_tablnm
　　ENDEXEC.
! |6 `& f# m# D/ ?; @- ^　　DO.
! {) D/ d" g* T: ]! S4 x/ E. X4 R　　EXEC SQL.
　　fetch next csr into :l_s_part_info-partition_name,
; |+ D* {& q/ y, D. g5 u; w　　:l_s_part_info-high_value
　　ENDEXEC.
8 y( ?7 D4 O& c$ {　　IF sy-subrc  0.
  g) p* L/ u% Z2 `" r% t4 j& w　　EXIT.
$ }" n4 ~" m. t/ V　　ENDIF.
　　* Special treatment of upper limit (highvalue) in Oracle
　　IF l_s_part_info-high_value EQ ’MAXVALUE’.
1 `/ V0 c6 X8 z2 m& I　　l_s_part_info-high_value = rsdu_c_max_value.
* t- \1 Y" A( Q1 D# G. g　　ENDIF.
　　INSERT l_s_part_info INTO TABLE e_ts_part_info.
　　ENDDO.
　　EXEC SQL.
　　close csr
6 F& _9 _; }8 D　　ENDEXEC.
　　ENDFORM. " GET_PARTITION_INFO