appel de proc stock dans shells unix [Résolu]

[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 :

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]

Envoyé par laurentschneider

ben c'est ce que j'ai fait !

Et ma question subsidiaire svp ?

[laurentschneider]

quelque chose du style

Code :

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]

Envoyé par laurentschneider

quelque chose du style

Code :

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 :

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 :

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 :

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

[fguigui]

Envoyé par jadey

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

Code :

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]

Envoyé par fguigui

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 :

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 :

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