File DAAUSG.CO

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

PROGRAMM-ID.
	DAAUSG.CO.
COMMENTS.
	GIBT DIE DATEI DAUER AUS.

AUTOR.
	A VIGNOLD DEZEMBER 83.
FILE-CONTROL.
	SELECT DAUER, ASSIGN TO DSK.
	SELECT DRUCK, ASSIGN TO LPT.
DATA DIVISION.
FILE SECTION.
FD DRUCK.
01 DRUCKZEILE	PIC   X(13).
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 VALUE 0.
PROCEDURE DIVISION.
	PERFORM AUSGABE.
	CALL DAUHAU.
AUSGABE.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM DRUCKEN UNTIL  ABBRUCH = 1.
	PERFORM SCHLIESSEN.
OEFFNEN.
	OPEN INPUT DAUER, OUTPUT DRUCK.
LESEN.
	READ DAUER AT END MOVE 1 TO ABBRUCH.
DRUCKEN.
	MOVE DATUM TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 2 LINES.
	MOVE KONTONUMMER TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	MOVE BETRAG TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	MOVE ENUMMER TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	MOVE VZWECK TO DRUCKZEILE.
	WRITE DRUCKZEILE AFTER ADVANCING 1 LINE.
	PERFORM LESEN.
SCHLIESSEN.
	CLOSE DAUER, DRUCK.



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