Re: ASCII/EBCDIC Conversion

The following C functions will do what you want by converting from CCSID 850
to the EBCDIC CCSID you wish to use. Note these are bound via a service
program so they should be lighting fast.

System API Reference


OS/400 National Language Support APIs


   | Code Conversion                | iconv()                            |
QTQICONV| *USE        |              |

|________________________________|____________________________________|_____
____|_____________|______________|
   | Code Conversion Allocation     | iconv_open()                       |
QTQICONV| *USE        |              |

|________________________________|____________________________________|_____
____|_____________|______________|
   | Code Conversion Allocation     | QtqIconvOpen()                     |
QTQICONV| *USE        |              |

|________________________________|____________________________________|_____
____|_____________|______________|
   | Code Conversion Deallocation   | iconv_close()                      |
QTQICONV| *USE        |              |




______________________________________________
Eric N. Wilson
President
Doulos Software & Computer Services
2913 N Alder St
Tacoma WA 98407


----- Original Message -----
From: Chris Bipes <ChrisB@cross-check.com>
To: RPG400 Help (E-mail) <RPG400-L@midrange.com>
Sent: Friday, August 27, 1999 8:15 AM
Subject: ASCII/EBCDIC Conversion


> Does anyone know the fasted and most efficient way to translate strings
from
> ASCII to EBCDIC and back?  I am currently using CALL QDCXLATE and want to
> use the TABLES that IBM provides, QSYS/QASCII & QSYS/QEBCDIC.  Is there a
> way to load these tables into RPG tables at program init so I may use the
> XLATE opt code.  Would this use less CPU cycles?  Timing is critical in
this
> application.
>
>
>
> Christopher K. Bipes mailto:ChrisB@Cross-Check.com
> Sr. Programmer/Analyst mailto:Chris_Bipes@Yahoo.com
> CrossCheck, Inc. http://www.cross-check.com
> 6119 State Farm Drive Phone: 707 586-0551 x 1102
> Rohnert Park CA  94928 Fax: 707 586-1884
>
> ***** Note to Recruiters *****
> I nor anyone that I know of is interested in any new and/or exciting
> positions. Please do not contact me.
>
>

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---