Re: QDCXLATE not working as expected

Hi Mihael,

You can type WRKTBL QASCII and use option 5 to see what this map will do.

Personally, I never use QASCII -- I have yet to find a situation where it's the right translation table. I typically use QTCPASC if I need to -- and usually if I do this, it's because I'm trying to throw together a quick sample program for someone.

In a real application, however, I'd use iconv(). I mean... what are you really talking about when you say "ASCII"? There are hundreds, if not thousands, of completely different character sets that are all referred to as "ASCII". Rather than be ambiguous, I prefer to use iconv() with CCSIDs where I can specify EXACTLY which character set I'm converting to/from.




Schmidt, Mihael wrote:

Hi,

i tried to convert some EBCDIC data to ASCII. I tried to use QDCXLATE and the code looks like this:


D translate PR extpgm('QDCXLATE')
D length 5P 0 const
D data 32766A options(*varsize)
D table 10A const


D string S 100A

/free
string = '{ "Test" : true }';

translate(%size(string) : string : 'QASCII');

*inlr = *on;
return;
/end-free

I would have expected to see something like this in hex:
7B202254 65737422 203A2074 72756520 7D202020

But i got this in hex:
A2202254 65737422 203A2074 72756520 F0202020

The starting and ending curly braces are not correctly translated to ASCII.
{ = 7B and not A2
} = 7D and not F0

Am I doing something wrong?

Thanx in advance

Mihael Schmidt
Anwendungsentwicklung

Dirk Rossmann GmbH
Iserhägener Str.16
30938 Burgwedel
* +49 (05139) 898 - 4353

Handelsregister-Nr. HRB 120546, Amtsgericht Hannover
Ust-Id-Nr. DE 115055186
St.-Nr. 16 / 205 / 65401
Geschäftsführer: Dirk Roßmann, Alice Schardt-Roßmann, Roland Frobel, Klaus Praus