I'm in need of some help. I'm reading in the following file into my 
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¢

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.