home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch12 / CHAPT12C.COB < prev    next >
Text File  |  1998-09-14  |  4KB  |  78 lines
  1. 000010 @OPTIONS MAIN,TEST
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt12c.
  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(22) Value "ALAlabama".
  13. 000087         05  Filler Pic X(22) Value "AKAlaska".
  14. 000097         05  Filler Pic X(22) Value "AZArizona".
  15. 000107         05  Filler Pic X(22) Value "ARArkansas".
  16. 000117         05  Filler Pic X(22) Value "CACalifornia".
  17. 000127         05  Filler Pic X(22) Value "COColorado".
  18. 000137         05  Filler Pic X(22) Value "CTConnecticut".
  19. 000138         05  Filler Pic X(22) Value "DCDistrict of Columbia".
  20. 000147         05  Filler Pic X(22) Value "DEDelaware".
  21. 000157         05  Filler Pic X(22) Value "FLFlorida".
  22. 000158         05  Filler Pic X(22) Value "GAGeorgia".
  23. 000159         05  Filler Pic X(22) Value "HIHawaii".
  24. 000160         05  Filler Pic X(22) Value "IDIdaho".
  25. 000161         05  Filler Pic X(22) Value "ILIllinois".
  26. 000162         05  Filler Pic X(22) Value "INIndiana".
  27. 000163         05  Filler Pic X(22) Value "IAIowa".
  28. 000164         05  Filler Pic X(22) Value "KSKansas".
  29. 000165         05  Filler Pic X(22) Value "KYKentucky".
  30. 000166         05  Filler Pic X(22) Value "LALouisiana".
  31. 000167         05  Filler Pic X(22) Value "MEMaine".
  32. 000168         05  Filler Pic X(22) Value "MDMaryland".
  33. 000169         05  Filler Pic X(22) Value "MAMassachusetts".
  34. 000170         05  Filler Pic X(22) Value "MIMichigan".
  35. 000171         05  Filler Pic X(22) Value "MNMinnesota".
  36. 000172         05  Filler Pic X(22) Value "MSMississipi".
  37. 000173         05  Filler Pic X(22) Value "MOMissouri".
  38. 000174         05  Filler Pic X(22) Value "MTMontana".
  39. 000175         05  Filler Pic X(22) Value "NENebraska".
  40. 000176         05  Filler Pic X(22) Value "NVNevada".
  41. 000177         05  Filler Pic X(22) Value "NHNew Hampshire".
  42. 000178         05  Filler Pic X(22) Value "NJNew Jersey".
  43. 000179         05  Filler Pic X(22) Value "NMNew Mexico".
  44. 000180         05  Filler Pic X(22) Value "NYNew York".
  45. 000181         05  Filler Pic X(22) Value "NCNorth Carolina".
  46. 000182         05  Filler Pic X(22) Value "NDNorth Dakota".
  47. 000183         05  Filler Pic X(22) Value "OHOhio".
  48. 000184         05  Filler Pic X(22) Value "OKOklahoma".
  49. 000185         05  Filler Pic X(22) Value "OROregon".
  50. 000186         05  Filler Pic X(22) Value "PAPennsylvania".
  51. 000187         05  Filler Pic X(22) Value "RIRhode Island".
  52. 000188         05  Filler Pic X(22) Value "SCSouth Carolina".
  53. 000189         05  Filler Pic X(22) Value "SDSouth Dakota".
  54. 000190         05  Filler Pic X(22) Value "TNTennessee".
  55. 000191         05  Filler Pic X(22) Value "TXTexas".
  56. 000192         05  Filler Pic X(22) Value "UTUtah".
  57. 000193         05  Filler Pic X(22) Value "VTVermont".
  58. 000194         05  Filler Pic X(22) Value "VAVirginia".
  59. 000195         05  Filler Pic X(22) Value "WAWashington".
  60. 000196         05  Filler Pic X(22) Value "WVWest Virginia".
  61. 000197         05  Filler Pic X(22) Value "WIWisconsin".
  62. 000198         05  Filler Pic X(22) Value "WYWyoming".
  63. 000199     03  State-Table Redefines State-Table-Data.
  64. 000200         05  State-Table-Occurrences  Occurs 51 Times
  65. 000201                                      Indexed By Table-Index.
  66. 000202             10  State-Abbrev        Pic XX.
  67. 000203             10  State-Name          Pic X(20).
  68. 000205 Procedure Division.
  69. 000206 Chapt12c-Start.
  70. 000214* Search For Texas, By Abbreviation
  71. 000215     Search State-Table-Occurrences
  72. 000216            At End Display "State Not Found"
  73. 000217            When State-Abbrev (Table-Index) = "TX"
  74. 000218                 Display "TX = "
  75. 000219                         State-Name (Table-Index)
  76. 000221     End-Search
  77. 000222     Stop Run
  78. 000344     .