Migrating from WE8ISO8859P1 to AR8MSWIN1256

Question

Hi, i am trying to migrate my data from WE8ISO8859P1 to AR8MSWIN1256.
The problem is that the client apparently has its data stored in WE8ISO8859P1 but
to read data from the database was using some function his developers coded which converts the characters read
into a non standard charset format because they wanted the data to be shown in farsi which would have been resolved
a long time ago had they used AR8MSIN1256.
So they are retrieving characters stored in WEISO8859P1,transform them using this function which is a PLSQL function by the way, and show the right data which is in a non standard charset.
knowing that AR8MSWIN1256 is not a superset of WE8ISO8859P1, i still tried to import/export the data but of course it did not work.
can anybody give me some ideas to work with?
thank you

Answer 1

i know there should not be this function in the middle, but anyway i am trying this on a test DB.
here's the code for that function
CREATE OR REPLACE FUNCTION convertp ( panizstr varchar2)
RETURN VARCHAR2
IS
type t_paniz is table of char index by binary_integer;
type t_asci is table of char index by binary_integer;
tpaniz varchar2(45);
tasci t_asci;
len number;
i number;
res number;
cod number;
j number;
freturn varchar2(55);
BEGIN
i:=1;
j:=1;
tpaniz:=panizstr;
len:=length(panizstr);
while (i<=55) loop
tasci(i):='';
i:=i+1;
end loop;
res:=0;
i:=1;
while (i <=len) loop
cod:=0;
--alef
if (ascii(substr(panizstr,i,1)))=145
then
tasci(j):='Â';
res:=1;
cod := 1;
goto endofloop;
end if;
--alef
if (ascii(substr(panizstr,i,1)))=146 or
(ascii(substr(panizstr,i,1)))=147 then
tasci(j):='Ç';
res:=1;
cod := 1;
goto endofloop;
end if;
--en
if (ascii(substr(panizstr,i,1)))=142 or
(ascii(substr(panizstr,i,1)))=143 then
tasci(j):=' ';
res:=1;
cod := 1;
goto endofloop;
end if;
--hamze
if (ascii(substr(panizstr,i,1)))=148
then
tasci(j):='Æ';
res:=1;
cod := 1;
goto endofloop;
end if;
--hamze
if (ascii(substr(panizstr,i,1)))=149
then
tasci(j):='Á';
res:=1;
cod := 1;
goto endofloop;
end if;
--be
if (ascii(substr(panizstr,i,1)))=150
then
tasci(j):='È';
res:=1;
cod := 1;
goto endofloop;
end if;
--en
if (ascii(substr(panizstr,i,1)))=142
then
tasci(j):=' ';
res:=1;
cod := 1;
goto endofloop;
end if;
--pe
if (ascii(substr(panizstr,i,1)))=151
then
tasci(j):='';
res:=1;
cod := 1;
goto endofloop;
end if;
--te
if (ascii(substr(panizstr,i,1)))=152
then
tasci(j):='Ê';
res:=1;
cod := 1;
goto endofloop;
end if;
--the
if (ascii(substr(panizstr,i,1)))=153
then
tasci(j):='Ë';
res:=1;
cod := 1;
goto endofloop;
end if;
--jim
if (ascii(substr(panizstr,i,1)))=154 then
tasci(j):='Ì';
res:=1;
cod := 1;
goto endofloop;
end if;
--jim
if (ascii(substr(panizstr,i,1)))=155
then
tasci(j):='Ì';
res:=1;
cod := 1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--che
if (ascii(substr(panizstr,i,1)))=156
then
tasci(j):='';
res:=1;
cod := 1;
goto endofloop;
end if;
--che
if (ascii(substr(panizstr,i,1)))=157 then
tasci(j):='';
res:=1;
cod := 1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--he
if (ascii(substr(panizstr,i,1)))=158
then
tasci(j):='Í';
res:=1;
cod := 1;
goto endofloop;
end if;
--he
if (ascii(substr(panizstr,i,1)))=159 then
tasci(j):='Í';
res:=1;
cod := 1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--khe
if (ascii(substr(panizstr,i,1)))=160
then
tasci(j):='Î';
res:=1;
cod := 1;
goto endofloop;
end if;
--khe
if (ascii(substr(panizstr,i,1)))=161 then
tasci(j):='Î';
res:=1;
cod := 1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--dal
if (ascii(substr(panizstr,i,1)))=162 then
tasci(j):='Ï';
res:=1;
cod := 1;
goto endofloop;
end if;
--zal
if (ascii(substr(panizstr,i,1)))=163 then
tasci(j):='Ð';
res:=1;
cod := 1;
goto endofloop;
end if;
--Re
if (ascii(substr(panizstr,i,1)))=164 then
tasci(j):='Ñ';
res:=1;
cod := 1;
goto endofloop;
end if;
--ze
if (ascii(substr(panizstr,i,1)))=165 then
tasci(j):='Ò';
res:=1;
cod := 1;
goto endofloop;
end if;
--je
if (ascii(substr(panizstr,i,1)))=166 then
tasci(j):='Ž';
res:=1;
cod := 1;
goto endofloop;
end if;
--sin
if (ascii(substr(panizstr,i,1)))=167 or
(ascii(substr(panizstr,i,1)))=168 then
tasci(j):='Ó';
res:=1;
cod := 1;
goto endofloop;
end if;
--shin
if (ascii(substr(panizstr,i,1)))=169 or
(ascii(substr(panizstr,i,1)))=170 then
tasci(j):='Ô';
res:=1;
cod := 1;
goto endofloop;
end if;
--sad
if (ascii(substr(panizstr,i,1)))=171 or
(ascii(substr(panizstr,i,1)))=172 then
tasci(j):='Õ';
res:=1;
cod := 1;
goto endofloop;
end if;
--zad
if (ascii(substr(panizstr,i,1)))=173 or
(ascii(substr(panizstr,i,1)))=174 then
tasci(j):='Ö';
res:=1;
cod := 1;
goto endofloop;
end if;
--ta
if (ascii(substr(panizstr,i,1)))=175 then
tasci(j):='Ø';
res:=1;
cod := 1;
goto endofloop;
end if;
--za
if (ascii(substr(panizstr,i,1)))=224 then
tasci(j):='Ù';
res:=1;
cod := 1;
goto endofloop;
end if;
--ein
if (ascii(substr(panizstr,i,1))) =225 or
(ascii(substr(panizstr,i,1)))=226 then
tasci(j):='Ú';
res:=1;
cod := 1;
goto endofloop;
end if;
--ein
if (ascii(substr(panizstr,i,1))) =227 or
(ascii(substr(panizstr,i,1)))=228 then
tasci(j):='Ú';
res:=1;
cod := 1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--ghein
if (ascii(substr(panizstr,i,1))) >=229 and
(ascii(substr(panizstr,i,1)))<=230 then
tasci(j):='Û';
res:=1;
cod := 1;
goto endofloop;
end if;
--ghein
if (ascii(substr(panizstr,i,1))) >=231 and
(ascii(substr(panizstr,i,1)))<=232 then
tasci(j):='Û';
res:=1;
cod := 1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--fe
if (ascii(substr(panizstr,i,1)))=233
then
tasci(j):='Ý';
res:=1;
cod := 1;
goto endofloop;
end if;
--ghaf
if (ascii(substr(panizstr,i,1)))=234
then
tasci(j):='Þ';
res:=1;
cod := 1;
goto endofloop;
end if;
--ghaf
if (ascii(substr(panizstr,i,1)))=235 then
tasci(j):='Þ';
res:=1;
cod := 1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--kaf
if (ascii(substr(panizstr,i,1)))=236
then
tasci(j):='˜';
res:=1;
cod := 1;
goto endofloop;
end if;
--ghaf
if (ascii(substr(panizstr,i,1)))=237
then
tasci(j):='';
res:=1;
cod := 1;
goto endofloop;
end if;
--lam
if (ascii(substr(panizstr,i,1)))=238
then
tasci(j):='á';
res:=1;
cod := 1;
j:=j+1;
tasci(j):='Ç';
goto endofloop;
end if;
--lam
if (ascii(substr(panizstr,i,1)))=239
then
tasci(j):='á';
res:=1;
cod := 1;
goto endofloop;
end if;
--lam
if (ascii(substr(panizstr,i,1)))=240 then
tasci(j):='á';
res:=1;
cod := 1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--mim
if (ascii(substr(panizstr,i,1)))=241
then
tasci(j):='ã';
res:=1;
cod := 1;
goto endofloop;
end if;
--mim
if (ascii(substr(panizstr,i,1)))=242 then
tasci(j):='ã';
res:=1;
cod := 1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--noon
if (ascii(substr(panizstr,i,1)))=243
then
tasci(j):='ä';
cod := 1;
res:=1;
goto endofloop;
end if;
--noon
if (ascii(substr(panizstr,i,1)))=244 then
tasci(j):='ä';
cod := 1;
res:=1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--vav
if (ascii(substr(panizstr,i,1)))=245 or
(ascii(substr(panizstr,i,1)))=246 then
tasci(j):='æ';
res:=1;
cod := 1;
goto endofloop;
end if;
--he
if (ascii(substr(panizstr,i,1))) >=247 and
(ascii(substr(panizstr,i,1)))<=248 then
tasci(j):='å';
res:=1;
cod := 1;
goto endofloop;
end if;
--he
if (ascii(substr(panizstr,i,1))) >=249 and
(ascii(substr(panizstr,i,1)))<=250 then
tasci(j):='å';
res:=1;
cod := 1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--ye
if (ascii(substr(panizstr,i,1))) =251 then
tasci(j):='í';
res:=1;
cod := 1;
goto endofloop;
end if;
--ye
if (ascii(substr(panizstr,i,1)))=252 or
(ascii(substr(panizstr,i,1)))=254 then
tasci(j):='í';
res:=1;
cod := 1;
j:=j+1;
tasci(j):=' ';
goto endofloop;
end if;
--1
if (ascii(substr(panizstr,i,1)))=49 or (ascii(substr(panizstr,i,1)))=129 then
tasci(j):='1';
res:=1;
cod := 1;
goto endofloop;
end if;
--2
if (ascii(substr(panizstr,i,1)))=50 or (ascii(substr(panizstr,i,1)))=130 then
tasci(j):='2';
res:=1;
cod := 1;
goto endofloop;
end if;
--3
if (ascii(substr(panizstr,i,1)))=51 or (ascii(substr(panizstr,i,1)))=131 then
tasci(j):='3';
res:=1;
cod := 1;
goto endofloop;
end if;
--4
if (ascii(substr(panizstr,i,1)))=52 or (ascii(substr(panizstr,i,1)))=132 then
tasci(j):='4';
res:=1;
cod := 1;
goto endofloop;
end if;
--5
if (ascii(substr(panizstr,i,1)))=53 or (ascii(substr(panizstr,i,1)))=133 then
tasci(j):='5';
res:=1;
cod := 1;
goto endofloop;
end if;
--6
if (ascii(substr(panizstr,i,1)))=54 or (ascii(substr(panizstr,i,1)))=134 then
tasci(j):='6';
res:=1;
cod := 1;
goto endofloop;
end if;
--7
if (ascii(substr(panizstr,i,1)))=55 or (ascii(substr(panizstr,i,1)))=135 then
tasci(j):='7';
res:=1;
cod := 1;
goto endofloop;
end if;
--8
if (ascii(substr(panizstr,i,1)))=56 or (ascii(substr(panizstr,i,1)))=136 then
tasci(j):='8';
res:=1;
cod := 1;
goto endofloop;
end if;
--9
if (ascii(substr(panizstr,i,1)))=57 or (ascii(substr(panizstr,i,1)))=137 then
tasci(j):='9';
res:=1;
cod := 1;
goto endofloop;
end if;
--0
if (ascii(substr(panizstr,i,1)))=48 or (ascii(substr(panizstr,i,1)))=128 then
tasci(j):='0';
res:=1;
cod := 1;
goto endofloop;
end if;
<<endofloop>>
if (res=0) then
tasci(j):= substr(panizstr,i,1);
end if;
if (cod=0) then
tasci(j):= substr(panizstr,i,1);
end if;
i:=i+1;
j:=j+1;
end loop;
--freturn:=tasci(1)||tasci(2)||to_char(ascii(substr(panizstr,1,1)),'999');
freturn:=tasci(1)||tasci(2)||tasci(3)||tasci(4)||tasci(5)||tasci(6)||tasci(7)||tasci(8)||
tasci(9)||tasci(10)||tasci(11)||tasci(12)||tasci(13)||tasci(14)||tasci(15)||tasci(16)||tasci(17)||tasci(18)||tasci(19)||tasci(20)||tasci(21)||tasci(22)||tasci(23)||tasci(24)||tasci(25)||
tasci(26)||tasci(27)||tasci(28)||tasci(29)||tasci(30)||tasci(31)
||tasci(32)||tasci(33)||tasci(34)||tasci(35)
||tasci(36)||tasci(37)||tasci(38)||tasci(39)
||tasci(40)||tasci(41)||tasci(42)||tasci(43)||tasci(44)||tasci(45)
||tasci(46)||tasci(47)||tasci(48)||tasci(49)||tasci(50)||tasci(51)
||tasci(52)||tasci(53)||tasci(54)||tasci(55);
return freturn;
END convertp;
this lacks a proper documentation i know but this is how i got it, sorry about this.Anyway thank you so much for your time and patience