home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch09 / CHAPT09X.COB < prev   
Text File  |  1998-09-14  |  2KB  |  54 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt09x.
  4. 000031* Chapter 9 Exercise Solution
  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  Name-1              Pic X(20) Value Spaces.
  12. 000068 01  Name-2              Pic X(20) Value Spaces.
  13. 000074 01  The-Message         Pic X(40) Value Spaces.
  14. 000075 Screen Section.
  15. 000076 01  Name-Entry Blank Screen.
  16. 000077     03  Line 01 Column 01 Value "Enter Name 1: ".
  17. 000078     03  Line 01 Column 15 Pic X(20) Using Name-1.
  18. 000079     03  Line 02 Column 01 Value "Enter Name 2: ".
  19. 000080     03  Line 02 Column 15 Pic X(20) Using Name-2.
  20. 000081     03  Line 20 Column 01 Pic X(40) From The-Message.
  21. 000083 Procedure Division.
  22. 000159 Chapt09x-Start.
  23. 000160     Display Name-Entry
  24. 000161     Accept  Name-Entry
  25. 000171* Evaluate Method
  26. 000181     Evaluate Name-1 (1:1)
  27. 000191        When Name-2 (1:1)
  28. 000201             Move "Names begin with the same letter" To
  29. 000211                  The-Message
  30. 000221        When Other
  31. 000231             Move "Names begin with different letters" To
  32. 000241                  The-Message
  33. 000251     End-Evaluate
  34. 000261     Display Name-Entry
  35. 000271     Accept Name-Entry
  36. 000281* If Method
  37. 000291     If Name-1 (1:1) = Name-2 (1:1)
  38. 000301        Move "Names begin with the same letter" To
  39. 000311             The-Message
  40. 000321     Else
  41. 000331        Move "Names begin with different letters" To
  42. 000341             The-Message
  43. 000351     End-If
  44. 000361     Display Name-Entry
  45. 000371     Stop Run
  46. 000381     .
  47. 000391*
  48. 000401*  As You Can See, For A Simple Condition, Comparing Two Items,
  49. 000402*  "Evaluate" Is Overkill.  An If Statement Is Easier To Read And
  50. 000403*  Understand.  However, If There Were More Conditions That The Name
  51. 000404*  Field Were To Be Tested Against, Using "Evaluate" Would Make
  52. 000405*  More Sense.
  53. 000441*
  54. 000451