I have a cc_clients_pkg which can be compiled without error but it will give me the following error after I wrapped it using Oracle wrap utility:
Errors for PACKAGE BODY CC_CLIENTS_PKG:
LINE/COL ERROR
-------- --------------------------
----------
----------
----------
---------
364/6 PLS-00103: Encountered the symbol "" when expecting one of the
following:
begin case declare exit for goto if loop mod null pragma
raise return select update while with <an identifier>
<a double-quoted delimited-identifier> <a bind variable> <<
close current delete fetch lock insert open rollback
savepoint set sql execute commit forall merge pipe
The symbol "" was ignored.
Here I am going to compile it without wrapping and to show you the codes around the error line:
cc_dev@OWB1> @cmdr/v2_5c/all_sqls/cc600
4_clients_
pkg.sql
Sequence dropped.
Elapsed: 00:00:00.08
Sequence created.
Elapsed: 00:00:00.05
Package created.
Elapsed: 00:00:00.35
No errors.
Package body created.
Elapsed: 00:00:00.33
No errors.
cc_dev@OWB1> @lst_src2 CC_CL 350 380
old 3: where name like '&1%'
new 3: where name like 'CC_CL%'
old 4: and line > &2 and line < &3
new 4: and line > 350 and line < 380
LINE TEXT
----- --------------------------
----------
----------
----------
----------
--------
351 PROCEDURE p_sel (
352 p_key IN cc_clients.CLIENT_ID%TYPE DEFAULT NULL,
353 p_whr IN VARCHAR2 DEFAULT NULL,
354 p_out_num OUT NUMBER, -- out status number
355 p_out_msg OUT VARCHAR2, -- out message
356 p_rec OUT rst_refcur,
357 p_lck IN NUMBER DEFAULT 0 -- lock record: 0(no) 1(yes)
358 ) IS
359 v_prg VARCHAR2(100) := g_pkg||'.p_sel';
360 v_sta VARCHAR2(10) := 'OK';
361 v_whr VARCHAR2(1000);
362 v_msg VARCHAR2(200) := '';
363 v_sql VARCHAR2(2000);
364 BEGIN
365 echo(' - '||v_prg, 1);
366 p_out_num := 0;
367 p_out_msg := 'OK';
368 -- check input variables
369 IF p_key IS NULL AND p_whr IS NULL THEN
370 v_msg := 'ERR('||v_prg||'): no input for p_key or p_whr';
371 raise_application_error(-2
0001,v_msg
);
372 END IF;
373
374 IF p_key IS NULL THEN
375 v_whr := ' WHERE '||p_whr;
376 ELSE
377 v_whr := ' WHERE client_id = '||p_key;
378 END IF;
379 -- check record existence
29 rows selected.
Start Free Trial