[RESOLVED] EBCDIC Question

[Zakary]

Hi! mate !
I've to convert some numeric value to EBCDIC format.
Does someone can help me put light on this?

As far as I know, I thing that I have to change the last number for a special one with a “}“ but there stop my knowledge on this.

Thanks in advance!!

Zak

[Mr.No]

Not sure if this is of any help but I found this piece of code on the web (sorry I forgot the link) that enables you to read an EBCDIC file. I guess the reverse will hold tru if you want to write an EBDIC file since one of the StreamWriters allow you to specify the Encoding.

Dim source As Encoding = Encoding.GetEncoding(37)'///EBCDIC encoding.
        Dim path As Encoding = Encoding.ASCII
        Dim b As Byte() = path.GetBytes(TextBox1.Text.ToCharArray)
        Dim aB As Byte() = Encoding.Convert(source, path, b)
 
        Console.WriteLine(path.GetString(aB))

By the way can someone point us to somewhere we can get a list of encoding numbers for example I would have never guessed that 37 stands for EBCDIC.

[BankCop]

I did a Google search on "ASCII to EBCDIC" and got lots of info.

[Zakary]

I did a Google search on "ASCII to EBCDIC" and got lots of info.

I've also do it .. Don’t worry
I've found a bunch of info about EBCDIC to ASCII but very little for ASCII to EBCDIC.
And what I want is not really to convert string to EBCDIC but the way to write number in EBCDIC format especially the signed number. As far as I know, it Consist of replacing the last number with is signed EBCDIC "equivalent", and it is this "equivalent" that I search for ...

[Zakary]

Ok i've found!!

-0    -> }
-1    -> J
-2    -> K 
-3    -> L
-4    -> M
-5    -> N
-6    -> O
-7    -> P
-8    -> Q
-9    -> R

So for example
-12345.67 will be 12345.6P
-12345.62 will be 12345.6K

[Zakary]

Not sure if this is of any help but I found this piece of code on the web (sorry I forgot the link) that enables you to read an EBCDIC file. I guess the reverse will hold tru if you want to write an EBDIC file since one of the StreamWriters allow you to specify the Encoding.

Dim source As Encoding = Encoding.GetEncoding(37)'///EBCDIC encoding.
        Dim path As Encoding = Encoding.ASCII
        Dim b As Byte() = path.GetBytes(TextBox1.Text.ToCharArray)
        Dim aB As Byte() = Encoding.Convert(source, path, b)
 
        Console.WriteLine(path.GetString(aB))

By the way can someone point us to somewhere we can get a list of encoding numbers for example I would have never guessed that 37 stands for EBCDIC.

Thanks for this, the Encoding Namepace is now in my knowledge

[Mr.No]

Zakary

Would you mind posting the link wherw you found the equivalents of -1 -> J, -2 -> K etc.

[Zakary]

Zakary

Would you mind posting the link wherw you found the equivalents of -1 -> J, -2 -> K etc.

Hi Mr No!
I've found it here
http://www.discinterchange.com/TechT...d_fields_.html

[Mr.No]

Thanks Zakary.

Very interesting site indeed, it reminded me of my COBOL days some 8 years ago

[Zakary]

8 Year ago, I was a doing DbaseIII and Clipper in my case

(Sigh) good old time... when beer and spending money was in the top of my priority hehehe