Re: Character conversion

["John McKee" <jmmckee@xxxxxxxxxxxxxx>]

Scott and Barbara, and others,

Thanks for the input.  I don't know RPG IV well enough to have created the code you have listed.  My company will be dumping this great system in the not too distant future - maybe a lot of people as well.  I can understand what has been presented in the code samples that have been provided, they make sense, , and they are much appreciated.  I have had to use processes like this in my past using COBOL.  Hard part is coming up with the language syntax - which really shouldn't have been so difficult - except with only RPG III "experience" the last few years, it isn't as straightforward as it really should have been.   

And now, back to the focus of this great forum.  I learn a lot that I will likely never be in a position, again, to use - but learning is important.  

John McKee

-----Original message-----
From: Scott Klement midrange-l@xxxxxxxxxxxxxxxx
Date: Thu, 04 Aug 2011 14:38:17 -0500
To: midrange-l@xxxxxxxxxxxx
Subject: Re: Character conversion

> Hi John,
>
> On 8/4/2011 12:52 PM, John McKee wrote:
> > In the event that the two digits were 7 and 8, in a character string, the hex values (zoned) would be F7F8.  Goal is to convert zoned to unsigned packed, so F7F8 converts to 78 not 4E.
> >
> > I believe I messed up earlier in terminology.
>
> The cvtch() example that I posted earlier should do this nicely.
>
>       H DFTACTGRP(*NO) BNDDIR('QC2LE')
>
>       D cvtch           PR                  ExtProc('cvtch')
>       D   target                   32767A   options(*varsize)
>       D   src_chars                65534A   options(*varsize) const
>       D   src_length                  10I 0 value
>
>       D InputData       ds                  qualified
>       D    zonedVal                    2s 0
>
>       D result          s              1a
>
>        /free
>             InputData.zonedVal = 78;
>             cvtch( result: inputData: %size(inputData) );
>             // result = x'78'.
>
> If you need to handle numerics longer than 2 long (this seems likely) 
> you could simply make 'zonedVal' larger.
>
> Barbara Morris's example will work as well (using an alternative method 
> of conversion) as well.
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.