10. Adding Sample Data Entry Screen for Phone Database and Database C…

…reation Program.

phonecdb.cbl - will create an empty Phone Database for the program (run only once or you could wipe out your saved data).
phonescr.cbl  - Is the data entry screen for the database.

phonecdb.cbl

@@ -0,0 +1,50 @@
+000010 IDENTIFICATION DIVISION.
+000020 PROGRAM-ID. utphwin.
+000030*--------------------------------
+000040* Creates the database for use by the .
+000050* Phone Number Data Entry Screen.
+000070*--------------------------------
+000080 ENVIRONMENT DIVISION.
+000090 INPUT-OUTPUT SECTION.
+000100 FILE-CONTROL.
+000110 SELECT PHONEFILE ASSIGN TO "documents\PHONENUMBERDB.DAT"
+000120 FILE STATUS IS FILE-CHECK-KEY
+000130 ORGANIZATION IS INDEXED
+000140 ACCESS MODE IS DYNAMIC
+000150 RECORD KEY IS FULLNAME.
+000160
+000170 DATA DIVISION.
+000180 FILE SECTION.
+000190 FD PHONEFILE.
+000200 01  DBS-REC-1.
+000210     05  fullname.
+000220        10    first-name              pic x(10).
+000230        10    last-name               pic x(10).
+000240     05  home-number                  pic x(10).
+000250     05  work-number                  pic x(10).
+000260     05  cell-number                  pic x(10).
+000270     05  pager-number                 pic x(10).
+000280
+000290
+000300
+000310 WORKING-STORAGE SECTION.
+000320 01  WS-WORK-AREAS.
+000330      05  FILE-CHECK-KEY              PIC X(2).
+000340      88  RECORDFOUND                 VALUE "00".
+000350      88  ENDOFFILE                   VALUE HIGH-VALUES.
+000360
+000370 PROCEDURE DIVISION.
+000380 PROGRAM-BEGIN.
+000390     PERFORM MAIN-PROCESS.
+000400
+000410 MAIN-PROCESS.
+000420*****************************************
+000430* This is where we will open the table!
+000440* and the database is created.
+000450*****************************************
+000460     OPEN  OUTPUT PHONEFILE.
+000470     CLOSE PHONEFILE.
+000480     STOP RUN.
+000490     EXIT PROGRAM.
+000500
+000510