Discussion :

[Milo59000]

Bonjour,

J'ai un bloc PL/SQL qui fonctionne sous Oracle 9.2.0.5 mais pas en 10.2.0.4

Je ne comprends pas pourquoi...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DECLARE
CURSOR c IS SELECT OBJECT_NAME, OBJECT_TYPE FROM USER_OBJECTS WHERE STATUS='INVALID';
BEGIN
FOR rec IN c
LOOP
IF rec.object_type = 'PROCEDURE' THEN
EXECUTE IMMEDIATE 'ALTER PROCEDURE ' || rec.object_name || ' COMPILE';
ELSIF rec.object_type = 'FUNCTION' THEN
EXECUTE IMMEDIATE 'ALTER FUNCTION ' || rec.object_name || ' COMPILE';
ELSIF rec.object_type = 'PACKAGE' THEN
EXECUTE IMMEDIATE 'ALTER PACKAGE ' || rec.object_name || ' COMPILE';
ELSIF rec.object_type = 'TRIGGER' THEN
EXECUTE IMMEDIATE 'ALTER TRIGGER ' || rec.object_name || ' COMPILE';
END IF;
END LOOP;
END;
/

[orafrance]

et on doit deviner l'erreur évidemment

Sinon, t'as utlrp.sql qui fait la recompile comme un grand

[orafrance]

Tiens, tu peux aussi faire bcp plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
BEGIN
FOR obj_invalid IN (SELECT OBJECT_NAME, OBJECT_TYPE FROM USER_OBJECTS WHERE STATUS='INVALID') 
LOOP 
  EXECUTE IMMEDIATE 'ALTER ' || obj_invalid.object_type || ' ' || obj_invalid.object_name || ' COMPILE';
END LOOP;
END;
/

[Milo59000]

TU n'as pas trouvé l'erreur tout seul ???
Dans ce cas je te la met :p

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
DECLARE
*
ERROR at line 1:
ORA-00922: missing or invalid option
ORA-06512: at line 13

Il me fait la même erreur avec ton script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
BEGIN
*
ERROR at line 1:
ORA-00922: missing or invalid option
ORA-06512: at line 4

Le show errors dis qu'il n'y a pas d'erreur...

[Milo59000]

BOn avec utlrp.sql ca marche, il me recompile tous mes objets. Mais je ne comprends pas pourquoi mon script qui marchait très bien en 9i ne marche pas en 10G...

[laurentschneider]

sans doute à cause des guillemets manquants...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DECLARE
CURSOR c IS SELECT OBJECT_NAME, OBJECT_TYPE FROM USER_OBJECTS WHERE STATUS='INVALID';
BEGIN
FOR rec IN c
LOOP
IF rec.object_type = 'PROCEDURE' THEN
EXECUTE IMMEDIATE 'ALTER PROCEDURE "' || rec.object_name || '" COMPILE';
ELSIF rec.object_type = 'FUNCTION' THEN
EXECUTE IMMEDIATE 'ALTER FUNCTION "' || rec.object_name || '" COMPILE';
ELSIF rec.object_type = 'PACKAGE' THEN
EXECUTE IMMEDIATE 'ALTER PACKAGE "' || rec.object_name || '" COMPILE';
ELSIF rec.object_type = 'TRIGGER' THEN
EXECUTE IMMEDIATE 'ALTER TRIGGER "' || rec.object_name || '" COMPILE';
END IF;
END LOOP;
END;
/