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¢

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.