Aide sur fonction psql

Version imprimable

Bonjour,

je dois convertir une fonction existante sous Oracle vers Postgres 10. Le souci est qu'il me sort une erreur au niveau du IF. Si quelqu'un a une idée sur le problème parce que la je sèche.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
CREATE OR REPLACE FUNCTION test (val IN int, offs IN
int, minVal IN int, maxVal IN int) RETURNS INT AS
$$
DECLARE
Offset int;
newOffset int;
newVal int;
range int;
BEGIN
        range:=maxval-minval+1;
        newOffset:=(offs/abs(offs))*(abs(offs) % range);
        newVal:=val-minVal;
 
        Offset:=newVal+newOffset;
 
        if Offset > range   then
        Offset:=Offset;
        end if;
 
       if Offset<0 then
       Offset:=range+offset;
       end if;
        Offset:=Offset+minVal;
 return Offset+minVal;
 
END;
$$ LANGUAGE plpgsql;
 
ERROR: syntax error at or near ">"

Bonjour

Le souci se situe au niveau de la variable "Offset" (mot réservé ?). En le remplaçant par autre chose ça le fait.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 create or replace function test (val in int, offs in int, minVal in int, maxVal in int) returns int as $$ declare xOffset integer; newOffset integer; newVal integer; range integer; begin range=maxval-minval+1; newOffset=(offs/abs(offs))*(abs(offs) % range); newVal=val-minVal; xOffset=newVal+newOffset; if xOffset > range then xOffset=xOffset; end if; if xOffset < 0 then xOffset=range+offs; end if; xOffset=xOffset+minVal; return xOffset+minVal; end; $$ language plpgsql immutable;
En dehors des instruction écrites en minuscules (tellement plus agréable) et de l'indentation (tellement plus lisible) il restait un souci sur l'instruction Offset:=range+offset; (variable "offset" qui n'existe pas). J'ai présumé qu'il s'agissait du paramètre "offs".
Quant à l'utilité du premier test...

PS: le mot "immutable" en fin de code signifie que ta fonction ne modifie rien en base. Ca aide le moteur à optimiser le truc.

Bonjour,

super merci cela fonctionne par contre lorsque j'appelle la fonction dans une autre fonction j'ai un problème d'encodage.
La base est en UTF8.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
create function decrypt (in s_in varchar, in s_key varchar) returns varchar as $$
declare lkey int;
ls int;
i int;
j int;
k int;
offs int;
newcode int;
resultat varchar;
 
begin
        resultat:='';
        lkey:=length(s_key);
        ls:=length(s_in);
        k:=1;
 
        for i in 1..ls
        loop
                offs:=ascii(substr(s_key,k,1));
                newcode:=test(ascii(substr(s_in,i,1)),-offs,32,121);
                resultat:=resultat||chr(newcode);
                k:=k+1;
                if  k>lkey then
                        k:=1;
                end if;
        end loop;
 
        return resultat;
end;$$ LANGUAGE 'plpgsql'

concernant la premiere condition j'ai oublié une partie du code et le return n'étais pas bon

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
create or replace function test (val in int, offs in int, minVal in int, maxVal in int) returns int as $$
declare
	xOffset integer;
	newOffset integer;
	newVal integer;
	range integer;
begin
	range=maxval-minval+1;
	newOffset=(offs/abs(offs))*(abs(offs) % range);
	newVal=val-minVal;
 
	xOffset=newVal+newOffset;
 
	if xOffset > range then
		xOffset=xOffset % range;
	end if;
 
   	if xOffset < 0 then
		xOffset=range+xOffset;
	end if;
 
	return xOffset+minVal;
end; $$ language plpgsql immutable;

select decrypt('H(v,*0y2.','PREV');
ERROR: requested character too large for encoding: -8

normalement je devrais retrouver cette valeur : R01048468

Cordialement.
Laurent.

1 pièce(s) jointe(s)

Chez-moi, ça fonctionne bien
Pièce jointe 395509

Et le contenu de "a" qui contient tes fonctions juste un peu optimisées question calculs ("j" et "k" ne servent à rien et "newcode" et "offs" pourraient sauter eux aussi)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
create or replace function decrypt (in s_in varchar, in s_key varchar) returns varchar as $$
declare
	lkey int;
	ls int;
	i int;
	offs int;
	newcode int;
	resultat varchar;
begin
        resultat:='';
        lkey:=length(s_key);
        ls:=length(s_in);
 
        for i in 1..ls
        loop
                offs:=ascii(substr(s_key,(i-1)%lkey + 1,1));
                newcode:=test(ascii(substr(s_in,i,1)),-offs,32,121);
                resultat:=resultat||chr(newcode);
        end loop;
 
        return resultat;
end;$$ language 'plpgsql' immutable;
 
create or replace function test (val in int, offs in int, minVal in int, maxVal in int) returns int as $$
declare
	xOffset integer;
	newOffset integer;
	newVal integer;
	range integer;
begin
	range=maxval-minval+1;
	newOffset=(offs/abs(offs))*(abs(offs) % range);
	newVal=val-minVal;
 
	xOffset=(newVal+newOffset) % range;
 
   	if xOffset < 0 then
		xOffset=range+xOffset;
	end if;
 
	return xOffset+minVal;
end; $$ language plpgsql immutable;

Je pense que ton encodage bdd n'est peut-être pas vraiment utf8. J'ai tenté de tester avec des bases encodées différemment mais mon système ne veut pas les créer à cause de ma locale qui est utf8.

11/07/2018, 02h17
snegues

Bonjour,

ok tout fonctionne après avoir refait la base sans utilisé le template0.
Merci de ton aide et pour les optimisations du code.
11/07/2018, 17h50
Sve@r

1 pièce(s) jointe(s)

Citation:

Envoyé par snegues

ok tout fonctionne après avoir refait la base sans utilisé le template0.

Ce n'est pas le template0 qui pose souci car ça fonctionne aussi avec...
Pièce jointe 395723

Citation:

Envoyé par snegues

Merci de ton aide et pour les optimisations du code.

Avec plaisir (première fois que mes faibles connaissances SQL permettent d'aider quelqu'un dans cette rubrique :chin:) Pense à cliquer sur "résolu" pour les stats du forum...