AW: Moving Packed Data

Hi,

an other solution would be to convert the original character string into Hex
values with and substringing the result into a character field. Attention:
the start position and length in the substring command must be doubled.

C/EXEC SQL  Set :MyChar = Substr(Hex(:InputString), :Start, :Length)
C/End-Exec

Mit freundlichen Gru?en / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les Brown)

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Curt Vancalster
Gesendet: Dienstag, 30. Mai 2006 21:46
An: rpg400-l@xxxxxxxxxxxx
Betreff: 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

--
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.