home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch04 / CHAPT04C.COB < prev    next >
Text File  |  1998-09-14  |  5KB  |  107 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt04c.
  4. 000031* Data Entry Screen
  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. 000105     03  Address-Line-1      Pic X(50)   Value Spaces.
  26. 000115     03  Address-Line-2      Pic X(50)   Value Spaces.
  27. 000140     03  City                Pic X(40)   Value Spaces.
  28. 000150     03  State-Or-Country    Pic X(20)   Value Spaces.
  29. 000160     03  Postal-Code         Pic X(15)   Value Spaces.
  30. 000170     03  Home-Phone          Pic X(20)   Value Spaces.
  31. 000180     03  Work-Phone          Pic X(20)   Value Spaces.
  32. 000190     03  Other-Phone         Pic X(20)   Value Spaces.
  33. 000200     03  Start-Date          Pic 9(8)    Value Zeros.
  34. 000210     03  Last-Rent-Paid-Date Pic 9(8)    Value Zeros.
  35. 000220     03  Next-Rent-Due-Date  Pic 9(8)    Value Zeros.
  36. 000230     03  Rent-Amount         Pic 9(4)v99 Value Zeros.
  37. 000240     03  Consignment-Percent Pic 9(3)    Value Zeros.
  38. 000254 Screen Section.
  39. 000255 01  Data-Entry-Screen
  40. 000256     Blank Screen, Auto
  41. 000257     Foreground-Color Is 7,
  42. 000258     Background-Color Is 1.
  43. 000259     03  Line 01 Column 30 Value "Darlene's Treasures"
  44. 000260         Highlight Foreground-Color 4 Background-Color 1.
  45. 000261     03  Line 03 Column 30 Value "Tenant Entry Program"
  46. 000262         Highlight.
  47. 000263*
  48. 000264     03  Line 5 Column 01  Value "Name, Last: ".
  49. 000265     03  Line 5 Column 13  Pic X(25) Using Last-Name
  50. 000266         Reverse-Video Required.
  51. 000268     03  Line 5 Column 39  Value "First: ".
  52. 000269     03  Line 5 Column 46  Pic X(15) Using First-Name
  53. 000270         Reverse-Video Required.
  54. 000272     03  Line 5 Column 62  Value "Middle: ".
  55. 000273     03  Line 5 Column 70  Pic X(10) Using Middle-Name
  56. 000274         Reverse-Video.
  57. 000275*
  58. 000276     03  Line 6 Column 01 Value "Address 1: ".
  59. 000277     03  Line 6 Column 15 Pic X(50) Using Address-Line-1
  60. 000278         Reverse-Video.
  61. 000279*
  62. 000280     03  Line 7 Column 01 Value "Address 2: ".
  63. 000281     03  Line 7 Column 15 Pic X(50) Using Address-Line-2
  64. 000282         Reverse-Video.
  65. 000283*
  66. 000284     03  Line 8 Column 01 Value "City: ".
  67. 000285     03  Line 8 Column 15 Pic X(40) Using City
  68. 000286         Reverse-Video.
  69. 000287*
  70. 000288     03  Line 9 Column 01 Value "Country/State: ".
  71. 000289     03  Line 9 Column 15 Pic X(20) Using State-Or-Country
  72. 000290         Reverse-Video.
  73. 000291     03  Line 9 Column 36 Value "Postal Code: ".
  74. 000292     03  Line 9 Column 50 Pic X(15) Using Postal-Code
  75. 000293         Reverse-Video.
  76. 000294*
  77. 000295     03  Line 11 Column 01 Value "Phone/Home: ".
  78. 000296     03  Line 11 Column 13 Pic X(20) Using Home-Phone
  79. 000297         Reverse-Video.
  80. 000298     03  Line 11 Column 34 Value "Work: ".
  81. 000299     03  Line 11 Column 41 Pic X(20) Using Work-Phone
  82. 000300         Reverse-Video.
  83. 000301*
  84. 000302     03  Line 12 Column 06 Value "Other: ".
  85. 000303     03  Line 12 Column 13 Pic X(20) Using Other-Phone
  86. 000304         Reverse-Video.
  87. 000305*
  88. 000306     03  Line 14 Column 01 Value "Start Date: ".
  89. 000307     03  Line 14 Column 13 Pic 99/99/9999 Using Start-Date
  90. 000308         Reverse-Video.
  91. 000309     03  Line 14 Column 24 Value "Last Paid Date: ".
  92. 000310     03  Line 14 Column 40 Pic 99/99/9999 Using Last-Rent-Paid-Date
  93. 000311         Reverse-Video.
  94. 000312     03  Line 14 Column 50 Value "Next Rent Due on: ".
  95. 000313     03  Line 14 Column 68 Pic 99/99/9999 Using Next-Rent-Due-Date
  96. 000314         Reverse-Video.
  97. 000315*
  98. 000316     03  Line 16 Column 01 Value "Consignment Percent: ".
  99. 000317     03  Line 16 Column 22 Pic ZZ9 Using Consignment-Percent
  100. 000318         Reverse-Video.
  101. 000319
  102. 000320
  103. 000321 Procedure Division.
  104. 000322 Chapt04c-Start.
  105. 000323     Display Data-Entry-Screen.
  106. 000324     Accept Data-Entry-Screen.
  107. 000325     Stop Run.