[COBOL400-L] Editing A Numeric Packed Field in a COBOL/400 Program

[D Meza <mezazerlin@xxxxxxxxx>]

Hello,
 
I'm in need of some help. I'm reading in the following file into my 
program-example:
 
FD Fee-File
     01  Fee-Record.
          05  Fee-Customer-No   Pic X(10).
          05  Fee-Owed              Pic 9(03)V(02) Pack-Decimal.
 
I'm moving Fee-File into Ws-Input-Fee-File for editing:
 
Read Fee-File into Ws-Fee-Input-Record
 
05  Ws-Fee-Input-Record.
      10  Ws-Fee-Input-Student-Id Pic X(10).
      10  Ws-Fee-Owed                Pic Z(3).ZZ.
 
My big problem is that in my program, I have the following edit.
 
If Ws-Fee-Owed is greater than zero
   move a "Y" to Ws-fees-owed-flag (I am not getting the result of the edit 
that I want)
 
In my program I want to make sure there is a value greater than zero and it is 
not working correctly-the edit is not working.  What am I doing wrong and what 
do I need to do to have a successful edit to find out if a dollor amount is 
greater than zero in COBOL/400. 
 
I would appreciate any help you could give me.
 
COBOL 400 Beginner.

                
---------------------------------
Do you Yahoo!?
Yahoo! Photos: High-quality 4x6 digital prints for 25¢