home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch05 / CHAPT05X.COB < prev   
Encoding:
Text File  |  1998-09-15  |  2.2 KB  |  48 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt05x.
  4. 000031* Chapter 5 Exercise Answer
  5. 000040 Environment Division.
  6. 000050 Configuration Section.
  7. 000060 Source-Computer.  IBM-PC.
  8. 000070 Object-Computer.  IBM-PC.
  9. 000080 Data Division.
  10. 000090 Working-Storage Section.
  11. 000091 01  Work-Numbers Value Zeros.
  12. 000100     03  First-Number          Pic 9(5).
  13. 000110     03  Second-Number         Pic 9(5).
  14. 000120     03  Addition-Result       Pic 9(6).
  15. 000121* Subtraction-Result Is Signed In Case The Result Is Negative.
  16. 000130     03  Subtraction-Result    Pic S9(5).
  17. 000140     03  Multiplication-Result Pic 9(9).
  18. 000150     03  Division-Result       Pic 9(6)v9(4).
  19. 000254 Screen Section.
  20. 000255 01  Main-Screen Blank Screen.
  21. 000259     03  Line 1 Column 1  Value "First Number: ".
  22. 000260     03  Line 1 Column 15 Pic Z(4)9 Using First-Number.
  23. 000261     03  Line 2 Column 1  Value "Second Number: ".
  24. 000262     03  Line 2 Column 15 Pic Z(4)9 Using Second-Number.
  25. 000263     03  Line 5 Column 1  Value "Addition Result ".
  26. 000264     03  Line 5 Column 17 Pic Z(5)9 From Addition-Result.
  27. 000265     03  Line 6 Column 1  Value "Subtraction Result ".
  28. 000266     03  Line 6 Column 20 Pic Z(4)9- From Subtraction-Result.
  29. 000267     03  Line 7 Column 1  Value "Multiplication Result ".
  30. 000268     03  Line 7 Column 23 Pic Z(8)9 From Multiplication-Result.
  31. 000269     03  Line 8 Column 1  Value "Division Result ".
  32. 000270     03  Line 8 Column 17 Pic Z(5)9.9(4) From Division-Result.
  33. 000271 Procedure Division.
  34. 000286 Chapt05x-Start.
  35. 000287     Display Main-Screen
  36. 000297     Accept Main-Screen
  37. 000307     Add First-Number Second-Number Giving Addition-Result
  38. 000317     Subtract Second-Number From First-Number
  39. 000327              Giving Subtraction-Result
  40. 000337     Multiply First-Number By Second-Number
  41. 000347              Giving Multiplication-Result
  42. 000357* If You Have Entered Zero As The Second Number, The Program Will
  43. 000358* Crash With A Message "The program has performed an illegal operation"
  44. 000359* The Details Of Which Will Be "divide exception".
  45. 000360     Divide First-Number By Second-Number
  46. 000367              Giving Division-Result
  47. 000377     Display Main-Screen
  48. 000460     Stop Run.
  49.