home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch06 / CHAPT06C.COB < prev    next >
Text File  |  1998-09-14  |  2KB  |  55 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt06c.
  4. 000031* Name And E-Mail Edit
  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(40) Value Spaces.
  13. 000069     03  E-Mail                 Pic X(30) Value Spaces.
  14. 000070     03  Last-Name              Pic X(30) Value Spaces.
  15. 000071     03  First-Name             Pic X(30) Value Spaces.
  16. 000075 01  Work-Number                Pic 99 Value Zeros.
  17. 000076 01  Work-Number-1              Pic 99 Value Zeros.
  18. 000085 Screen Section.
  19. 000255 01  Name-Entry-Screen
  20. 000256     Blank Screen, Auto
  21. 000257     Foreground-Color Is 7,
  22. 000258     Background-Color Is 1.
  23. 000259*
  24. 000260     03  Screen-Literal-Group.
  25. 000261         05  Line 01 Column 30 Value "Name and E-mail Entry"
  26. 000262             Highlight Foreground-Color 4 Background-Color 1.
  27. 000263         05  Line 05 Column 05 Value "  Name: ".
  28. 000273         05  Line 06 Column 05 Value "E-mail: ".
  29. 000283         05  Line 08 Column 05 Value "  Last: ".
  30. 000284         05  Line 09 Column 05 Value " First: ".
  31. 000287     03  Reverse-Video-Group Reverse-Video.
  32. 000288         05  Line 05 Column 13 Pic X(40) Using Name-Entry.
  33. 000289         05  Line 06 Column 13 Pic X(30) Using E-Mail.
  34. 000290         05  Line 08 Column 13 Pic X(30) From  Last-Name.
  35. 000291         05  Line 09 Column 13 Pic X(30) From  First-Name.
  36. 000326 Procedure Division.
  37. 000327 Chapt06c-Start.
  38. 000328     Display Name-Entry-Screen
  39. 000329     Accept  Name-Entry-Screen
  40. 000330* Split The First And Last Name Out Into Separate Fields
  41. 000331     Inspect Name-Entry Tallying Work-Number
  42. 000332             For Characters Before ","
  43. 000334     Move Name-Entry (1:work-Number) To Last-Name
  44. 000335     Add 2 To Work-Number
  45. 000336* You Need To Exclude The Leading Spaces, After The Comma
  46. 000337     Inspect Name-Entry (Work-Number:)
  47. 000338             Tallying Work-Number-1 For Leading Spaces
  48. 000342     Move Name-Entry (Work-Number + Work-Number-1:) To First-Name
  49. 000343* Change The E-Mail Address To All Lower Case Letters.
  50. 000344     Inspect E-Mail Converting "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  51. 000345                    To         "abcdefghijklmnopqrstuvwxyz"
  52. 000346* Show The Results
  53. 000347     Display Name-Entry-Screen
  54. 000348     Stop Run
  55. 000358     .