home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch12 / CHAPT12D.COB < prev    next >
Encoding:
Text File  |  1998-09-15  |  4.0 KB  |  79 lines
  1. 000010 @OPTIONS MAIN,TEST
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt12d.
  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                                      Ascending Key State-Name.
  67. 000203             10  State-Abbrev        Pic XX.
  68. 000204             10  State-Name          Pic X(20).
  69. 000206 Procedure Division.
  70. 000207 Chapt12d-Start.
  71. 000214* Search For Texas, By Name, Show Abbreviation
  72. 000216     Search All State-Table-Occurrences
  73. 000218            At End Display "State Not Found"
  74. 000219            When State-Name (Table-Index) = "Texas"
  75. 000220                 Display "Texas = "
  76. 000221                         State-Abbrev (Table-Index)
  77. 000222     End-Search
  78. 000224     Stop Run
  79. 000344     .
  80.