home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch06 / CHAPT06B.COB < prev    next >
Text File  |  1998-09-14  |  1KB  |  32 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt06b.
  4. 000031* Telephone Number Format
  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. 000059 Working-Storage Section.
  11. 000067 01  Phone-Number.
  12. 000068     03  Area-Code       Pic XXX   Value "409".
  13. 000069     03  Prefix-Num      Pic XXX   Value "555".
  14. 000070     03  Last-Four       Pic X(4)  Value "1212".
  15. 000071 01  Formatted-Number    Pic X(14) Value "(XXX) YYY-ZZZZ".
  16. 000072 01  Formatted-Alternate Pic X(14) Value "(XXX) XXX-XXXX".
  17. 000073
  18. 000074 Procedure Division.
  19. 000159 Start-Of-Program.
  20. 000160     Inspect Formatted-Number
  21. 000161         Replacing All "XXX"  By Area-Code
  22. 000162                   All "YYY"  By Prefix-Num
  23. 000163                   All "ZZZZ" By Last-Four
  24. 000164     Display Formatted-Number
  25. 000165     Inspect Formatted-Alternate
  26. 000166         Replacing First "XXX"  By Area-Code
  27. 000167                   First "XXX"  By Prefix-Num
  28. 000168                   First "XXXX" By Last-Four
  29. 000169     Display Formatted-Alternate
  30. 000170     Stop Run
  31. 000171     .
  32. 000172