File DAANHA.CO

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

PROGRAMM-ID.
	DAANHA.CO.
COMMENTS.
	ERWEITERT DIE DATEI DAUER.
AUTOR.
	A VIGNOLD JANUAR 84.
FILE-CONTROL.
	SELECT DAUER, ASSIGN TO DSK.
	SELECT DAUER.TM, ASSIGN TO DSK.
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).
FD DAUER.TM.
01 N-BILD.
	02 N-DATUM	PIC   X.
	02 N-KONTONUMMER	PIC   999.
	02 N-BETRAG	PIC   S9(7)V99.
	02 N-ENUMMER	PIC   999.
	02 N-VZWECK	PIC   X(13).
WORKING-STORAGE SECTION.
01 ABBRUCH	PIC   9   VALUE 0.
01 ENDE	PIC   9   VALUE 0.
PROCEDURE DIVISION.
	PERFORM ERWEITERN.
	CALL DAUHAU.
ERWEITERN.
	PERFORM TEXT.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM KOPIEREN UNTIL ABBRUCH = 1.
	DISPLAY "DATUM" (LINE).
	ACCEPT N-DATUM.
	PERFORM EINLESEN UNTIL N-DATUM = "A".
	PERFORM SCHLIESSEN.
	PERFORM UEBERTRAGEN.
TEXT.
	DISPLAY "GEBEN SIE DAS DATUM 'M' ODER 'E', DIE".
	DISPLAY "KONTONUMMER DES ABSENDERS, DEN BETRAG,".
	DISPLAY "DIE KONTONUMMER DES EMPFAENGERS SOWIE".
	DISPLAY "DEN VERWENDUNGSZWECK IN DIESER REIHENFOLGE".
	DISPLAY "EIN. ABBRUCH MIT 'A'.".
OEFFNEN.
	OPEN INPUT DAUER, OUTPUT DAUER.TM.
LESEN.
	READ DAUER, AT END MOVE 1 TO ABBRUCH.
KOPIEREN.
	MOVE BILD TO N-BILD.
	WRITE N-BILD.
	PERFORM LESEN.
EINLESEN.
	DISPLAY "KONTONUMER DES AUFTRAGGEBERS" (LINE).
	ACCEPT KONTONUMMER.
	DISPLAY "BETRAG" (LINE).
	ACCEPT BETRAG.
	DISPLAY "KONTONUMER DES EMPFAENGERS" (LINE).
	ACCEPT ENUMMER.
	DISPLAY "VERWENDUNGSZWECK" (LINE).
	ACCEPT VZWECK.
	WRITE N-BILD.
	DISPLAY "DATUM" (LINE).
	ACCEPT N-DATUM.
SCHLIESSEN.
	CLOSE DAUER, DAUER.TM.
UEBERTRAGEN.
	OPEN INPUT DAUER.TM, OUTPUT DAUER.
	READ DAUER.TM, AT END MOVE 1 TO ENDE.
	PERFORM REKOPIEREN UNTIL ENDE = 1.
	PERFORM N-SCHLIESSEN.
REKOPIEREN.
	MOVE N-BILD TO BILD.
	WRITE BILD.
	READ DAUER.TM, AT END MOVE 1 TO ENDE.
N-SCHLIESSEN.
	CLOSE DAUER.TM, 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