PROGRAMM-ID.
	KLOESC.
COMMENTS.
	LOESCHT EIN EINZELNES KONTO,DER PLATZ BLEIBT JEDOCH ERHALTEN.
AUTOR.
	UTE WIESNER.
FILE-CONTROL.
	SELECT KONTEN, ASSIGN TO DSK, ACCESS MODE IS RANDOM
	ACTUAL KEY IS KONTONUMMER.
DATA-DIVISION.
FILE-SECTION.
FD KONTEN.
01 BILD.
	02 NUMMER		PIC	9(3).
	02 NAME			PIC 	X(25).
	02 STRASSE		PIC	X(25).
	02 WOHNORT		PIC	X(25).
	02 GEBOREN		PIC	X(10).
	02 MAXIMALKREDIT	PIC	S9(7)V99.
	02 ALTSTAND		PIC	S9(7)V99.
	02 DATUM		PIC	X(10).
	02 BEWART		PIC	X(30).
	02 BEWEGUNG		PIC	S9(7)V99.
	02 NEUSTAND		PIC	S9(7)V99.
	02 ZINSSPEICHER		PIC	S9(7)V99.
	02 SCHECKNUMMER		PIC	9(3).
	02 AUSZUGSNUMMER	PIC 	9(3).
WORKING-STORAGE SECTION.
01 KONTONUMMER		PIC	9(3).
PROCEDURE DIVISION.
	PERFORM LOESCHEN.
	STOP RUN.
	EXIT.
LOESCHEN.
	PERFORM TEXT.
	PERFORM OEFFNEN.
	DISPLAY "KONTONUMMER=".
	ACCEPT KONTONUMMER.
	READ KONTEN, INVALID KEY DISPLAY "DIESE KONTONUMMER IST NICHT".
	DISPLAY "VORHANDEN".
	MOVE " " TO BILD.
	WRITE BILD.
	PERFORM SCHLIESSEN.
TEXT.
	DISPLAY "EIN EINZELNES KONTO WIRD JETZT GELOESCHT,DER ".
	DISPLAY "PLATZ BLEIBT JEDOCH ERHALTEN! GEBEN SIE JETZT ".
 	DISPLAY "DIE KONTONUMMER DES ZU LOESCHENDEN KONTOS EIN!".
OEFFNEN.
	OPEN I-O KONTEN.
SCHLIESSEN.
	CLOSE KONTEN.