PROGRAMM-ID.
	DAAUSG.CO.
COMMENTS.
	GIBT DIE DATEI DAUER AUS.

AUTOR.
	A VIGNOLD DEZEMBER 83.
FILE-CONTROL.
	SELECT DAUER, ASSIGN TO DSK.
	SELECT DRUCK, ASSIGN TO LPT.
DATA DIVISION.
FILE SECTION.
FD DRUCK.
01 DRUCKZEILE	PIC   X(13).
FD DAUER.
01 BILD.
	02 DATUM	PIC   X.
	02 KONTONUMMER	PIC   999.
	02 BETRAG	PIC   S9(7)V99.
	02 ENUMMER	PIC   999.
	02 VZWECK	PIC   X(13).
WORKING-STORAGE SECTION.
01 ABBRUCH	PIC   9 VALUE 0.
PROCEDURE DIVISION.
	PERFORM AUSGABE.
	CALL DAUHAU.
AUSGABE.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM DRUCKEN UNTIL  ABBRUCH = 1.
	PERFORM SCHLIESSEN.
OEFFNEN.
	OPEN INPUT DAUER, OUTPUT DRUCK.
LESEN.
	READ DAUER AT END MOVE 1 TO ABBRUCH.
DRUCKEN.
	MOVE DATUM TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 2 LINES.
	MOVE KONTONUMMER TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	MOVE BETRAG TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	MOVE ENUMMER TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	MOVE VZWECK TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	PERFORM LESEN.
SCHLIESSEN.
	CLOSE DAUER, DRUCK.