Packed and zoned decimal problem

[David FOXWELL <David.FOXWELL@xxxxxxxxx>]

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!