Re: Convert from Hex to Binary.... -- RPG400-L

For what it's worth, the array method I suggested is a little faster than using cvtch anditoa.

itoa does not left pad results that have fewer than 8 binary digits. For example x'01'comes back as 1; x'02' comes back as '10', etc.


Here are my test results for 160,000 iterations using each of three different 
subprocedures:

0.960632 seconds - Using arrays

1.063816 seconds - using cvtch and itoa without padding '0's on the left

1.225792 seconds - using cvtch and itoa with additional logic to pad '0's on 
the left.

I used the following instructions, where int1 is the one byte returned by cvtch in 3i 0format, string9 is 9 characters and rtn is 8 characters:

evalr rtn = %str(itoa(int1:string9:2));
return %xlate(' ':'0':rtn);

CGIDEV2's timerStart and timerEelapsed subprocedures were used for timing.

Mel Rothman
Mel Rothman, Inc.

Leif Guldbrand wrote:

Thanks for the answers from Jonathan, Mel and Bob,

I have the program up'n running now.... :-)

Bob...:

I'll convert it for you.


Thanks... a great offer, but I like to do it myself with some
help now and then :-)  - - - - but I used your suggestion.

Best regards,
Leif

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.