Re: Converting characters to hex

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

According to the online manual: 

http://publib.boulder.ibm.com:80/cgi-bin/bookmgr/BOOKS/qbjatn00/3.24.3

3.24.3 Parameters

receiver (input/output) 
Pointer to an 8-bit character value. 

source (input) 
Pointer to a 4-bit hexadecimal value. 

size (input) 
The length in nibbles of the source. 

Regards,

Jim Langston

Me transmitte sursum, Caledoni!

Jon.Paris@hal.it wrote:
> 
> Someone commented earlier that they had tried to use C's MI built-ins for
> this but they "didn't work".  Well they do as the program below will
> testify.  Perhaps the gentleman who tried it (like me) foolishly thought
> that cvtch converted characters to hex - that would be _much_ too simple.
> cvthc is the one you need for this.  Use cvtch instead and it blows up
> nicely! (thanks Mel for pointing this out to me).  Also note that it
> appears to be the length of the hex output string that needs to be
> specified not the length of the input.  I'd confirm all this if I had a
> manual handy but ....
> 
>      H BndDir('QC2LE') DftActGrp(*No)
> 
>      D cvthc           Pr                  Extproc('cvthc')
>      D  receiver                       *   Value
>      D  source                         *   Value
>      D  size                         10i 0 Value
> 
>      D Inputchar       S             20a   Inz('Convert this to hex')
>      D OutputHex       S             40a
> 
>      C                   CallP     cvthc(%Addr(OutputHex):%Addr(InputChar):
>      C                                   %Len(OutputHex))
>      C     InputChar     Dsply
>      C     OutputHex     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
+---