File DAKORR.CO

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

PROGRAMM-ID.
	DAKORR.CO.
COMMENTS.
	KORRIGIERT DIE DATEI DAUER.
AUTOR.
	A VIGNOLD JANUAR 84.
FILE-CONTROL.
	SELECT DAUER, ASSIGN TO DSK, ACCESS MODE IS RANDOM
	ACTUAL KEY IS NUMMER.
DATA DIVISION.
FILE SECTION.
FD DAUER.
01 BILD.
	02 DATUM	PIC   X.
	02 KONTONUMMER	PIC   999.
	02 BETRAG	PIC   S9(7)V99.
	02 ENUMMER	PIC   999.
	02 VZWECK	PIC   X(13).
WORKING-STORAGE SECTION.
01 ABBRUCH	PIC   9.
01 ANTWORT	PIC   X.
01 NUMMER	PIC   9.
PROCEDURE DIVISION.
	PERFORM AENDERN.
	CALL DAUHAU.
AENDERN.
	MOVE 1 TO NUMMER.
	MOVE 0 TO ABBRUCH.
	PERFORM OEFFNEN.
	PERFORM  LESEN.
	PERFORM KORREKTUR UNTIL ABBRUCH = 1.
	PERFORM SCHLIESSEN.
OEFFNEN.
	OPEN I-O DAUER.
LESEN.
	READ DAUER, AT END MOVE 1 TO ABBRUCH.
KORREKTUR.
	DISPLAY DATUM, " R/F" (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT = "F" DISPLAY "RICHTIGES DATUM" (LINE), ACCEPT DATUM.
	DISPLAY KONTONUMMER, "R/F" (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT = "F" DISPLAY "RICHTIGE KONTONUMMER" (LINE)
	ACCEPT KONTONUMMER.
	DISPLAY BETRAG, " R/F" (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT = "F" DISPLAY "RICHTIGER BETRAG" (LINE)
	ACCEPT BETRAG.
	DISPLAY ENUMMER, " R/F" (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT = "F" DISPLAY "RICHTIGE ENUMMER" (LINE)
	ACCEPT ENUMMER.
	DISPLAY VZWECK, " R/F" (LINE).
	ACCEPT ANTWORT.
	IF ANTWORT = "F" DISPLAY "RICHTIGER VERWENDUNGSZWECK" (LINE)
	ACCEPT VZWECK.
	WRITE BILD.
	ADD 1 TO NUMMER.
	PERFORM LESEN.
SCHLIESSEN.
	CLOSE DAUER.



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