PL/SQL学习笔记

from http://blog.youkuaiyun.com/leeyon4151/article/details/6616579

EBS PL/SQL存储过程报表输出

1.

1. FND_FILE.PUT_LINE(FND_FILE.LOG,  
2.                             L_ERR_IDX || ', 从MES表获取TOOL ID：' ||  
3.                             TOOL.TOOL_ID || '，出现异常错误！ ');  

2.

1. FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' 文本输出内容....');  

获取对象结构代码

1. select dbms_metadata.get_ddl('TABLE','CUX2_TOOL_MASTER_ALL') from dual;   

获取服务器字符集

1. SELECT VALUE  
2.   FROM NLS_DATABASE_PARAMETERS  
3.  WHERE PARAMETER = 'NLS_CHARACTERSET';  

动态游标

1. TYPE CSR_TYP IS REF CURSOR;  
2.  csr_int CSR_TYP;  
3. OPEN csr_int FOR 'select ename from emp';  

执行动态SQL

1. EXECUTE IMMEDIATE 'select ename from emp where deptno=:1 and sal<:2' using v_1,v2;  

1. declare  
2.     p_id number:=1;  
3.     v_count number;  
4. begin   
5.     v_string:=’select count(*) from table_name a where a.id=:id’;  
6.     execute immediate v_string into v_count using p_id;    
7. end ;  

1. declare    
2. v_string varchar2(100);    
3. v_t t%rowtype ;    
4. begin    
5.   v_string:='select * from t where name like ''t%''';    
6.   execute immediate v_string into v_t;    
7.   dbms_output.put_line(v_t.id||' '||v_t.name) ;    
8. end;   

create or replace trigger my_set_date after logon on database
begin
if (user = 'HR') then
execute immediate 'alter session set nls_date_format = ''YYYY-MM-DD'' ';
end if;
end my_set_date;
/

WEB Adi 常用表

1. --通过集成器名称获取interface_code  
2. SELECT * FROM BNE_INTEGRATORS_TL WHERE USER_NAME = 'CUX2_主设备数据导入5';  

1. --Excel中显示的栏位标题。可以直接Update，后更新Layout即可生效。  
2. SELECT * FROM BNE_INTERFACE_COLS_TL T WHERE T.INTERFACE_CODE = 'GENERAL_444_INTF';  

1. --Execl中每个栏位属性（包含LOV参数）。可以直接Update，后更新Layout即可生效。  
2. SELECT * FROM BNE_INTERFACE_COLS_B WHERE INTERFACE_CODE = 'GENERAL_444_INTF';  

使用DBMS_SQL包执行DDL语句 

1. create or replace procedure proc_dbms_sql   
2. (   
3.     table_name in varchar2，       --表名   
4.     field_name1 in varchar2，      --字段名   
5.     datatype1 in varchar2，        --字段类型   
6.     field_name2 in varchar2，      --字段名   
7.     datatype2 in varchar2         --字段类型   
8. )as   
9.     v_cursor number;              --定义光标   
10.     v_string varchar2(200);      --定义字符串变量   
11.     v_row number;                  --行数   
12. begin   
13.     v_cursor:=dbms_sql.open_cursor;     --为处理打开光标   
14.     v_string:=’create table ’||table_name||’(’||field_name1||’ ’||datatype1||’，’||field_name2||’ ’||datatype2||’)’;   
15.     dbms_sql.parse(v_cursor，v_string，dbms_sql.native);    --分析语句   
16.     v_row:=dbms_sql.execute(v_cursor);   --执行语句   
17.     dbms_sql.close_cursor(v_cursor);     --关闭光标   
18.     exception   
19.         when others then   
20.             dbms_sql.close_cursor(v_cursor);  --关闭光标   
21.             raise;   
22. end;  

使用DBMS_SQL包执行DML语句 

1. create or replace procedure proc_dbms_sql_update   
2. (   
3.     id number，   
4.     name varchar2   
5. )as   
6.     v_cursor number;            --定义光标   
7.     v_string varchar2(200);   --字符串变量   
8.     v_row number;               --行数   
9. begin   
10.     v_cursor:=dbms_sql.open_cursor;    --为处理打开光标   
11.     v_string:=’update dinya_test2 a set a.name=:p_name where a.id=:p_id’;   
12.     dbms_sql.parse(v_cursor，v_string，dbms_sql.native);   --分析语句   
13.     dbms_sql.bind_variable(v_cursor，’:p_name’，name);     --绑定变量   
14.     dbms_sql.bind_variable(v_cursor，’:p_id’，id);          --绑定变量   
15.     v_row:=dbms_sql.execute(v_cursor);　　　　　　　　　　　--执行动态ＳＱＬ   
16.     dbms_sql.close_cursor(v_cursor);                        --关闭光标   
17.     exception   
18.         when others then   
19.             dbms_sql.close_cursor(v_cursor);                --关闭光标   
20.             raise;   
21. end;   

空数据行

1. Select /*Null a  
2.               ,Null b  
3.               ,Null c  
4.               ,Null d  
5.               ,*/  
6.  Row_Number() Over(Partition By 1 Order By 1)  
7.   From Dual  
8.  Where &r_No > 0  
9. Connect By Rownum <= &r_No;