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

PROGRAMM-ID.
	TAGZIN.
COMMENTS.
	BERECHNET DIE TAGESZINSEN EINES KONTOS.
AUTOR.
	K GANSTER NOV 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 KAPITAL      PIC   S9(7)V99.
01 ZINSEN       PIC   S9(7)V99.
01 HELP         PIC   S9(7)V99.
01 ENDE         PIC   9   VALUE 0.
77 SCHLUESSEL   PIC   9(3)   VALUE 001.
PROCEDURE DIVISION.
	DISPLAY.
	DISPLAY "BERECHNUNG DER TAGESZINSEN".
	DISPLAY.
	PERFORM TAGESZINSEN.
	CALL ZINHAU.
TAGESZINSEN.
	OPEN I-O KONTEN.
	PERFORM LESEN.
	PERFORM RECHNEN UNTIL ENDE = 1.
	CLOSE KONTEN.
RECHNEN.
	MOVE NEUSTAND TO KAPITAL.
	IF KAPITAL > 0 THEN PERFORM  GUTHABENZINSEN;
	ELSE PERFORM ERLAUBT.
	ADD ZINSEN TO ZINSSPEICHER.
	PERFORM SCHREIBEN.
	PERFORM LESEN.
GUTHABENZINSEN.
	MULTIPLY KAPITAL BY 0.000013889 GIVING ZINSEN.
ERLAUBT.
	MULTIPLY KAPITAL BY 0.000291667 GIVING ZINSEN.
LESEN.
	READ KONTEN, INVALID KEY   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.