home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch12 / chapt12e.cob < prev    next >
Encoding:
Text File  |  1998-09-16  |  1.4 KB  |  34 lines
  1. 000010 @OPTIONS MAIN,TEST
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt12e.
  4. 000044 Environment Division.
  5. 000050 Configuration Section.
  6. 000051 Source-Computer.  IBM-PC.
  7. 000055 Object-Computer.  IBM-PC.
  8. 000056 Data Division.
  9. 000057 Working-Storage Section.
  10. 000067 01  State-Table-Area.
  11. 000068     03  State-Table-Data.
  12. 000077         05  Filler Pic X(37) Value "ALBirmingham     Alabama".
  13. 000087         05  Filler Pic X(37) Value "ALMontgomery     Alabama".
  14. 000097         05  Filler Pic X(37) Value "AZPhoenix        Arizona".
  15. 000107         05  Filler Pic X(37) Value "AZTucson         Arizona".
  16. 000199     03  State-Table Redefines State-Table-Data.
  17. 000200         05  State-Table-Occurrences  Occurs 4 Times
  18. 000201             Indexed By Table-Index
  19. 000202             Ascending Key State-Abbrev City-Name.
  20. 000203             10  State-Abbrev        Pic XX.
  21. 000204             10  City-Name           Pic X(15).
  22. 000205             10  State-Name          Pic X(20).
  23. 000206 Procedure Division.
  24. 000207 Chapt12e-Start.
  25. 000216     Search All State-Table-Occurrences
  26. 000218            At End Display "State Not Found"
  27. 000219            When State-Abbrev (Table-Index) = "AZ"
  28. 000220            And  City-Name (Table-Index) = "Phoenix"
  29. 000221                 Display "State = "
  30. 000222                         State-Name (Table-Index)
  31. 000223     End-Search
  32. 000224     Stop Run
  33. 000344     .
  34.