Re: Char to Hex

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

Hmm... so the crux of the matter is, how do you assign a single char the value
of a hex string such as 'C1' so the char becomes x'C1' or 'A'.

There may be a function somewhere, and if so hopefully someone will answer your
message with it.  If not this program displays 'A'

D                 DS                                     
D Character               2      2A                      
D HexValue                1      2B 0                    
                                                          
C                   Eval      HexValue = 12 * 16 + 1     
                                                          
C     Character     Dsply                                
                                                          
C                   Eval      *INLR = *On                
                                                          
The Hex Character 'C' is Decimal 12.  Basically, value of the first hex 
character
times 16 plus the value of the second character will equal the binary hex 
value. 

This is just the mechanics.  The logic I leave as an excercise to the reader.  
This
is one way to do it, and I'm sure it's not the best way.  If this is the way 
you are
going to wind up doing it, however, I would suggest making this a function that 
you
pass a 2 character hex string and returns a single character.

Make sure you wait for better answers before you use this one though.

Regards,

Jim Langston

Me transmitte sursum, Caledoni!

Peter Connell wrote:
> 
> Anybody got a modern routine for converting a character string that has been
> entered in hex format back to the compressed hex representation. eg a 6 char
> field 'C1C2C3' input should return a 3 char output of 'ABC' , that is
> X'C1C2C3'.
> I tried the C runtime cvtch and cvthc but they didn't seem to work.
> 
> Peter
> 
> 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
> +---

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