|
midrange.com
There is a sample procedure, CvtToHex on page 95 of the manual
sc09-2507-02, hope this is what you're looking for
MarK A McCarty
AS/400 Programmer/Developer
Navy Exchange Service Command
quote to consider:
"Whoever said nothing is impossible never tried slamming a revolving
door.."
Jim Langston
<jimlangston@conexfr To: RPG400-L@midrange.com
eight.com> cc:
Sent by: Fax to:
owner-rpg400-l@midra Subject: Re: Char to Hex
nge.com
05/02/2001 11:38 AM
Please respond to
RPG400-L
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
+---
**********************************************************************
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the system manager.
This footnote also confirms that this email message has been swept by
MIMEsweeper for the presence of computer viruses.
www.mimesweeper.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
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
