PROGRAM-ID.
	CREATE.
REMARKS.
	THIS PROGRAM CREATES A FILE, "STUDEN.DA", CONTAINING STUDENT
	NUMBERS, NAME, AND CURRENT BALANCE OF ACCOUNT.
	THE FILE IS ORDERED ACCORDING TO STUDENT NUMBERS, WHICH
	RANGE FROM 1 TO 10.  DATA ENTRY IS VIA THE CONSOLE.
AUTHOR.
	R. BARNES,   ASC,   JULY 1977.
FILE-CONTROL.
	SELECT STUDEN.DA.
DATA DIVISION.
FILE SECTION.
FD STUDEN.DA.
01 STUDENT-REC.
	02 STUDENT-NO		PIC 999		VALUE ZERO.
	02 STUDENT-NAME		PIC X(20).
	02 STUDENT-ACCOUNT	PIC S9(6)V99	VALUE ZERO.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
	OPEN OUTPUT STUDEN.DA.
	DISPLAY "STUDENT ACCOUNT FILE-CREATE PROGRAM.".
	DISPLAY "ENTER TEN STUDENT NAMES AND THEIR CURRENT ACCOUNT:-".
	DISPLAY.
	PERFORM INPUT-DATA 10 TIMES.
	CLOSE STUDEN.DA.
	STOP RUN.
INPUT-DATA.
	ADD 1 TO STUDENT-NO.
	DISPLAY "STUDENT NAME  " (LINE).
	ACCEPT STUDENT-NAME.
	DISPLAY "CURRENT-ACCOUNT  " (LINE).
	ACCEPT STUDENT-ACCOUNT.
	DISPLAY.
	WRITE STUDENT-REC.