home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sams Cobol 24 Hours
/
Sams_Cobol_24_Hours.iso
/
source
/
ch04
/
CHAPT04D.COB
< prev
next >
Wrap
Text File
|
1998-09-14
|
4KB
|
90 lines
000010 @OPTIONS MAIN
000020 Identification Division.
000030 Program-Id. Chapt04d.
000031* Data Entry Screen
000040 Environment Division.
000050 Configuration Section.
000051 Special-Names.
000052 Crt Status Is Keyboard-Status
000053 Cursor Is Cursor-Position.
000054 Source-Computer. IBM-PC.
000055 Object-Computer. IBM-PC.
000056 Data Division.
000057 Working-Storage Section.
000058 01 Keyboard-Status.
000059 03 Accept-Status Pic 9.
000060 03 Function-Key Pic X.
000061 03 System-Use Pic X.
000062 01 Cursor-Position.
000063 03 Cursor-Row Pic 9(2) Value 1.
000064 03 Cursor-Column Pic 9(2) Value 1.
000065 01 Screen-Items.
000075 03 Last-Name Pic X(25) Value Spaces.
000085 03 First-Name Pic X(15) Value Spaces.
000095 03 Middle-Name Pic X(10) Value Spaces.
000105 03 Address-Line-1 Pic X(50) Value Spaces.
000115 03 Address-Line-2 Pic X(50) Value Spaces.
000140 03 City Pic X(40) Value Spaces.
000150 03 State-Or-Country Pic X(20) Value Spaces.
000160 03 Postal-Code Pic X(15) Value Spaces.
000170 03 Home-Phone Pic X(20) Value Spaces.
000180 03 Work-Phone Pic X(20) Value Spaces.
000190 03 Other-Phone Pic X(20) Value Spaces.
000200 03 Start-Date Pic 9(8) Value Zeros.
000210 03 Last-Rent-Paid-Date Pic 9(8) Value Zeros.
000220 03 Next-Rent-Due-Date Pic 9(8) Value Zeros.
000230 03 Rent-Amount Pic 9(4)v99 Value Zeros.
000240 03 Consignment-Percent Pic 9(3) Value Zeros.
000254 Screen Section.
000255 01 Data-Entry-Screen
000256 Blank Screen, Auto
000257 Foreground-Color Is 7,
000258 Background-Color Is 1.
000259*
000260 03 Screen-Literal-Group.
000261 05 Line 01 Column 30 Value "Darlene's Treasures"
000262 Highlight Foreground-Color 4 Background-Color 1.
000263 05 Line 03 Column 30 Value "Tenant Entry Program"
000264 Highlight.
000265 05 Line 5 Column 01 Value "Name, Last: ".
000266 05 Line 5 Column 39 Value "First: ".
000267 05 Line 5 Column 62 Value "Middle: ".
000268 05 Line 6 Column 01 Value "Address 1: ".
000269 05 Line 7 Column 01 Value "Address 2: ".
000270 05 Line 8 Column 01 Value "City: ".
000271 05 Line 9 Column 01 Value "Country/State: ".
000272 05 Line 9 Column 36 Value "Postal Code: ".
000273 05 Line 11 Column 01 Value "Phone/Home: ".
000274 05 Line 11 Column 34 Value "Work: ".
000275 05 Line 12 Column 06 Value "Other: ".
000276 05 Line 14 Column 01 Value "Start Date: ".
000277 05 Line 14 Column 24 Value "Last Paid Date: ".
000278 05 Line 14 Column 50 Value "Next Rent Due on: ".
000279 05 Line 16 Column 01 Value "Consignment Percent: ".
000280*
000282 03 Required-Reverse-Group Reverse-Video Required.
000284 05 Line 5 Column 13 Pic X(25) Using Last-Name.
000285 05 Line 5 Column 46 Pic X(15) Using First-Name.
000286*
000287 03 Reverse-Video-Group Reverse-Video.
000288 05 Line 5 Column 70 Pic X(10) Using Middle-Name.
000289 05 Line 6 Column 15 Pic X(50) Using Address-Line-1.
000292 05 Line 7 Column 15 Pic X(50) Using Address-Line-2.
000295 05 Line 8 Column 15 Pic X(40) Using City.
000300 05 Line 9 Column 15 Pic X(20) Using State-Or-Country.
000302 05 Line 9 Column 50 Pic X(15) Using Postal-Code.
000305 05 Line 11 Column 13 Pic X(20) Using Home-Phone.
000307 05 Line 11 Column 41 Pic X(20) Using Work-Phone.
000310 05 Line 12 Column 13 Pic X(20) Using Other-Phone.
000313 05 Line 14 Column 13 Pic 99/99/9999 Using Start-Date.
000315 05 Line 14 Column 40 Pic 99/99/9999
000316 Using Last-Rent-Paid-Date.
000317 05 Line 14 Column 68 Pic 99/99/9999
000318 Using Next-Rent-Due-Date.
000321 05 Line 16 Column 22 Pic ZZ9 Using Consignment-Percent.
000325*
000326 Procedure Division.
000327 Chapt04d-Start.
000328 Display Data-Entry-Screen.
000329 Accept Data-Entry-Screen.
000330 Stop Run.