char display on z/OS

[rajarshi das]

Hi,
I am running this on z/OS and perl-5.8.6.

$a = 128;
$b = 256;

for($i=$a;$i<=$b;$i++)
{
   $str = join "",$str, pack 'U*',$i;
}

print "str : $str\n";

If I print $str and do a od -tc -tx, I notice that the
chars corresponding to values 128 through 159 show up
as single (ebcdic) bytes whereas chars corresponding
to values from 160 through 256 show up as (utf-ebcdic)
double bytes.

e.g. for value 130, I get \x23 whereas for 161, I get
\x80\x42. 

Why is this so ? 

Thanks in advance,
Rajarshi.


                
__________________________________ 
Do you Yahoo!? 
Yahoo! Small Business - Try our new Resources site
http://smallbusiness.yahoo.com/resources/