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

PROGRAMM-ID.
	GUTZIN.
COMMENTS.
	GUTSCHREIBEN DER ZINSEN AUF DAS KAPITAL.
AUTOR.
	K GANSTER DEC 83.
FILE-CONTROL.
	SELECT KONTEN, ASSIGN TO DSK;
	ACCESS MODE IS RANDOM,
	ACTUAL KEY IS SCHLUESSEL.
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).
WORKING-STORAGE SECTION.
01 ENDE         PIC   9   VALUE 0.
77 SCHLUESSEL   PIC   9(3)   VALUE 001.
PROCEDURE DIVISION.
	DISPLAY.
	DISPLAY "GUTSCHREIBEN DER ZINSEN".
	DISPLAY.
	PERFORM GUTSCHREIBEN.
	CALL ZINHAU.
GUTSCHREIBEN.
	OPEN I-O KONTEN.
	PERFORM LESEN.
	PERFORM ZINSSPEICHER UNTIL ENDE = 1.
	CLOSE KONTEN.
ZINSSPEICHER.
	MOVE NEUSTAND TO ALTSTAND.
	ADD ZINSSPEICHER TO NEUSTAND.
	MOVE 0 TO ZINSSPEICHER.
	PERFORM SCHREIBEN.
	PERFORM LESEN.
LESEN.
	READ KONTEN, AT END MOVE 1 TO ENDE.
	IF NAME = " " AND ENDE IS NOT = 1 THEN ADD 1 TO SCHLUESSEL,
	PERFORM LESEN.
SCHREIBEN.
	WRITE BILD.
	ADD 1 TO SCHLUESSEL.