IDENTIFICATION DIVISION.
PROGRAM-ID. TEST2-COB.
AUTHOR. DENNIS SMOLARSKI SJ.
DATE-WRITTEN. MAY 2000

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. VAX.
OBJECT-COMPUTER. VAX.

INPUT-OUTPUT SECTION.
FILE-CONTROL.
	SELECT IN-DATA
		ASSIGN TO DSK.
	SELECT OUT-DATA
		ASSIGN TO DSK.

DATA DIVISION.

FILE SECTION.
FD	IN-DATA
	LABEL RECORDS ARE STANDARD
	VALUE OF ID IS "MP2INA.INP"
	DATA RECORD IS INPUT-LINE.
01	INPUT-LINE, PIC IS X(80).

FD	OUT-DATA
	LABEL RECORDS ARE STANDARD
	VALUE OF ID IS "MP2OU.OUT"
	DATA RECORD IS OUTPUT-LINE.
01	OUTPUT-LINE PIC IS X(42).

WORKING-STORAGE SECTION.
01	ENDFILE
		PIC IS 9, USAGE IS COMPUTATIONAL, VALUE IS ZERO.
01	INLINE.
	02 	IDNUM PIC 9999.
	02	FILLER PIC X(2).
	02	NAME PIC X(25).
	02	FILLER PIC X(2).
	02	BALANCEIN PIC 999.99.
01	OUTLINE.
	02 	IDNUM PIC 9999.
	02	FILLER PIC X(2).
	02	NAME PIC X(25).
	02 	FILLER PIC X(2).
	02	BALANCEOUT PIC $$$$$9.99.
01 	TEMPBAL PIC 9999V99, USAGE IS DISPLAY.
01	TOTAL PIC 99999V99, USAGE IS DISPLAY, VALUE IS ZERO.
01	FINALOUTLINE.
	02	HEADER, PIC X(26), VALUE IS "TOTALS FOR ALL STUDENTS IS".
	02	FILLER PIC X(2).
	02	OUTTOTAL PIC $$$999.99.

PROCEDURE DIVISION.

MAIN-CODE.
	OPEN INPUT IN-DATA; OUTPUT OUT-DATA.
	MOVE " ID    NAME                     IN-BALANCE" TO OUTPUT-LINE.
	WRITE OUTPUT-LINE.
	PERFORM READ-LINES UNTIL ENDFILE IS EQUAL TO 1.
	MOVE TOTAL TO OUTTOTAL
	MOVE FINALOUTLINE TO OUTPUT-LINE.
	WRITE OUTPUT-LINE.
	CLOSE IN-DATA, OUT-DATA.
	STOP RUN.

READ-LINES.
	MOVE SPACES TO INPUT-LINE.
	READ IN-DATA
		AT END MOVE 1 TO ENDFILE.
	IF ENDFILE EQUAL TO ZERO
		PERFORM COMPUTATION.

COMPUTATION.
	MOVE INPUT-LINE TO INLINE.
	MOVE BALANCEIN TO TEMPBAL.
	COMPUTE TOTAL = TOTAL + TEMPBAL.
	MOVE INLINE TO OUTLINE.
	MOVE TEMPBAL TO BALANCEOUT.
	MOVE OUTLINE TO OUTPUT-LINE.
	WRITE OUTPUT-LINE.