RE: Moving Packed Data

Curt,

Try this: 
H BNDDIR('XTOOLS/XTOOLS') 
 /copy xtools/qcpysrc,numtochar

 eval  %char(numToNum(%subst(myData:3:4) : 'P' : 7 : 2))


This requires RPG xTools, however.
If you don't have xTools, look up the LBCPYNV MI instruction, which is what I
use under the covers.

-Bob Cozzi
www.iSeriesTV.com
iPod your industry news instead of reading it.
Coming June 2006
Ask your friends to tune into iSeriesTV.com

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of Curt Vancalster
Sent: Tuesday, May 30, 2006 2:46 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Moving Packed Data

I am working in RPG IV.  I am trying to substringing out of a character
field, packed data.  I am trying to put this packed data back into
another character field, but I don't want it packed, I want to see the
actual value.  How do I accomplish this?  I tried substringing into a
character field and then moved that into a signed field, but that does
not work.  I get a decimal data error.  I don't want to create a data
structure either cause the format of the initial character field could
change.

Any suggestions?

Curt VanCalster
Lead Programmer
Smithfield Beef Group., - Green Bay, WI
(920) 406-1174
curt.vancalster@xxxxxxxxxx