Re: Ascii to Epdic conversions

[Scott Klement <klemscot@xxxxxxxxxxxx>]

On Tue, 14 Nov 2000, Mike Silvers wrote:
> 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
> 

The only times I've had problems with QDCXLATE have been when I specified
an invalid length (such as zero or less) in the length parameter, or
when I had the length parameter improperly defined.

Have you checked your job log to see if there is any indication of what
the problem is?  (Perhaps you're using the "QEPDIC" table instead of the
"QEBCDIC" table?!) 

Here's an example (which works) of calling QDCXLATE.  Maybe It'll help.
If not, POST YOUR CODE!  (give us a CHANCE, at least!)


 D Translate       PR                  ExtPgm('QDCXLATE')
 D   Length                       5P 0 const
 D   Buffer                   32766A   options(*varsize)
 D   Table                       10A   const

 D Data            S             50A

 C* ASCII word "hello"
 c                   eval      Data = x'48656C6C6F'

 C* Translate ASCII to EBCDIC
 c                   callp     Translate(5: Data: 'QEBCDIC')

 C* Show result 
 c     Data          dsply

 c                   eval      *inlr = *on


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