RE: RV: Converting Packed to Char.

["Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>]

Isn't the 13th element 'C'?

Bill H





"Booth Martin" <Booth@xxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/30/2003 10:52 AM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     <rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        RE: RV: Converting Packed to Char.


hex? I missed that. Sorry.
 
D hex S 16 inz('0123456789ABCDEF') 
 
 
In your C specs divide by 16. The remainder +1 is the array index pointing
out the right most character. 
Repeat, until you've divided your answers by 16 til its 0, using the
remainders to establish your hex values.
 
for example, lets say the number is 44.
 
Dividing by 16 equals 2, with a remainder of 12. 12+1=13, The 13th array
element is 'D'
Dividing the above answer (2) by 16 is 0 with a remainder of 2. 2+1=3. The
3rd element is '2'
 
So, the hex number for 44 is 2D
 
(gads I hope this is right and not backwards. I never get this stuff right
the first time. But the idea is there, even if its messed up.)
 
---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: Wednesday, July 30, 2003 9:09:41 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: RV: Converting Packed to Char.
 
> What is the problem with
>
> C eval wwRetVal = %trim(%EditC(CharNum:'3'))
>
> ??
>
> Won't this do exactly the same job? Use editcode N if you
> want the minus
> sign on the left.
 
If you take a look to my request and the code i later posted, you'll 
realize
that is not the same result.
 
Carlos K.

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.