PROGRAMM-ID.
	DATAUS.CO.
COMMENTS.
	GIBT DIE DATEI MONATS AUS.
AUTOR.
	A VIGNOLD NOVEMBER 83.
FILE-CONTROL.
	SELECT MONATS, ASSIGN TO DSK.
	SELECT DRUCK, ASSIGN TO LPT.
DATA DIVISION.
FILE SECTION.
FD DRUCK.
	01 DRUCKZEILE    PIC   9(3).
FD MONATS.
01 BILD.
	02 KONTONUMMER   PIC   9(3).
	02 ENUMMER       PIC   9(3).
WORKING-STORAGE SECTION.
01 ABBRUCH                PIC   9   VALUE 0.
PROCEDURE DIVISION.
	PERFORM AUSGABE.
	CALL MONHAU.
AUSGABE.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM DRUCKEN UNTIL ABBRUCH = 1.
	PERFORM SCHLIESSEN.
OEFFNEN.
	OPEN INPUT MONATS, OUTPUT DRUCK.
LESEN.
	READ MONATS AT END MOVE 1 TO ABBRUCH.
DRUCKEN.
	MOVE KONTONUMMER TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 2 LINES.
	MOVE ENUMMER TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	PERFORM LESEN.
SCHLIESSEN.
	CLOSE MONATS, DRUCK.