PROGRAMM-ID.
	DAUFFU.
COMMENTS.
	DIE LUECKEN IN KONTEN WERDEN AUFGEFUELLT.
AUTOR.
	UTE WIESNER.
FILE-CONTROL.
	SELECT KONTEN, ASSIGN TO DSK, ACCESS MODE IS RANDOM
	ACTUAL KEY IS SATZ-NR.
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.
77 SATZ-NR          PIC   999  VALUE 000.
PROCEDURE DIVISION.
	PERFORM AUFFUELLEN.
	CALL  KONHAU.
AUFFUELLEN.
	PERFORM TEXT.
	PERFORM OEFFNEN.
	PERFORM SATZLESEN.
	PERFORM SATZLESEN UNTIL NAME = "".
	PERFORM EINGEBEN.
	PERFORM SCHLIESSEN.
TEXT.
	DISPLAY "SIE FUELLEN DIE LUECKEN IN DER ".
	DISPLAY "DATEI KONTEN AUF,INDEM SIE EIN NEUES KONTO ".
	DISPLAY "ERRICHTEN.GEBEN SIE DIE DATEN DES INHABERS EIIN ".
OEFFNEN.
	OPEN I-O KONTEN.
SATZLESEN.
	ADD 1 TO SATZ-NR.
	READ KONTEN, INVALID KEY, 
	PERFORM SCHLIESSEN, DISPLAY "KEINE LUECKEN", STOP RUN.
EINGEBEN.
	DISPLAY "IHRE KONTONUMMER:", NUMMER.
	DISPLAY "NAME ".
	ACCEPT NAME.
	DISPLAY "STRASSE ".
	ACCEPT STRASSE.
	DISPLAY "WOHNORT ".
	ACCEPT WOHNORT.
	DISPLAY "GEBOREN (TT,MM,JJJJ) ".
	ACCEPT GEBOREN.
	DISPLAY "GEBEN SIE JETZT DEN MAXIMALEN KREDIT DES INHABERS".
	DISPLAY "EIN. ER BERECHNET SICH AUF DIE FOLGENDE WEISE:".
	DISPLAY "MONATLICHES GEHALT * 2.SIND SIE HIER UEBERFRAGT".
	DISPLAY ", DANN GEBEN SIE BITTE EINE 0 EIN ".
	ACCEPT MAXIMALKREDIT.
	MOVE 0 TO ALTSTAND.
	DISPLAY "DATUM (TT,MM,JJJJ) ".
	ACCEPT DATUM.
	MOVE "" TO BEWART.
	MOVE 0 TO BEWEGUNG.
	MOVE 0 TO NEUSTAND.
	MOVE 0 TO ZINSSPEICHER.
	MOVE 000 TO SCHECKNUMMER.
	MOVE 000 TO AUSZUGSNUMMER.
	WRITE BILD.
SCHLIESSEN.
	CLOSE KONTEN.