PROGRAMM-ID.
	DAAUFB.CO.
COMMENTS.
	BAUT DATEI DAUER AUF.
AUTOR.
	A VIGNOLD DEZEMBER 83.
FILE-CONTROL.
	SELECT DAUER, ASSIGN TO DSK.
DATA DIVISION.
FILE SECTION.
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.
PROCEDURE DIVISION.
	PERFORM DAUERDATEI.
	CALL DAUHAU.
DAUERDATEI.
	PERFORM TEXT.
	PERFORM OEFFNEN.
	DISPLAY "DATUM" (LINE).
	ACCEPT  DATUM.
	PERFORM EINGABE UNTIL DATUM = "A".
	PERFORM SCHLIESSEN.
TEXT.
	DISPLAY "GEBEN SIE DAS DATUM 'M' ODER 'E', DIE ".
	DISPLAY "KONTONUMMER DES ABSENDERS, DEN BETRAG,".
	DISPLAY "DIE KONTONUMMER DES EMPFAENGERS SOWIE".
	DISPLAY "DEN VERWENDUNGSZWECK IN DIESER REIHENFOLGE".
	DISPLAY "EIN. ABBRUCH MIT 'A'.".
OEFFNEN.
	OPEN OUTPUT DAUER.
EINGABE.
	DISPLAY "KONTONUMMER DES AUFTRAGGEBERS" (LINE).
	ACCEPT KONTONUMMER.
	DISPLAY "BETRAG" (LINE).
	ACCEPT BETRAG.
	DISPLAY "KONTONUMMER DES EMPFAENGERS" (LINE).
	ACCEPT ENUMMER.
	DISPLAY "VERWENDUNGSZWECK" (LINE).
	ACCEPT VZWECK.
	WRITE BILD.
	DISPLAY "DATUM" (LINE).
	ACCEPT DATUM.
SCHLIESSEN.
	CLOSE DAUER.