AW: QDCXLATE not working as expected

["Schmidt, Mihael" <Mihael.Schmidt@xxxxxxxxxxx>]

Yes. Thanx.

And also thanx to your subfile regex example on your site (which uses iconv() and provided me with an example =). 

I got it working. One further step to have a working JSON checker on the i. Perhaps you'll see RPG on json.org as one language which has JSON support one day.

Regards

Mihael 

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von Scott Klement
Gesendet: Montag, 16. Februar 2009 09:50
An: RPG programming on the IBM i / System i
Betreff: 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