home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch22 / CHAPT22B.COB < prev    next >
Text File  |  1998-09-14  |  2KB  |  35 lines
  1. 000010 @OPTIONS MAIN,TEST
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt22b.
  4. 000031*annuity Example
  5. 000040 Environment Division.
  6. 000050 Configuration Section.
  7. 000051 Source-Computer.  IBM-PC.
  8. 000055 Object-Computer.  IBM-PC.
  9. 000056 Data Division.
  10. 000057 Working-Storage Section.
  11. 000067 01  Loan-Amt         Pic 9(6)v99   Value Zeros.
  12. 000077 01  Interest-Rate    Pic 9(3)v99   Value Zeros.
  13. 000078 01  Loan-Years       Pic 9(3)      Value Zeros.
  14. 000087 01  Payment-Amt      Pic 9(6)v99   Value Zeros.
  15. 000097 01  Monthly-Interest Pic 9(3)v9(9) Value Zeros.
  16. 000136 Screen Section.
  17. 000137 01  Data-Entry Blank Screen Auto.
  18. 000138     03  Line 01 Column 01 Value "Enter Principal: ".
  19. 000139     03  Line 01 Column 18 Pic Z(6).99 Using Loan-Amt.
  20. 000140     03  Line 03 Column 1  Value "Enter Interest Rate: ".
  21. 000141     03  Line 03 Column 22 Pic Z(2)9.99 Using Interest-Rate.
  22. 000142     03  Line 04 Column 1  Value "Number of Years of Loan: ".
  23. 000143     03  Line 04 Column 26 Pic ZZ9 Using Loan-Years.
  24. 000144     03  Line 06 Column 1  Value "Monthly Payment: ".
  25. 000145     03  Line 06 Column 18 Pic Z(3),Z(3).99 From Payment-Amt.
  26. 000148 Procedure Division.
  27. 000159 Chapt22b-Start.
  28. 000169     Display Data-Entry
  29. 000179     Accept Data-Entry
  30. 000189     Compute Monthly-Interest Rounded = (Interest-Rate / 12) / 100
  31. 000199     Compute Payment-Amt Rounded = Loan-Amt *
  32. 000209             Function Annuity (Monthly-Interest, Loan-Years * 12)
  33. 000219     Display Data-Entry
  34. 000299     Stop Run
  35. 000309     .