File UPDATE.

Directory of image this file is from
This file as a plain text file

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.



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search