PROGRAMM-ID.
	ADRHAN.CO.

COMMENTS.
	HAENGT AN ADRESS.CD ADRESSEN AN UND MACHT DARAUS
	ADRESS.

AUTOR.
	LEMAIRE APRIL 80.
FILE-CONTROL.
	SELECT ADRESS.CD.
	SELECT ADRESS.
	
DATA DIVISION.
FILE SECTION.
FD ADRESS.CD.
01 BILD.
	02 NR		PIC	9(3).
	02 NAME		PIC	X(25).
	02 STRASSE	PIC	X(25).
	02 ORT		PIC	X(25).
	02 TELEFON	PIC	X(20).

FD ADRESS.
01 N-BILD.
	02 N-NR		PIC	9(3).
	02 N-NAME	PIC	X(25).
	02 N-STRASSE	PIC	X(25).
	02 N-ORT	PIC	X(25).
	02 N-TELEFON	PIC	X(20).

WORKING-STORAGE SECTION.
01 ENDE		PIC	9	VALUE 0.
01 NEU-NR	PIC	9(3).
01 ANTWORT	PIC	X.
	
PROCEDURE DIVISION.
	PERFORM ANHAENGEN.
	STOP RUN.

ANHAENGEN.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM KOPIEREN UNTIL ENDE = 1.
	PERFORM ADRESSE.
	PERFORM SCHLIESSEN.

OEFFNEN.
	OPEN INPUT ADRESS.CD, OUTPUT ADRESS.
	MOVE 0 TO NEU-NR.
	DISPLAY "NEUE NUMERIERUNG J/N " (LINE).
	ACCEPT ANTWORT.

LESEN.
	READ ADRESS.CD, AT END MOVE 1 TO ENDE.

KOPIEREN.
	ADD 1 TO NEU-NR.
	MOVE BILD TO N-BILD.
	IF ANTWORT = "J" THEN MOVE NEU-NR TO N-NR.
	WRITE N-BILD.
	PERFORM LESEN.

ADRESSE.
	MOVE NEU-NR TO N-NR.
	PERFORM NAME-NEHMEN.
	PERFORM REST-ADRESSE UNTIL N-NAME = "".

NAME-NEHMEN.
	DISPLAY.
	DISPLAY "NAME                    " (LINE).
	ACCEPT N-NAME.

REST-ADRESSE.
	ADD 1 TO N-NR.
	DISPLAY "STRASSE                 " (LINE).
	ACCEPT N-STRASSE.
	DISPLAY "POSTLEITZAHL ORT        " (LINE).
	ACCEPT N-ORT.
	DISPLAY "TELEFON:VORWAHL+NUMMER: " (LINE).
	ACCEPT N-TELEFON.
	WRITE N-BILD.
	PERFORM NAME-NEHMEN.

SCHLIESSEN.
	CLOSE ADRESS.CD, ADRESS.