home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch23 / CHAPT23B.COB < prev    next >
Text File  |  1998-09-14  |  2KB  |  41 lines
  1. 000020 Identification Division.
  2. 000030 Program-Id.  Chapt23b Is Initial.
  3. 000031* Intelligent Telephone Number Format
  4. 000040 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  Phone-Number        Pic 9(10) Value Zeros.
  11. 000068 01  Formatted-Number    Pic X(14) Value "(XXX) XXX-XXXX".
  12. 000072 01  Formatted-Alternate Pic X(8)  Value "XXX-XXXX".
  13. 000073 01  The-Edited-Number   Pic X(14) Value Spaces.
  14. 000074 Screen Section.
  15. 000075 01  Phone-Entry Blank Screen.
  16. 000076     03  Line 01 Column 01 Value " Enter Phone Number: ".
  17. 000077     03  Line 01 Column 22 Pic Z(10) Using Phone-Number.
  18. 000078     03  Line 03 Column 01 Value "Edited Phone Number: ".
  19. 000079     03  Line 03 Column 22 Pic X(14) From The-Edited-Number.
  20. 000080 Procedure Division.
  21. 000159 Chapt23b-Start.
  22. 000160     Display Phone-Entry
  23. 000161     Accept  Phone-Entry
  24. 000162     If Phone-Number > 9999999
  25. 000163* Number Large Enough To Contain Area Code
  26. 000164        Inspect Formatted-Number
  27. 000166          Replacing First "XXX"  By Phone-Number (1:3)
  28. 000167                    First "XXX"  By Phone-Number (4:3)
  29. 000168                    First "XXXX" By Phone-Number (7:4)
  30. 000169        Move Formatted-Number To The-Edited-Number
  31. 000170     Else
  32. 000171* Number Not Large Enough To Contain An Area Code
  33. 000172        Inspect Formatted-Alternate
  34. 000173          Replacing First "XXX"  By Phone-Number (4:3)
  35. 000174                    First "XXXX" By Phone-Number (7:4)
  36. 000175        Move Formatted-Alternate To The-Edited-Number
  37. 000176     End-If
  38. 000177     Display Phone-Entry
  39. 000178     Accept Phone-Entry
  40. 000179     Exit Program
  41. 000180     .