PROGRAMM-ID.
	DAKORR.CO.
COMMENTS.
	KORRIGIERT DIE DATEI DAUER.
AUTOR.
	A VIGNOLD JANUAR 84.
FILE-CONTROL.
	SELECT DAUER, ASSIGN TO DSK, ACCESS MODE IS RANDOM
	ACTUAL KEY IS NUMMER.
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.
01 ABBRUCH	PIC   9.
01 ANTWORT	PIC   X.
01 NUMMER	PIC   9.
PROCEDURE DIVISION.
	PERFORM AENDERN.
	CALL DAUHAU.
AENDERN.
	MOVE 1 TO NUMMER.
	MOVE 0 TO ABBRUCH.
	PERFORM OEFFNEN.
	PERFORM  LESEN.
	PERFORM KORREKTUR UNTIL ABBRUCH = 1.
	PERFORM SCHLIESSEN.
OEFFNEN.
	OPEN I-O DAUER.
LESEN.
	READ DAUER, AT END MOVE 1 TO ABBRUCH.
KORREKTUR.
	DISPLAY DATUM, " R/F" (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT = "F" DISPLAY "RICHTIGES DATUM" (LINE), ACCEPT DATUM.
	DISPLAY KONTONUMMER, "R/F" (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT = "F" DISPLAY "RICHTIGE KONTONUMMER" (LINE)
	ACCEPT KONTONUMMER.
	DISPLAY BETRAG, " R/F" (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT = "F" DISPLAY "RICHTIGER BETRAG" (LINE)
	ACCEPT BETRAG.
	DISPLAY ENUMMER, " R/F" (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT = "F" DISPLAY "RICHTIGE ENUMMER" (LINE)
	ACCEPT ENUMMER.
	DISPLAY VZWECK, " R/F" (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT = "F" DISPLAY "RICHTIGER VERWENDUNGSZWECK" (LINE)
	ACCEPT VZWECK.
	WRITE BILD.
	ADD 1 TO NUMMER.
	PERFORM LESEN.
SCHLIESSEN.
	CLOSE DAUER.