PROGRAMM-ID.
	DATAUF.CO.
COMMENTS.
        BAUT DATEI MONATSSPAREN AUF.
AUTOR.
	A VIGNOLD NOVEMBER 83.
FILE-CONTROL.
	SELECT MONATS, ASSIGN TO DSK.
DATA DIVISION.
FILE SECTION.
FD MONATS.
01 BILD.
	02 KONTONUMMER    PIC   9(3)   VALUE 000.
	02 ENUMMER        PIC   9(3).
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
	PERFORM MONATSDATEI.
	CALL MONHAU.
MONATSDATEI.
	PERFORM TEXT.
	PERFORM OEFFNEN.
	DISPLAY "KONTONUMMER" (LINE).
	ACCEPT KONTONUMMER.
	PERFORM EINGABE UNTIL KONTONUMMER = 999.
	PERFORM SCHLIESSEN.
TEXT.
	DISPLAY "GEBEN SIE DIE KONTONUMMER DES AUFTRAG-".
	DISPLAY "GEBERS UND DES EMPFAENGERS EIN!".
OEFFNEN.
	OPEN OUTPUT MONATS.
EINGABE.
	DISPLAY "KONTONUMMER DES EMPFAENGERS" (LINE).
	ACCEPT ENUMMER.
	WRITE BILD.
	DISPLAY "KONTONUMMER" (LINE).
	ACCEPT KONTONUMMER.
SCHLIESSEN.
	CLOSE MONATS.