I redid the quiz report in both 7.29 and 8.19 and got the following results
( I did takeout the output scale command).

> CAN CLE
> SET DEF
> def q% num = 2223
> def t num = 23750
> def n1 num = t * q%
> def p1 packed size 6 = t * q%
> def p2 packed size 6 = n1
>
> report n1 pic "^^^^^^^^^^^"  p1 pic "^^^^^^^^^^^"  p2 pic "^^^^^^^^^^^"
>
> go

09/29/98                         ANODIZING INC.                        PAGE
1

       N1                         P1                P2

     52796250     52796250     52796250

Abraham Zwygart
Senior Programmer Analysts     Email : [log in to unmask]


-----Original Message-----
From: Friedrich Harasleben <[log in to unmask]>
To: [log in to unmask] <[log in to unmask]>
Date: Tuesday, September 29, 1998 5:54 AM
Subject: Powerhouse Question (sort of long)


>Dear Listers
>
>I know this is not realy MPE - but every now and then I saw a POWERHOUSE
>question on the list, so I dare ...
>
>I am not a great expert on the bit/byte level of data storage. For
>special reasons I need a packed value in a Powerhouse program and tried
>to do the following (simulated in QUIZ) :
>
>> access kundlist-d
>> def q% num = 22,23
>> def t num = 237,50
>> def n1 num = t * q%
>> def p1 packed size 6 = t * q%
>> def p2 packed size 6 = n1
>>
>>  report n1 out 5 pic "^^^^^^^^^^^" p1 out 5 pic "^^^^^^^^^^^" &
>>          p2 out 5 pic "^^^^^^^^^^^"
>>
>> go
>
>29.09.98                         OEKV-DATENBANK
>PAGE 1
>
>N1                  P1                  P2
>
>527962500    527900000    527900000
>
>My question now is: where did the rest go, when transferring the data
>from N1 to P1.
>
>Any suggestions are highly appreciated,
>
>TIA
>Friedrich