home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch09 / CHAPT09A.COB next >
Text File  |  1998-09-14  |  943b  |  28 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt09a.
  4. 000031* Simple Evaluate 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  Data-Item-A         Pic X Value "A".
  12. 000068 01  Data-Item-B         Pic X Value "B".
  13. 000072 Procedure Division.
  14. 000159 Chapt09a-Start.
  15. 000160     Evaluate Data-Item-A = Data-Item-B
  16. 000170        When True
  17. 000180           Display "Items are Equal"
  18. 000190        When False
  19. 000191           Display "Items are not equal"
  20. 000192     End-Evaluate
  21. 000193     Evaluate True
  22. 000194        When Data-Item-A = Data-Item-B
  23. 000195           Display "Items are Equal"
  24. 000196        When Data-Item-A Not = Data-Item-B
  25. 000197           Display "Items are not equal"
  26. 000198     End-Evaluate
  27. 000199     Stop Run
  28. 000200     .