File KEINRI.CO

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

PROGRAMM-ID.
	KEINRI.
COMMENTS.
	EIN KONTO WIRD ERRICHTET UND DIE DATEN DES KUNDEN EINGELESEN.
AUTOR.
	UTE WIESNER.
FILE-CONTROL.
	SELECT KONTEN, ASSIGN TO DSK.
	SELECT KONTEN.TM, ASSIGN TO DSK.
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).
FD KONTEN.TM.
01 N-BILD.
	02 N-NUMMER              PIC    9(3).
	02 N-NAME                PIC    X(25).
	02 N-STRASSE             PIC    X(25).
	02 N-WOHNORT             PIC    X(25).
	02 N-GEBOREN             PIC    X(10).
	02 N-MAXIMALKREDIT       PIC    S9(7)V99.
	02 N-ALTSTAND            PIC    S9(7)V99.
	02 N-DATUM               PIC    X(10).
	02 N-BEWART              PIC    X(30).
	02 N-BEWEGUNG            PIC    S9(7)V99.
	02 N-NEUSTAND            PIC    S9(7)V99.
	02 N-ZINSSPEICHER        PIC    S9(7)V99.
	02 N-SCHECKNUMMER        PIC    9(3).
	02 N-AUSZUGSNUMMER       PIC    9(3).
WORKING-STORAGE SECTION.
01 ENDE		PIC	9	VALUE 0.
01 NEU-NUMMER	PIC	9(3).
PROCEDURE DIVISION.
	PERFORM TEXT.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM KOPIEREN UNTIL ENDE = 1.
	PERFORM ERRICHTEN.
	PERFORM SCHLIESSEN.
	PERFORM RECOPIEREN.
	CALL KONHAU.
TEXT.
	DISPLAY " SIE EROEFFNEN SOEBEN EIN NEUES KONTO".
	DISPLAY "GEBEN SIE DIE DATEN EIN".
OEFFNEN.
	OPEN INPUT KONTEN, OUTPUT KONTEN.TM.
	MOVE 99 TO NEU-NUMMER.
LESEN.
	READ KONTEN AT END MOVE 1 TO ENDE.
KOPIEREN.
	ADD 1 TO NEU-NUMMER.
	MOVE BILD TO N-BILD.
	MOVE NEU-NUMMER TO N-NUMMER.
	WRITE N-BILD.
	PERFORM LESEN.
ERRICHTEN.
	MOVE NEU-NUMMER TO N-NUMMER.
	PERFORM NAME-NEHMEN.
	PERFORM REST-ERRICHTEN UNTIL N-NAME = "".
NAME-NEHMEN.
	DISPLAY "NAME " (LINE).
	ACCEPT N-NAME.
REST-ERRICHTEN.
	ADD 1 TO N-NUMMER.
	DISPLAY "STRASSE " (LINE).
	ACCEPT N-STRASSE.
	DISPLAY "WOHNORT " (LINE).
	ACCEPT N-WOHNORT.
	DISPLAY "GEBOREN (TT,MM,JJJJ) ".
	ACCEPT N-GEBOREN.
	DISPLAY "GEBEN SIE JETZT DEN MAXIMALEN KREDIT DES INHABERS ".
	DISPLAY "AN. ER BERECHNET SICH AUF DIE FOLGENDE WEISE:".
	DISPLAY "MONATLICHES GEHALT*2.SIND SIE HIER UEBERFRAGT, DANN ".
	DISPLAY "GEBN SIE BITTE EINE 0 EIN".
	ACCEPT N-MAXIMALKREDIT.
	MOVE  0 TO N-ALTSTAND.
	DISPLAY "DATUM (TT,MM,JJJJ) ".
	ACCEPT N-DATUM.
	MOVE  "" TO BEWART.
	MOVE 0 TO N-BEWEGUNG.
	MOVE 0 TO N-NEUSTAND.
	MOVE 0 TO N-ZINSSPEICHER.
	MOVE 000 TO N-SCHECKNUMMER.
	MOVE 000 TO N-AUSZUGSNUMMER.
	DISPLAY "IHRE KONTONUMMER: " , N-NUMMER.
	WRITE N-BILD.
	PERFORM NAME-NEHMEN.
SCHLIESSEN.
	CLOSE KONTEN, KONTEN.TM.
RECOPIEREN.
	OPEN OUTPUT KONTEN , INPUT KONTEN.TM.
	MOVE 0 TO ENDE.
	PERFORM LESEN-TM.
	PERFORM SCHREIBEN UNTIL ENDE = 1.
	CLOSE KONTEN , KONTEN.TM.
LESEN-TM.
	READ KONTEN.TM AT END MOVE  1 TO ENDE.
SCHREIBEN.
	MOVE N-BILD TO BILD.
	WRITE BILD.
	PERFORM LESEN-TM.



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search