home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch04 / CHAPT04X.COB < prev   
Text File  |  1998-09-14  |  5KB  |  94 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt04x.
  4. 000031* Chapter 4 Exercise Solution
  5. 000040 Environment Division.
  6. 000050 Configuration Section.
  7. 000051 Special-Names.
  8. 000052       Crt Status Is Keyboard-Status
  9. 000053       Cursor Is Cursor-Position.
  10. 000054 Source-Computer.  IBM-PC.
  11. 000055 Object-Computer.  IBM-PC.
  12. 000056 Data Division.
  13. 000057 Working-Storage Section.
  14. 000058 01  Keyboard-Status.
  15. 000059     03  Accept-Status Pic 9.
  16. 000060     03  Function-Key  Pic X.
  17. 000061     03  System-Use    Pic X.
  18. 000062 01  Cursor-Position.
  19. 000063     03  Cursor-Row    Pic 9(2) Value 1.
  20. 000064     03  Cursor-Column Pic 9(2) Value 1.
  21. 000065 01  Screen-Items.
  22. 000075     03  Last-Name           Pic X(25)   Value Spaces.
  23. 000085     03  First-Name          Pic X(15)   Value Spaces.
  24. 000095     03  Middle-Name         Pic X(10)   Value Spaces.
  25. 000096     03  E-Mail              Pic X(50)   Value Spaces.
  26. 000105     03  Address-Line-1      Pic X(50)   Value Spaces.
  27. 000115     03  Address-Line-2      Pic X(50)   Value Spaces.
  28. 000140     03  City                Pic X(40)   Value Spaces.
  29. 000150     03  State-Or-Country    Pic X(20)   Value Spaces.
  30. 000160     03  Postal-Code         Pic X(15)   Value Spaces.
  31. 000170     03  Home-Phone          Pic X(20)   Value Spaces.
  32. 000180     03  Work-Phone          Pic X(20)   Value Spaces.
  33. 000190     03  Other-Phone         Pic X(20)   Value Spaces.
  34. 000200     03  Start-Date          Pic 9(8)    Value Zeros.
  35. 000210     03  Last-Rent-Paid-Date Pic 9(8)    Value Zeros.
  36. 000220     03  Next-Rent-Due-Date  Pic 9(8)    Value Zeros.
  37. 000230     03  Rent-Amount         Pic 9(4)v99 Value Zeros.
  38. 000240     03  Consignment-Percent Pic 9(3)    Value Zeros.
  39. 000254 Screen Section.
  40. 000255 01  Data-Entry-Screen
  41. 000256     Blank Screen, Auto
  42. 000257     Foreground-Color Is 7,
  43. 000258     Background-Color Is 1.
  44. 000259*
  45. 000260     03  Screen-Literal-Group.
  46. 000261         05  Line 01 Column 30 Value "Darlene's Treasures"
  47. 000262             Highlight Foreground-Color 4 Background-Color 1.
  48. 000263         05  Line 03 Column 30 Value "Tenant Entry Program"
  49. 000264             Highlight.
  50. 000265         05  Line 5  Column 01  Value "Name, Last: ".
  51. 000266         05  Line 5  Column 39  Value "First: ".
  52. 000267         05  Line 5  Column 62  Value "Middle: ".
  53. 000268         05  Line 6  Column 01  Value "Address 1: ".
  54. 000269         05  Line 7  Column 01  Value "Address 2: ".
  55. 000270         05  Line 8  Column 01  Value "City: ".
  56. 000271         05  Line 9  Column 01  Value "Country/State: ".
  57. 000272         05  Line 9  Column 36  Value "Postal Code: ".
  58. 000273         05  Line 11 Column 01  Value "Phone/Home: ".
  59. 000274         05  Line 11 Column 34  Value "Work: ".
  60. 000275         05  Line 12 Column 06  Value "Other: ".
  61. 000276         05  Line 13 Column 05  Value "E-Mail: ".
  62. 000277         05  Line 14 Column 01  Value "Start Date: ".
  63. 000278         05  Line 14 Column 24  Value "Last Paid Date: ".
  64. 000279         05  Line 14 Column 50  Value "Next Rent Due on: ".
  65. 000280         05  Line 16 Column 01  Value "Consignment Percent: ".
  66. 000281*
  67. 000282     03  Required-Reverse-Group Reverse-Video Required.
  68. 000284         05  Line 5 Column 13  Pic X(25) Using Last-Name.
  69. 000285         05  Line 5 Column 46  Pic X(15) Using First-Name.
  70. 000286*
  71. 000287     03  Reverse-Video-Group Reverse-Video.
  72. 000288         05  Line 5  Column 70 Pic X(10) Using Middle-Name.
  73. 000289         05  Line 6  Column 15 Pic X(50) Using Address-Line-1.
  74. 000292         05  Line 7  Column 15 Pic X(50) Using Address-Line-2.
  75. 000295         05  Line 8  Column 15 Pic X(40) Using City.
  76. 000300         05  Line 9  Column 15 Pic X(20) Using State-Or-Country.
  77. 000302         05  Line 9  Column 50 Pic X(15) Using Postal-Code.
  78. 000305         05  Line 11 Column 13 Pic X(20) Using Home-Phone.
  79. 000307         05  Line 11 Column 41 Pic X(20) Using Work-Phone.
  80. 000310         05  Line 12 Column 13 Pic X(20) Using Other-Phone.
  81. 000311         05  Line 13 Column 13 Pic X(50) Using E-Mail.
  82. 000313         05  Line 14 Column 13 Pic 99/99/9999
  83. 000314             Using Start-Date.
  84. 000315         05  Line 14 Column 40 Pic 99/99/9999
  85. 000316             Using Last-Rent-Paid-Date.
  86. 000317         05  Line 14 Column 68 Pic 99/99/9999
  87. 000318             Using Next-Rent-Due-Date.
  88. 000321         05  Line 16 Column 22 Pic ZZ9 Using Consignment-Percent.
  89. 000325*
  90. 000326 Procedure Division.
  91. 000327 Chapt04x-Start.
  92. 000328     Display Data-Entry-Screen.
  93. 000329     Accept Data-Entry-Screen.
  94. 000330     Stop Run.