home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch09 / CHAPT09B.COB < prev    next >
Text File  |  1998-09-14  |  2KB  |  55 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt09b.
  4. 000031* Simple Evaluate Example 2
  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  Sale-Price          Pic 9(4)v99 Value 1000.00.
  12. 000068 01  Commission-Percent  Pic 999 Value Zeros.
  13. 000069 01  Commission          Pic 9(4)v99 Value Zeros.
  14. 000072 Procedure Division.
  15. 000159 Chapt09b-Start.
  16. 000160     Evaluate Sale-Price
  17. 000161        When 1000 Thru 10000
  18. 000162           Move 50 To Commission-Percent
  19. 000163        When 500 Thru 1000
  20. 000164           Move 25 To Commission-Percent
  21. 000165        When 250 Thru 500
  22. 000166           Move 10 To Commission-Percent
  23. 000167        When Other
  24. 000168           Move  5 To Commission-Percent
  25. 000169     End-Evaluate
  26. 000170     Display "Commission " Commission-Percent
  27. 000180     Evaluate True
  28. 000190        When Sale-Price >= 1000
  29. 000191           Move 50 To Commission-Percent
  30. 000192        When Sale-Price >= 500
  31. 000193           Move 25 To Commission-Percent
  32. 000194        When Sale-Price >= 250
  33. 000195           Move 10 To Commission-Percent
  34. 000196        When Other
  35. 000197           Move 5  To Commission-Percent
  36. 000198     End-Evaluate
  37. 000199     Display "Commission " Commission-Percent
  38. 000200     Evaluate True
  39. 000201        When Sale-Price >= 1000
  40. 000202           Move 50 To Commission-Percent
  41. 000203           Compute Commission Rounded = Sale-Price * .5
  42. 000204        When Sale-Price >= 500
  43. 000205           Move 25 To Commission-Percent
  44. 000206           Compute Commission Rounded = Sale-Price * .25
  45. 000207        When Sale-Price >= 250
  46. 000208           Move 10 To Commission-Percent
  47. 000209           Compute Commission Rounded = Sale-Price * .1
  48. 000210        When Other
  49. 000211           Move 5  To Commission-Percent
  50. 000212           Compute Commission Rounded = Sale-Price * .05
  51. 000213     End-Evaluate
  52. 000214     Display "Commission " Commission-Percent " " Commission
  53. 000215
  54. 000216     Stop Run
  55. 000217     .