PROGRAMM-ID.
	NEUEKA.
COMMENTS.
	UNTERPROGRAMM ZUM ERSCHAFFEN NEUER DATEIEN UND LOESCHEN DER ALTEN.
AUTOR.
	THOMAS JAECKEL NOV. 83.
FILE-CONTROL.
	SELECT KONTEN, ASSIGN TO DSK.
	SELECT MONATS,  ASSIGN TO DSK.
	SELECT DAUER, ASSIGN TO DSK.
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).
FD MONATS.
01 M-BILD.
	02 KONTONUMMER     PIC    999.
	02 ENUMMER         PIC    999.
FD DAUER.
01 D-BILD.
	02 D-DATUM           PIC    X.
	02 D-KONTONUMMER     PIC      999.
	02 D-BETRAG          PIC      S9(7)V99.
	02 D-ENUMMER         PIC      999.
	02 VZWECK          PIC      X(13).
WORKING-STORAGE SECTION.
77 ANTWORT      PIC   X.
PROCEDURE DIVISION.
	DISPLAY.
	DISPLAY "ACHTUNG ALLE ALTEN DATEIEN WERDEN GELOESCHT!!!".
	DISPLAY.
	DISPLAY "SOLL EINE (NEUE) KONTEN-DATEI EROEFFNET WERDEN?(J/N)"(LINE).
	PERFORM JANEIN.
	IF ANTWORT = "J" THEN PERFORM CREATEKONTEN.
	DISPLAY.
	DISPLAY "SOLL EINE (NEUE) DAUERAUFTRAGS-KARTEI".
	DISPLAY "EROEFFNET WERDEN?(J/N)"(LINE).
	PERFORM JANEIN.
	IF ANTWORT = "J" THEN PERFORM CREATEDAUER.
	DISPLAY.
	DISPLAY "SOLL EINE (NEUE) MONATSSPARER-KARTEI".
	DISPLAY "EROEFFNET WERDEN?(J/N)"(LINE).
	PERFORM JANEIN.
	IF ANTWORT = "J" THEN PERFORM CREATEMONAT.
	CALL KONHAU.
JANEIN.
	ACCEPT ANTWORT.
	IF ANTWORT NOT = "J" AND ANTWORT NOT = "N" THEN PERFORM JANEIN.
CREATEKONTEN.
	OPEN OUTPUT KONTEN.
	MOVE ""  TO BILD.
	MOVE 0 TO NEUSTAND, ALTSTAND, SCHECKNUMMER, ZINSSPEICHER.
	MOVE ZERO TO MAXIMALKREDIT, BEWEGUNG, AUSZUGSNUMMER.
	MOVE 100 TO NUMMER.
	MOVE "SPARKASSE" TO NAME.
	MOVE "BANKALLEE 1" TO STRASSE.
	MOVE "999 BANKHAUSEN " TO WOHNORT.
	WRITE BILD.
	CLOSE KONTEN.
	DISPLAY.
	DISPLAY " NEUE KONTEN-KARTEI EROEFFNET!".
CREATEMONAT.
	OPEN OUTPUT MONATS.
	CLOSE MONATS.
	DISPLAY "NEUE MONATSSPARER-KARTEI EROEFFNET!".
	DISPLAY.
CREATEDAUER.
	OPEN OUTPUT DAUER.
	CLOSE DAUER.
	DISPLAY.
	DISPLAY "NEUE DAUERAUFTRAGS-KARTEI EROEFFNET!".