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

PROGRAM-ID.
	STUDEN.
DESCRIPTION.
	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 WILL BE VIA THE CONSOLE.
	A PRINTED LIST WILL ALSO BE MADE.
AUTHOR.
	R. BARNES,  ASC - JULY 1977.

FILE-CONTROL.
	SELECT STUDEN.DA.
	SELECT REPORT, ASSIGN TO LPT.

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.

FD REPORT.
01 PRINT-REC.
	02 P-NO		PIC ZZ9.
	02 FILLER	PIC XXX.
	02 P-NAME	PIC X(20).
	02 FILLER	PIC X(6).
	02 P-ACCOUNT	PIC -ZZZ,ZZ9.99.

WORKING-STORAGE SECTION.

PROCEDURE DIVISION.

	OPEN OUTPUT STUDEN.DA, REPORT.
	DISPLAY.
	DISPLAY "STUDENT ACCOUNT FILE CREATE PROGRAM.".
	DISPLAY "ENTER TEN STUDENT NAMES AND THEIR CURRENT ACCOUNT:-".
	DISPLAY.

*PRINT HEADING FOR REPORT:-
	MOVE " NO.       NAME                     ACCOUNT"
		TO PRINT-REC;
		WRITE PRINT-REC BEFORE ADVANCING 2 LINES.
	MOVE SPACES TO PRINT-REC.

NEXT-STUDENT.
	ADD 1 TO STUDENT-NO.
	IF STUDENT-NO > 10 GO TO FINISH.
	DISPLAY "STUDENT NAME  " (LINE).
	ACCEPT STUDENT-NAME.
	DISPLAY "CURRENT ACCOUNT  " (LINE).
	ACCEPT STUDENT-ACCOUNT.
	DISPLAY.
	WRITE STUDENT-REC.

*PRINT REPORT FOR THIS STUDENT:-
	MOVE STUDENT-NO TO P-NO.
	MOVE STUDENT-NAME TO P-NAME.
	MOVE STUDENT-ACCOUNT TO P-ACCOUNT.
	WRITE PRINT-REC BEFORE ADVANCING 1 LINE.
	GO TO NEXT-STUDENT.

FINISH.
	CLOSE STUDEN.DA, REPORT.
	STOP RUN.