PROGRAM-ID.
	UPDATE.
REMARKS.
	THIS PROGRAM ALLOWS UPDATING OF THE STUDENT ACCOUNT FILE.
	BY SPECIFYING THE STUDENT NUMBER, THE OPERATOR CAN OBTAIN THE
	STUDENT NAME (FOR VERIFICATION).
	NEW INFORMATION MAY THEN BE ENTERED FOR THAT STUDENT'S
	CURRENT ACCOUNT BALANCE.  TO STOP THE PROGRAM, ENTER
	ZERO (OR RETURN) FOR THE STUDENT NUMBER.
AUTHOR.
	R. DREW,   ASC    JULY 1977.
FILE-CONTROL.
	SELECT STUDEN.DA, ACCESS MODE IS RANDOM,
			ACTUAL KEY IS STUDENT-KEY.
DATA DIVISION.
FILE-SECTION.
FD STUDEN.DA.
01 STUDENT-REC.
	02 STUDENT-NO		PIC 999.
	02 STUDENT-NAME		PIC X(20).
	02 STUDENT-ACCOUNT	PIC S9(6)V99.
WORKING-STORAGE SECTION.
77 STUDENT-KEY		PIC 999.
77 ANSWER		PIC X.
PROCEDURE DIVISION.
	DISPLAY "STUDENT ACCOUNT UPDATE PROGRAM.".
	OPEN I-O STUDEN.DA.
NEXT-STUDENT.
	DISPLAY.
	DISPLAY "STUDENT NUMBER  " (LINE).
	ACCEPT STUDENT-KEY.
	IF STUDENT-KEY = ZERO GO TO FINISH.
	READ STUDEN.DA;  INVALID KEY DISPLAY "NUMBER INVALID",
					GO TO NEXT-STUDENT.
	DISPLAY STUDENT-NAME, " CORRECT - Y OR N  " (LINE).
	ACCEPT ANSWER.
	IF ANSWER NOT = "Y" GO TO NEXT-STUDENT.
	DISPLAY "NEW CURRENT ACCOUNT  " (LINE).
	ACCEPT STUDENT-ACCOUNT.
	WRITE STUDENT-REC.
	GO TO NEXT-STUDENT.
FINISH.
	CLOSE STUDEN.DA.
	STOP RUN.