PROGRAMM-ID.
	DAANHA.CO.
COMMENTS.
	ERWEITERT DIE DATEI DAUER.
AUTOR.
	A VIGNOLD JANUAR 84.
FILE-CONTROL.
	SELECT DAUER, ASSIGN TO DSK.
	SELECT DAUER.TM, 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).
FD DAUER.TM.
01 N-BILD.
	02 N-DATUM	PIC   X.
	02 N-KONTONUMMER	PIC   999.
	02 N-BETRAG	PIC   S9(7)V99.
	02 N-ENUMMER	PIC   999.
	02 N-VZWECK	PIC   X(13).
WORKING-STORAGE SECTION.
01 ABBRUCH	PIC   9   VALUE 0.
01 ENDE	PIC   9   VALUE 0.
PROCEDURE DIVISION.
	PERFORM ERWEITERN.
	CALL DAUHAU.
ERWEITERN.
	PERFORM TEXT.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM KOPIEREN UNTIL ABBRUCH = 1.
	DISPLAY "DATUM" (LINE).
	ACCEPT N-DATUM.
	PERFORM EINLESEN UNTIL N-DATUM = "A".
	PERFORM SCHLIESSEN.
	PERFORM UEBERTRAGEN.
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 INPUT DAUER, OUTPUT DAUER.TM.
LESEN.
	READ DAUER, AT END MOVE 1 TO ABBRUCH.
KOPIEREN.
	MOVE BILD TO N-BILD.
	WRITE N-BILD.
	PERFORM LESEN.
EINLESEN.
	DISPLAY "KONTONUMER DES AUFTRAGGEBERS" (LINE).
	ACCEPT KONTONUMMER.
	DISPLAY "BETRAG" (LINE).
	ACCEPT BETRAG.
	DISPLAY "KONTONUMER DES EMPFAENGERS" (LINE).
	ACCEPT ENUMMER.
	DISPLAY "VERWENDUNGSZWECK" (LINE).
	ACCEPT VZWECK.
	WRITE N-BILD.
	DISPLAY "DATUM" (LINE).
	ACCEPT N-DATUM.
SCHLIESSEN.
	CLOSE DAUER, DAUER.TM.
UEBERTRAGEN.
	OPEN INPUT DAUER.TM, OUTPUT DAUER.
	READ DAUER.TM, AT END MOVE 1 TO ENDE.
	PERFORM REKOPIEREN UNTIL ENDE = 1.
	PERFORM N-SCHLIESSEN.
REKOPIEREN.
	MOVE N-BILD TO BILD.
	WRITE BILD.
	READ DAUER.TM, AT END MOVE 1 TO ENDE.
N-SCHLIESSEN.
	CLOSE DAUER.TM, DAUER.