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

PROGRAM-ID.
	PRINT.
REMARKS.
	THIS PROGRAM PRINTS THE DATA WHICH IS CONTAINED IN THE
	STUDENT ACCOUNT FILE "STUDEN.DA" ONTO THE LINE-PRINTER.
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.
	02 STUDENT-NAME		PIC X(20).
	02 STUDENT-ACCOUNT	PIC S9(6)V99.
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 ----,--9.99.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
	OPEN INPUT STUDEN.DA, OUTPUT REPORT.
	MOVE " NO.       NAME                     ACCOUNT"
		TO PRINT-REC.
	WRITE PRINT-REC BEFORE ADVANCING 2 LINES.
	MOVE SPACES TO PRINT-REC.
NEXT-STUDENT.
	READ STUDEN.DA, AT END GO TO FINISH.
	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.