Subject | Re: Restore with Firebird 2.5 |
---|---|
Author | Michael Vilhelmsen |
Post date | 2009-02-26T13:54:43Z |
Should say that deleting the comment solves my problem....
Then I have another procedure.
SET TERM ^^ ;
CREATE PROCEDURE DK_UPPER (
IN_P VarChar(30))
returns (
OUT_P VarChar(30))
AS
DECLARE VARIABLE TSTR VARCHAR(30);
DECLARE VARIABLE II INTEGER;
begin
ii = 0;
TStr = '';
while (ii <= strlen(in_p)) do
begin
if (substr(in_p,ii,ii) IN ('ø','æ','å')) then
begin
if (substr(In_P,ii,ii)='ø') then
begin
Tstr = Tstr || 'Ø';
end
if (substr(In_P,ii,ii)='æ') then
begin
Tstr = Tstr || 'Æ';
end
if (substr(In_P,ii,ii)='å') then
begin
Tstr = Tstr || 'Å';
end
end
else
begin
Tstr = Tstr || Upper(substr(In_P,ii,ii));
end
ii = ii + 1;
end
Out_P = TStr;
suspend;
end
^^
SET TERM ; ^^
This I cant restore as well.
Then I have another procedure.
SET TERM ^^ ;
CREATE PROCEDURE DK_UPPER (
IN_P VarChar(30))
returns (
OUT_P VarChar(30))
AS
DECLARE VARIABLE TSTR VARCHAR(30);
DECLARE VARIABLE II INTEGER;
begin
ii = 0;
TStr = '';
while (ii <= strlen(in_p)) do
begin
if (substr(in_p,ii,ii) IN ('ø','æ','å')) then
begin
if (substr(In_P,ii,ii)='ø') then
begin
Tstr = Tstr || 'Ø';
end
if (substr(In_P,ii,ii)='æ') then
begin
Tstr = Tstr || 'Æ';
end
if (substr(In_P,ii,ii)='å') then
begin
Tstr = Tstr || 'Å';
end
end
else
begin
Tstr = Tstr || Upper(substr(In_P,ii,ii));
end
ii = ii + 1;
end
Out_P = TStr;
suspend;
end
^^
SET TERM ; ^^
This I cant restore as well.