Cobol - Simple Data Entry

000010 @OPTIONS MAIN
000020 IDENTIFICATION DIVISION.
000030 PROGRAM-ID. EmpInfo_Data_Entry.
000070 Environment Division.
000071 Configuration Section.
000072 Special-Names.
000073 Crt Status is Keyboard-Status
000074 Cursor is Cursor-Position.
000075 Source-Computer. IBM-PC With Debugging Mode.
000076 Object-Computer. IBM-PC.
000077 INPUT-OUTPUT SECTION.
000078 FILE-CONTROL.
000079 SELECT EmpInfoDataFile
000080 ASSIGN TO "EMPINFO.TXT"
000081 ORGANIZATION IS LINE SEQUENTIAL.
000082 Data Division.
000083 WORKING-STORAGE SECTION.
000084 FILE SECTION.
000085 FD EmpInfoDataFile.
000086 01 EmpInfoTable.
000087 03 EF_EmpNum Pic X(25).
000088 03 EF_FirstName Pic X(25).
000089 03 EF_MiddleName Pic X(25).
000090 03 EF_LastName Pic X(25).
000091 03 EF_HomeAddress Pic X(50).
000092 03 EF_City Pic X(40).
000093 03 EF_HomePhone Pic X(20).
000094 03 EF_MobilePhone Pic X(20).
000095 01 Keyboard-Status.
000096 03 Accept-Status Pic 9.
000097 03 Function-key Pic X.
000098 88 F2-Pressed Value X"02".
000099 88 F3-Pressed Value X"03".
000100 88 F4-Pressed Value X"04".
000101 88 F5-Pressed Value X"05".
000102 88 F6-Pressed Value X"06".
000103 88 F7-Pressed Value X"07".
000104 88 F8-Pressed Value X"08".
000105 88 F10-Pressed Value X"10".
000106 03 System-Use Pic X.
000107 01 Cursor-Position.
000108 03 Cursor-Row Pic 9(2) Value 1.
000109 03 Cursor-Column Pic 9(2) Value 1.
000110 01 Screen-Items.
000111 03 Emp-Num Pic X(4) Value Spaces.
000112 03 First-Name Pic X(25) Value Spaces.
000113 03 Middle-Name Pic X(25) Value Spaces.
000114 03 Last-Name Pic X(25) Value Spaces.
000115 03 Home-Address Pic X(50) Value Spaces.
000116 03 City Pic X(40) Value Spaces.
000117 03 Home-Phone Pic X(20) Value Spaces.
000118 03 Mobile-Phone Pic X(20) Value Spaces.
000119 Screen Section.
000120 01 Data-Entry-Screen
000121 Blank Screen, Auto, Foreground-Color is 7, Background-Color is 0.
000122 03 Line 01 Column 01 Value "Human Resources Management System"
000123 Highlight Foreground-Color 2 Background-Color 0.
000124 03 Line 03 Column 01 Value "Employee Information Data Entry" Highlight.
000125 03 Line 04 Column 01 Value "Employee No. : ".
000126 03 Line 05 Column 01 Value "First Name : ".
000127 03 Line 06 Column 01 Value "Middle Name : ".
000128 03 Line 07 Column 01 Value "Last Name : ".
000129 03 Line 08 Column 01 Value "Home Address : ".
000130 03 Line 09 Column 01 Value "City : ".
000131 03 Line 10 Column 01 Value "Home Phone : ".
000132 03 Line 11 Column 01 Value "Mobile Phone : ".
000133 03 Line 04 Column 18 Pic X(4) Using Emp-Num Reverse-Video Required.
000134 03 Line 05 Column 18 Pic X(25) Using First-Name Reverse-Video Required.
000135 03 Line 06 Column 18 Pic X(25) Using Middle-Name Reverse-Video.
000136 03 Line 07 Column 18 Pic X(25) Using Last-Name Reverse-Video Required.
000137 03 Line 08 Column 18 Pic X(50) Using Home-Address Reverse-Video.
000138 03 Line 09 Column 18 Pic X(40) Using City Reverse-Video.
000139 03 Line 10 Column 18 Pic X(20) Using Home-Phone Reverse-Video.
000140 03 Line 11 Column 18 Pic X(20) Using Mobile-Phone Reverse-Video.
000141 01 Form-Buttons.
000142 03 Line 15 Column 01 Value "F2 - Prev" Foreground-Color 3 Highlight.
000143 03 Line 15 Column 11 Value "F3 - Next" Foreground-Color 3 Highlight.
000144 03 Line 15 Column 21 Value "F4 - Find" Foreground-Color 3 Highlight.
000145 03 Line 15 Column 31 Value "F6 - Add" Foreground-Color 3 Highlight.
000146 03 Line 15 Column 41 Value "F7 - Edit" Foreground-Color 3 Highlight.
000147 03 Line 15 Column 51 Value "F8 - Del" Foreground-Color 3 Highlight.
000148 03 Line 15 Column 61 Value "F10 - Exit" Foreground-Color 3 Highlight.
000149 03 Line 17 Column 01 Value "F5 - Save" Foreground-Color 4 Highlight.
000150 03 Line 17 Column 11 Value "F9 - Cancel" Foreground-Color 4 Highlight.
000151 PROCEDURE DIVISION.
000152 EmpInfo_Data_Entry-Start.
000153 Perform Until F10-Pressed
000154 Display Data-Entry-Screen
000155 Display form-Buttons
000156 Accept Data-Entry-Screen
000157 If F5-Pressed
000158 Perform Save-EmpInfo
000159 Initialize Screen-Items
000160 Move 1 to Cursor-Row
000161 Cursor-Column
000162 End-if
000163 If F9-Pressed
000164 Initialize Screen-Items
000165 Move 1 to Cursor-Row
000166 Cursor-Column
000167 End-if
000168 End-Perform
000169 Stop Run
000170 .
000171 EmpInfo_Data_Entry-End.
000172 Save-EmpInfo.
000173 Open Extend EmpInfoFile.
000174 Move Emp-Num To EF_EmpNum.
000175 Move First-Name To EF_FirstName.
000176 Move Middle-Name To EF_MiddleName.
000177 Move Last-Name To EF_LastName.
000178 Move Home-Address To EF_HomeAddress.
000179 Move City To EF_City.
000180 Move Home-Phone To EF_HomePhone.
000181 Move Mobile-Phone To EF_MobilePhone.
000182 Write EmpFileTable.
000183 Close EmpInfoFile.
000184 .
000190 END PROGRAM EmpInfo_Data_Entry.