Discussion :

[fguigui]

Bonjour à tous,


Auriez-vous des exemples de shell unix où sont appelés des proc et fonctions stockées oracle. Avec renseignement des paramètres en entrée, récupération des paramètres en sortie ...

Tout cela se passe sous Oracle 9i, unix AIX.

Merci d'avance.

Cordialement.

[laurentschneider]

je pense qu'il existe beaucoup d'exemples sur ce site

admettons que tu veux utiliser la fonction Y=LN(X)

Code :

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

1
2
3
 
X=2.7
Y=`(echo "set pages 0";echo "select ln($X) from dual;")|sqlplus -s -L scott/tiger`

[laurentschneider]

bien sûr tu peux remplacer stdin par un script!

[fguigui]

je pense qu'il existe beaucoup d'exemples sur ce site

je n'en ai pas vu beaucoup.

Question subsidiaire à l'exemple donné : si $X est un paramètre en sortie (ou en entrée/sortie), ça pourrait éventuellement fonctionner ?

[laurentschneider]

[fguigui]

ben c'est ce que j'ai fait !

Et ma question subsidiaire svp ?

[laurentschneider]

quelque chose du style

Code :

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

1
2
3
4
5
6
7
8
9
10
 
X=2
X=`sqlplus -s -L scott/tiger <<EOF
set head off feedb off
var n number
exec :n := $X
exec p(:n)
print n
EOF
`

[fguigui]

Merci beaucoup !

[fguigui]

quelque chose du style

Code :

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

1
2
3
4
5
6
7
8
9
10
 
X=2
X=`sqlplus -s -L scott/tiger <<EOF
set head off feedb off
var n number
exec :n := $X
exec p(:n)
print n
EOF
`

Je me suis enflammé un peu vite, mon cas est un tout petit peu plus compliqué, j'appelle une fonction stockée oracle qui return un code retour et qui a également un paramètre en sortie (out). Comment faire pour récupérer ces 2 paramètres ?

Une solution consiste dans le EOF à faire un print des 2 paramètres, et après le EOF spliter la chaine de caractères récupérée pour avoir les 2 paramètres.

Y a-t-il une autre solution plus sioux ?

Par ailleurs dans le script ci dessus il y a :

exec :n := $X


Mais il est impossible de faire le contraire : exec X := n
car a cet endroit du script X n'est pas connu d'oracle.
Y a-t-il un moyen de contourner ce pb ?

Cordialement.

[laurentschneider]

c'est exactement ce que fait mon exemple, à la fin il fait un PRINT N ce qui informe la variable Unix X (car X=sqlplus...)

[laurentschneider]

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
 
SQL> create or replace procedure p(n in out number) is begin n:=n*n; end;
  2  /
 
Procedure created.
 
$ X=2
$ X=`sqlplus -s -L scott/tiger <<EOF
 set head off feedb off
 var n number
 exec :n := $X
 exec p(:n)
 print n
 EOF
 `
$ echo $X
4

[fguigui]

oui mais il y a 2 paramètres en sortie, et il s'agit d'une fct, voila ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
X="'$1'"
Z="KO"
Z=`sqlplus -s -L scott/tiger <<EOF
set head off feedb off
var nt varchar2(10);
var codRet varchar2(2);
exec begin :codRet := PACKAGE.TEST2($X, :nt); end;
print codRet nt
EOF
`
echo "XXXXXXXXXX>>" $X "<<XXXXXXXXXXXXX"
echo "ZZZZZZZZZZ>>" $Z "<<ZZZZZZZZZZZZZ"

Y a-t-il un moyen de faire autrement, par exemple remplacer codRet par une variable unix ?

[jadey]

quelqu'un pourrait il m'expliquer ce que fait chaque ligne svp ?
je ne comprends notament pas:

Code :

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

1
2
3
4
sqlplus -s -L scott/tiger <<EOF
set head off feedb off
...
exec begin :codRet := PACKAGE.TEST2($X, :nt); end;

[fguigui]

quelqu'un pourrait il m'expliquer ce que fait chaque ligne svp ?
je ne comprends notament pas:

Code :

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

1
2
3
4
sqlplus -s -L scott/tiger <<EOF
set head off feedb off
...
exec begin :codRet := PACKAGE.TEST2($X, :nt); end;

sqlplus -s -L scott/tiger : connexion à sqlplus.

set head off feedb off : supprime les commentaires parasites au lancement de sqlplus.

exec begin :codRet := PACKAGE.TEST2($X, :nt); end; : appel d'une fonction stockée oracle, comme c'est une fct le résultat doit être stocké dans une var. (codRet).

les ':' devant une variable : var. résultat.

[laurentschneider]

oui mais il y a 2 paramètres en sortie

ok, si tu employes le shell standard d'AIX, à savoir KSH, tu peux essayer quelque chose du style

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
18
19
20
 
SQL> create or replace procedure p(x in out number,y out number) is begin x:=x*x;y:=x*x; end;
  2  /
 
Procedure created.
 
 
$ X=3
$ sqlplus -s -L scott/tiger <<EOF | grep . | read X Y
    set head off feedb off
 var x number
 var y number
 exec :x := $X
 exec p(:x,:y)
select :x,:y from dual;
EOF
$ echo $X                                            
9
$ echo $Y
81

Update:
le read est écrit en miniscule, faut pas se fier à la formatisation du code dans ce forum

[jadey]

les ':' devant une variable : var. résultat.

???

[fguigui]

Merci laurent, ça marche très bien !
Et pour Jadey ce serait plutot des variables bindées oracle ? je n'en sais pas plus !

[fguigui]

euh excusez moi de revenir vers vous, mais j'ai à nouveau un soucis, j'ai rajouté un 3ème paramètre en sortie, et soit le read unix ne fonctionne pas soit le select from dual oracle ne ramène que 2 paramètres sur les 3.

Qu'est-ce qui cloche ?

[fguigui]

Code :

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

1
2
3
4
5
6
7
8
9
10
sqlplus -s -L scott/tiger <<EOF | grep . | read codRet nomTable peri
SET head off feedb off
var cr varchar2(2);
var nt varchar2(10);
var per varchar2(6);
exec :cr := PACK.TEST2($nomFic, :nt, :per);
SELECT :cr, :nt, :per from dual;
EOF
 
echo $codRet "=" $nomTable "=" $peri

Avec ce code peri est perdu.

cr, nt, per paramètres sortie

Comment le récupérer ?

Cordialement

[laurentschneider]

set head off feedb off lin 30000 trims on