IDENTIFICATION DIVISION.
 PROGRAM-ID. TEST11.
 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
 	 SELECT PHONE-FILE
 		 ASSIGN TO "phone.dat"
 		 ORGANIZATION IS SEQUENTIAL.
 	 SELECT PRINTER-FILE
 		 ASSIGN TO "test.dat" 
 		 ORGANIZATION IS LINE SEQUENTIAL.
 	 SELECT PHONE-FILE1
 		ASSIGN TO "phone1.dat"
 		ORGANIZATION IS SEQUENTIAL.
 	 SELECT PRINTER-FILE1
 		ASSIGN TO "test1.dat" 
 		ORGANIZATION IS LINE SEQUENTIAL.
 	 SELECT PRINTER-FILE2
 		ASSIGN TO "test2.dat" 
 		ORGANIZATION IS LINE SEQUENTIAL.

 DATA DIVISION.
 FILE SECTION.
 FD PHONE-FILE
 	 LABEL RECORDS ARE STANDARD.
 01	 PHONE-RECORD.
 	 05	 PHONE-LAST-NAME	 PIC X(20).
 	 05	 PHONE-FIRST-NAME	 PIC X(20).
 	 05	 PHONE-NUMBER		 PIC X(15).
 	 05	 PHONE-EXTENSION	 PIC X(5).
 
 FD PRINTER-FILE
 	 LABEL RECORDS ARE OMITTED.	 
 01	 PRINTER-RECORD  PIC X(80).

 FD PHONE-FILE1
 	 LABEL RECORDS ARE STANDARD.
 01	 PHONE-RECORD1.
 	05	PHONE-LAST-NAME1	PIC X(20).
 	05	PHONE-FIRST-NAME1	PIC X(20).
 	05	PHONE-NUMBER1		PIC X(15).
 	05	PHONE-EXTENSION1	PIC X(5).
 
 FD PRINTER-FILE1
 	 LABEL RECORDS ARE OMITTED.	 
 01	 PRINTER-RECORD1 PIC X(80).

 FD PRINTER-FILE2
 	 LABEL RECORDS ARE OMITTED.	 
 01	 PRINTER-RECORD2 PIC X(80).

 WORKING-STORAGE SECTION.
 
 01	 HOW-MANY	 PIC 9(3).
 01	 ENTRY-FIELD	 PIC 999.
 
 01	 PRINT-LINES	 PIC 99 VALUE ZEROES.
 01	 FORMATTED-NUMBER.
 	 05	 FILLER 	 PIC X(6) VALUE "(404) ".
 	 05	 FILLER 	 PIC X(4) VALUE "555 ".
 	 05	 PHONE-COUNTER   PIC 9(4) VALUE ZERO.

*   SCREEN SECTION.

 PROCEDURE DIVISION.
 MAIN-LOGIC SECTION.
 PROGRAM-BEGIN.
 	 
 	 PERFORM OPENING-PROCEDURE.
 	 PERFORM GET-HOW-MANY.
 	 MOVE ZEROES TO PRINT-LINES.
 	 PERFORM ADD-RECORDS
 		 VARYING PHONE-COUNTER
 		 FROM 1 BY 1 UNTIL
 		 PHONE-COUNTER > HOW-MANY.
 	 PERFORM CLOSING-PROCEDURE.

 PROGRAM-DONE.
 	 STOP RUN.
 
 OPENING-PROCEDURE.
*	 OPEN OUTPUT PHONE-FILE.
*	 OPEN OUTPUT PRINTER-FILE.

*	 OPEN OUTPUT PHONE-FILE, PRINTER-FILE.
*	 OPEN OUTPUT PHONE-FILE, PRINTER-FILE OUTPUT PHONE-FILE1,
*	 OPEN OUTPUT PHONE-FILE PRINTER-FILE PHONE-FILE1 PRINTER-
*	 OPEN OUTPUT PHONE-FILE, PRINTER-FILE, PHONE-FILE1, PRINT
*	 OPEN OUTPUT PHONE-FILE PRINTER-FILE 
*	      OUTPUT PHONE-FILE1 PRINTER-FILE1
*	      INPUT  PRINTER-FILE2.
 	 OPEN OUTPUT PHONE-FILE,
 		     PRINTER-FILE 
 	      OUTPUT PHONE-FILE1,
 		     PRINTER-FILE1
 	      INPUT  PRINTER-FILE2.

 CLOSING-PROCEDURE.
*	 CLOSE PHONE-FILE.
*	 MOVE SPACE TO PRINTER-RECORD PRINTER-RECORD1.
 	 MOVE SPACES TO PRINTER-RECORD,
 			PRINTER-RECORD1.
 	 WRITE PRINTER-RECORD BEFORE ADVANCING PAGE.
 	 WRITE PRINTER-RECORD1 BEFORE ADVANCING PAGE.
*	 CLOSE PRINTER-FILE.
*	 CLOSE PHONE-FILE PRINTER-FILE.
*	 CLOSE PHONE-FILE PRINTER-FILE PHONE-FILE1 PRINTER-FILE1.
*	 CLOSE PHONE-FILE, PRINTER-FILE, PHONE-FILE1, PRINTER-FIL
*	 CLOSE PHONE-FILE, PRINTER-FILE, PHONE-FILE1, PRINTER-FIL
 	 CLOSE PHONE-FILE, 
 	       PRINTER-FILE, 
 	       PHONE-FILE1, 
 	       PRINTER-FILE1, 
 	       PRINTER-FILE2.

 GET-HOW-MANY.

 	 DISPLAY "How many test entries (1-999)".
 	 ACCEPT ENTRY-FIELD.
 	 MOVE ENTRY-FIELD TO HOW-MANY.

 ADD-RECORDS.
 	 PERFORM FORMAT-THE-RECORD.
 	 PERFORM ADD-THIS-RECORD.

 FORMAT-THE-RECORD.
 	 MOVE SPACES TO PHONE-RECORD.
 	 MOVE "Andrew-------------X" TO PHONE-FIRST-NAME.
 	 MOVE "Cameron------------X" TO PHONE-LAST-NAME.
 	 MOVE "12345" TO PHONE-EXTENSION.
 	 MOVE FORMATTED-NUMBER TO PHONE-NUMBER.
 
 ADD-THIS-RECORD.
 	 WRITE PHONE-RECORD.
 	 MOVE PHONE-RECORD TO PHONE-RECORD1.
 	 WRITE PHONE-RECORD1.
 	 PERFORM PRINT-THIS-RECORD.
 
 PRINT-THIS-RECORD.
 	 IF PRINT-LINES NOT < 55
 		 PERFORM NEW-PAGE.
 	 MOVE PHONE-RECORD TO PRINTER-RECORD.
 	 WRITE PRINTER-RECORD BEFORE ADVANCING 1.
 	 MOVE PHONE-RECORD TO PRINTER-RECORD1.
 	 WRITE PRINTER-RECORD1 BEFORE ADVANCING 1.
 	 ADD 1 TO PRINT-LINES.

 NEW-PAGE.
 	 MOVE SPACE TO PRINTER-RECORD.
 	 WRITE PRINTER-RECORD BEFORE ADVANCING PAGE.
 	 MOVE SPACE TO PRINTER-RECORD1.
 	 WRITE PRINTER-RECORD1 BEFORE ADVANCING PAGE.
 	 MOVE ZEROES TO PRINT-LINES.