Re: Moving Packed Data

Does this work?

  eval  fieldp = %dec(%subst(longfield: 12: 10)
(where 12 & 10 are the starting position and length)?

and, could you eval your result field with %editc(fieldp: 'Z') ?


Curt Vancalster wrote:

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