Converting characters to hex

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