Re: Packed and zoned decimal problem

David,

My understanding is that any numeric field is stored as packed within the program memory, regardless of how it is stored externally.

If you want to pass field myzone into a procedure, I believe you can define it on the D specs for the procedure as S. as found on your I and O specs.

Alternatively, you could more field myzone to another field name for this purpose.


Regards,
John McKay
www.rpglanguage.com

----- Original Message ----- From: "David FOXWELL" <David.FOXWELL@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, October 22, 2008 10:46 AM
Subject: Packed and zoned decimal problem


Hi,

If I compile this simple code :
FTST821 UP E K DISK

C UPDATE TST821F1

Where TST821 is a DDS PF with myzone declared as 13S 2,

My compile listing shows 3 references to myzone :

Here,
ITST821F1
I S 13 21 2myzone

Here,
OTST821F1
O myzone 42S ZONE 13,2
And here :
Références de zone globales :
Zone Attributs Références (D=Défini M=Mo
myzone P(13,2) 54M 65


Could someone explain the last definition? If I were to pass myzone by reference to a procedure, it's the packed version that gets passed. How should I pass this zone?

Thanks!