11alter session set plscope_settings= ' identifiers:all' ;
22set linesize 300
3+ set pagesize 10000
34
45-- install or comple all code here
56exec dbms_utility .compile_schema (USER,compile_all => TRUE,reuse_settings => FALSE);
6-
7+ set echo off
8+ set feedback off
79
810var errcnt number
911
1012column errcnt_a noprint new_value errcnt_a
1113column errcnt_l noprint new_value errcnt_l
1214column errcnt_c noprint new_value errcnt_c
1315
14- -- find parameters that donot begin with A_
15- prompt parameters should start with A_
16+ column NAME FORMAT A30
17+ column TYPE FORMAT A18
18+ column OBJECT_NAME FORMAT A30
19+ column OBJECT_TYPE FORMAT A18
20+ column USAGE FORMAT A16
21+ column LINE FORMAT 99999
22+ column COL FORMAT 9999
23+
24+ PROMPT parameters that are not prefixed with " a_"
1625select name, type, object_name, object_type, usage, line , col, count (* ) over() errcnt_a
1726 from user_identifiers
1827 where type like ' FORMAL%' and usage = ' DECLARATION'
@@ -21,8 +30,9 @@ select name, type, object_name, object_type, usage, line, col, count(*) over() e
2130 order by object_name, object_type, line , col
2231;
2332
24- prompt variables should start with L_
25- -- variables start with l_ or g_
33+ PROMPT
34+ PROMPT
35+ PROMPT variables that are not prefixed with " l_"
2636select i .name , i .type , i .object_name , i .object_type , i .usage , i .line , i .col , count (* ) over() errcnt_l
2737 from user_identifiers i
2838 join user_identifiers p
@@ -33,11 +43,13 @@ select i.name, i.type, i.object_name, i.object_type, i.usage, i.line, i.col, cou
3343 and (i .name not like ' L#_%' escape ' #' and p .type in (' PROCEDURE' ,' FUNCTION' ,' ITERATOR' )
3444 or i .name not like ' G#_%' escape ' #' and p .type not in (' PROCEDURE' ,' FUNCTION' ,' ITERATOR' ))
3545 and p .type != ' RECORD'
36- order by object_name, object_type, line , col;
46+ order by object_name, object_type, line , col
3747;
3848
39- -- constants start with c_ or gc_
40- prompt constants should start with C_
49+ PROMPT
50+ PROMPT
51+ PROMPT constants that are not prefixed with with " c_"
52+ PROMPT global constants that are not prefixed with " gc_"
4153select i .name , i .type , i .object_name , i .object_type , i .usage , i .line , i .col , count (* ) over() errcnt_c
4254 from user_identifiers i
4355 join user_identifiers p
@@ -53,4 +65,4 @@ select i.name, i.type, i.object_name, i.object_type, i.usage, i.line, i.col, cou
5365exec :errcnt := nvl(' &errcnt_a' ,0 ) + nvl(' &errcnt_l' ,0 ) + nvl(' &errcnt_c' ,0 );
5466
5567-- quit :errcnt
56- -- exit success
68+ exit :errcnt
0 commit comments