File EINZAH.CO

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

PROGRAMM-ID.
	EINZAHLEN.CO.
COMMENTS.
	EIN BETRAG WIRD IN EIN KONTO EINGEZAHLT.
AUTOR.
	HARUN EVEYIK.
FILE-CONTROL.
	SELECT KONTEN, ASSIGN TO DSK ACCESS MODE IS RANDOM
	ACTUAL KEY IS SATZNR.
DATA-DIVISION.
FILE-CONTROL 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 SATZNR		PIC	9(3).
01 E-NEUSTAND		PIC	------9.99.
01 BETRAG		PIC	9(7)V99.
01 KONTONUMMER		PIC	9(3).
PROCEDURE DIVISION.
	PERFORM BETRAG-ANNEHMEN.
BETRAG-ANNEHMEN.
	PERFORM OEFFNEN.
	DISPLAY "DATUM : (TT/MM/JJJJ) " (LINE).
	ACCEPT DATUM.
	DISPLAY "SIE WOLLEN GELD AUF EIN KONTO EINZAHLEN ".
	DISPLAY "BITTE GEBEN SIE DIE KONOTONUMMER EIN, ".
	DISPLAY "FALLS SIE DIE EINGABE BEENDEN WOLLEN ,GEBEN SI".
	DISPLAY "1 EIN.".
	PERFORM EINGABE.
	PERFORM SCHLIESSEN.
OEFFNEN.
	OPEN I-O KONTEN.
EINGABE.
	DISPLAY "KONTONUMMER :".
	ACCEPT KONTONUMMER.
	IF KONTONUMMER = 1 THEN PERFORM P-ENDE.
	SUBTRACT 99 FROM KONTONUMMER GIVING  SATZNR.
	IF SATZNR > 0 OR SATZNR  = 0 THEN
	PERFORM LESEN
	IF NAME = "" THEN PERFORM ENDE
	ELSE PERFORM AUSGABE, PERFORM FAHRE-FORT.
	IF SATZNR < 0 THEN PERFORM FALSCH.
	GO TO EINGABE.
FALSCH.
	DISPLAY "FALSCHE EINGABE ".
	GO TO EINGABE.
FAHRE-FORT.
	DISPLAY "WIEVIEL WOLLEN SIE EINZAHLEN ?".
	ACCEPT BETRAG.
	MOVE NEUSTAND TO ALTSTAND.
	ADD BETRAG TO NEUSTAND.
	WRITE BILD.
	PERFORM AUSGABE.
AUSGABE.
	DISPLAY NAME.
	DISPLAY STRASSE.
	DISPLAY WOHNORT.
	DISPLAY GEBOREN.
	DISPLAY "KONTOSTAND :".
	MOVE NEUSTAND TO E-NEUSTAND.
	DISPLAY E-NEUSTAND.
	DISPLAY.
ENDE.
	DISPLAY "DIESE KONTONUMMER IST NICHT VORHANDEN.".
SCHLIESSEN.
	CLOSE KONTEN.
P-ENDE.
	PERFORM SCHLIESSEN.
	DISPLAY "EINZAHLEN BEENDET !".
	CALL GELHAU.
LESEN.
	READ KONTEN , AT INVALID KEY PERFORM FALSCH.



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