PROGRAMM-ID.
	DATANH.CO.
COMMENTS.
	ERWEITERT DIE DATEI MONATS.
AUTOR.
	A VIGNOLD NOVEMBER 83.
FILE-CONTROL.
	SELECT MONATS, ASSIGN TO DSK.
	SELECT MONATS.TM, ASSIGN TO DSK.
DATA DIVISION.
FILE SECTION.
FD MONATS.
01 BILD.
	02 KONTONUMMER          PIC   9(3).
	02 ENUMMER               PIC   9(3).
FD MONATS.TM.
01 N-BILD.
	02 N-KONTONUMMER          PIC   9(3).
	02 N-ENUMMER              PIC   9(3).
WORKING-STORAGE SECTION.
01 ABBRUCH     PIC   9   VALUE 0.
01 ENDE        PIC   9   VALUE 0.
PROCEDURE DIVISION.
	PERFORM ERWEITERN.
	CALL MONHAU.
ERWEITERN.
	PERFORM TEXT.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM KOPIEREN UNTIL ABBRUCH = 1.
	DISPLAY "KONTONUMMER" (LINE).
	ACCEPT N-KONTONUMMER.
	PERFORM EINLESEN UNTIL N-KONTONUMMER = 999.
	PERFORM SCHLIESSEN.
	PERFORM UEBERTRAGEN.
TEXT.
	DISPLAY "GEBEN SIE DIE KONTONUMMER DES AUFTRAGGEBERS".
	DISPLAY "UND DES EMPFAENGERS EIN! ABBRECHEN MIT 999.".
OEFFNEN.
	OPEN INPUT MONATS, OUTPUT MONATS.TM.
LESEN.
	READ MONATS, AT END MOVE 1 TO ABBRUCH.
KOPIEREN.
	MOVE BILD TO N-BILD.
	WRITE N-BILD.
	PERFORM LESEN.
EINLESEN.
	DISPLAY "KONTONUMMER DES EMPFAENGERS" (LINE).
	ACCEPT N-ENUMMER.
	WRITE N-BILD.
	DISPLAY "KONTONUMMER" (LINE).
	ACCEPT N-KONTONUMMER.
SCHLIESSEN.
	CLOSE MONATS, MONATS.TM.
UEBERTRAGEN.
	OPEN INPUT MONATS.TM, OUTPUT MONATS.
	READ MONATS.TM, AT END MOVE 1 TO ENDE.
	PERFORM REKOPIEREN UNTIL ENDE = 1.
	PERFORM N-SCHLIESSEN.
REKOPIEREN.
	MOVE N-BILD TO BILD.
	WRITE BILD.
	READ MONATS.TM, AT END MOVE 1 TO ENDE.
N-SCHLIESSEN.
	CLOSE MONATS.TM, MONATS.