Directory of image this file is from
This file as a plain text file

PROGRAMM-ID.
	ADRKOR.CO.

COMMENTS.
	KORRIGIERT DIE DATEI ADRESS.CD.

AUTOR.
	LEMAIRE APRIL 80.
FILE-CONTROL.
	SELECT ADRESS.CD, ACCESS MODE IS RANDOM
	ACTUAL KEY IS NUMMER.
	
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).

WORKING-STORAGE SECTION.
01 NUMMER	PIC	9(3).
01 ANTWORT	PIC	X.
01 TEST		PIC	9	VALUE 1.
01 SCHLUSS	PIC	9	VALUE 0.
01 FRAGE	PIC	X.
01 J-N		PIC	X.
	
PROCEDURE DIVISION.
	PERFORM AENDERN.
	STOP RUN.

AENDERN.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM KORREKTUR UNTIL SCHLUSS = 1.
	PERFORM SCHLIESSEN.

OEFFNEN.
	DISPLAY "IST ADRESS.CD DA J/N " (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT = "J" THEN OPEN I-O ADRESS.CD
	ELSE STOP RUN.

LESEN.
	DISPLAY "NR. DES RECORD,SCHLUSS=0 " (LINE).
	ACCEPT NUMMER.
	IF NUMMER IS EQUAL TO 0 THEN MOVE 1 TO SCHLUSS
	ELSE READ ADRESS.CD, INVALID KEY
	MOVE 0 TO TEST,
	DISPLAY "FALSCHE NUMMER! ",
	PERFORM LESEN.

KORREKTUR.
*NUMMER STIMMT NUN.
	PERFORM VERAENDERN.
	PERFORM LESEN.

VERAENDERN.
	DISPLAY NAME, "R/F " (LINE).
	ACCEPT FRAGE.
	IF FRAGE = "F" THEN ACCEPT NAME.
	DISPLAY STRASSE, "R/F " (LINE).
	ACCEPT FRAGE.
	IF FRAGE = "F" THEN ACCEPT STRASSE.
	DISPLAY ORT, "R/F " (LINE).
	ACCEPT FRAGE.
	IF FRAGE = "F" THEN ACCEPT ORT.
	DISPLAY TELEFON, "     R/F" (LINE).
	ACCEPT FRAGE.
	IF FRAGE = "F" THEN ACCEPT TELEFON.
	WRITE BILD.

SCHLIESSEN.
	CLOSE ADRESS.CD.