PROGRAM-ID.
	STUDUP.
DESCRIPTION.
	STUDENT FILE UPDATE PROGRAM.
	THIS PROGRAM ALLOWS UPDATING OF THE STUDENT ACCOUNT
	FILE STUDEN.DA.
	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 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 VERIFY		PIC X.

PROCEDURE DIVISION.
	DISPLAY.
	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 "STUDENT NUMBER INVALID"
		GO TO NEXT-STUDENT.
	DISPLAY STUDENT-NAME.
	DISPLAY "CORRECT - Y OR N  " (LINE).
	ACCEPT VERIFY.
	IF VERIFY 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.