× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



First you need to do an ATOI and convert the character numeric values
into an integer, then convert the integers to hex characters using
CVTHC/CVTCH.
You could also just call a procedure to do that work for you. If you
really want a character string with "FF:FF:FF" in it you could return
that from the procedure easy enough. And by accepting the input of three
Integers you could avoid the conversion with atoi().
See these links for related information:
Interfacing with C language:
http://www.rpgiv.com/rpgnews/Feb99a/highmath.html
atoi() examples and information:
http://www.rpgiv.com/rpgnews/July2000/chartonum.html
Converting to/from hex:
http://www.rpgiv.com/kb/index.html#CRuntimeAPI


Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of booth@MartinVT.com
> Sent: Saturday, September 01, 2001 11:34 AM
> To: rpg400-l@midrange.com
> Subject: RE: Hex in RPG
>
> This is a multipart message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> How would I do the same chore if the value to convert is a variable
number
> from 0 to 255?
>
> What I want to do is to make a color value in hex from any base10
numeric
> color value.  Color values are {red:blue:green} = {(0 to 255):(0 to
> 255):(0to255)} =  {(00 to ff):(00 to ff):(00 to ff)}
>
> For example I'd like to convert '255:255:255'  to 'ff:ff:ff'
>
> ------------------------------------------------
> Booth Martin
> Booth@MartinVT.com
> http://www.MartinVT.com
> -----------------------------------------------
>
>
>
>
> "Reeve Fritchman" <reeve@ltl400.com>
> Sent by: rpg400-l-admin@midrange.com
> 09/01/2001 10:56 AM
> Please respond to rpg400-l
>
>
>         To:     <rpg400-l@midrange.com>
>         cc:
>         Subject:        RE: Hex in RPG
>
>
> In you "D" spec, do INZ(x'15') or INZ(x'0D0A').  You can also do
something
> line EVAL OUTPUT=%TRIMR(TEXT1) + x'15' + $TEXT2
>
> -----Original Message-----
> From: rpg400-l-admin@midrange.com
[mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Arlene_M_Soderlund/NFCNA.COM@NFCNA.COM
> Sent: Friday, August 31, 2001 2:20 PM
> To: rpg400-l@midrange.com
> Subject: Hex in RPG
>
>
> How do you code field or a line of code  that contains --  a hex 15
> (X'15')
> or hex 0D0A (x'0D0A') in a RPGLE V4R4 program.
>
>
> Thanks
>
> Arlene
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.