home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch06 / CHAPT06X.COB < prev   
Text File  |  1998-09-14  |  2KB  |  49 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt06x.
  4. 000031* Chapter 6 Exercise Solution
  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. 000057 Working-Storage Section.
  11. 000058 01  Screen-Items.
  12. 000068     03  Name-Entry             Pic X(60) Value Spaces.
  13. 000070     03  Last-Name              Pic X(30) Value Spaces.
  14. 000071     03  First-Name             Pic X(30) Value Spaces.
  15. 000075 01  Work-Number                Pic 99 Value Zeros.
  16. 000076 01  Work-Number-1              Pic 99 Value Zeros.
  17. 000085 Screen Section.
  18. 000255 01  Name-Entry-Screen
  19. 000256     Blank Screen, Auto
  20. 000257     Foreground-Color Is 7,
  21. 000258     Background-Color Is 1.
  22. 000260     03  Screen-Literal-Group.
  23. 000263         05  Line 05 Column 05 Value "  Name: ".
  24. 000283         05  Line 08 Column 05 Value "  Last: ".
  25. 000284         05  Line 09 Column 05 Value " First: ".
  26. 000287     03  Reverse-Video-Group Reverse-Video.
  27. 000288         05  Line 05 Column 13 Pic X(60) Using Name-Entry.
  28. 000290         05  Line 08 Column 13 Pic X(30) From  Last-Name.
  29. 000291         05  Line 09 Column 13 Pic X(30) From  First-Name.
  30. 000326 Procedure Division.
  31. 000327 Chapt06x-Start.
  32. 000328     Display Name-Entry-Screen
  33. 000329     Accept  Name-Entry-Screen
  34. 000330* Change To Uppercase Before Splitting The Names.
  35. 000331     Inspect Name-Entry Converting "abcdefghijklmnopqrstuvwxyz"
  36. 000332                        To         "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  37. 000333* Split The First And Last Name Out Into Separate Fields
  38. 000334     Inspect Name-Entry Tallying Work-Number
  39. 000335             For Characters Before " "
  40. 000336     Move Name-Entry (1:work-Number) To First-Name
  41. 000337     Add 1 To Work-Number
  42. 000338* You Need To Exclude The Extra Spaces If Any
  43. 000339     Inspect Name-Entry (Work-Number:)
  44. 000340             Tallying Work-Number-1 For Leading Spaces
  45. 000342     Move Name-Entry (Work-Number + Work-Number-1:) To Last-Name
  46. 000346* Show The Results
  47. 000347     Display Name-Entry-Screen
  48. 000348     Stop Run
  49. 000358     .