RE: Ascii to Epdic conversions

[Peter Connell <peterc@xxxxxxxxxxxxx>]

Mike,
My socket routine talks to an HTTP server. I convert the request to ASCII
before sending, using QDCXLATE with QASCII as the table parm, and convert
the response to EBCDIC after receiving, using QDCXLATE with QEBCDIC as the
table parm.

Peter

-----Original Message-----
From: Mike Silvers [mailto:msilvers@hbs-inc.com]
Sent: Wednesday, November 15, 2000 7:52 AM
To: RPG400-L
Subject: Ascii to Epdic conversions


I have a socket program that connects to a remote server and retrieves data.
The problem is that the data received is in ASCII and I am having some
issues converting it.  I receive the data into a variable defined as 132A in
RPG.  When I refer to this variable and call the utility program QDCXLATE, I
receive all @ in return (an error condition).  I have set the variable to
dump when it is reached so I can look at the hex values.  I see that the hex
values are valid values in ASCII.  What I believe I need to do is to use the
hex value of the return string and convert the hex value from ASCII to
EPDIC.  After that is done life will be easy....

Any suggestions would be appreciated...

Thanks

Mike Silvers



================================

Mike Silvers, IBM Certified Expert
Hainey Business Systems
8 E. Canal St
Dover, PA 17315
Branch Office:  (410) 397-8739
Phone:  (800) 932-3380
Fax:  (717) 292-9474
Web: http:\\www.hbs-inc.com
________________________________
Providing E-Commerce, EDI, AS/400
Development and related services
nationwide.
================================

+---
| 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
+---

This communication is confidential and may be legally privileged. 
If it is not addressed to you, you are on notice of its status. 
Please immediately contact us at our cost and destroy it.  
Please do not use, disclose, copy, distribute or retain any of it 
without our authority - to do so could be a breach of confidence. 
Thank you for your co-operation.  
Please contact us on (09) 356 5800 if you need assistance.
+---
| 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
+---