PROGRAMM-ID.
	LISTEN.
COMMENTS.
	UNTERPROGRAMM ZUM DRUCKEN EINER LISTE ODER EINEM BESTIMMTEN
	ABSCHNITT DER KUNDEN/KONTEN DATEI.
AUTOR.
	THOMAS JAECKEL 16.JAN. 1984
FILE-CONTROL.
	SELECT KONTEN, ASSIGN TO DSK.
	SELECT DRUCK, ASSIGN TO LPT.
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 DRUCK.
01 ZEILE         PIC X(27).
WORKING-STORAGE SECTION.
01 E-VAR.
	02 E-TEXT   PIC X(10).
	02 E-ZAHL    PIC ------9.99.
01 E-T-VAR.
	02 E-T-TEXT	PIC X(11) , VALUE "GEBURTSTAG:".
	02 E-T-T	PIC X(10).
77 BEGIN          PIC 999.
77 ENDE           PIC 999.
77 QUATSCH        PIC X.
77 STOPP          PIC 9     VALUE 0.
PROCEDURE DIVISION.
	DISPLAY.
	DISPLAY "AUSDRUCK DER KONTENDATEI".
	DISPLAY.
	DISPLAY "RESERVIERE DEN DRUCKER MIT:".
	DISPLAY "^VS (RETURN)".
	DISPLAY "!AS L (RETURN)".
	DISPLAY "!CON (RETURN)".
	DISPLAY "  (RETURN)".
	DISPLAY "WENN SCHON GEMACHT, DANN DRUECKE NUR ""RETURN"" !".
	ACCEPT QUATSCH.
ANFANG.
	DISPLAY.
	DISPLAY "GIB ANFANGSKONTONUMMER EIN:" (LINE).
	ACCEPT BEGIN.
	IF BEGIN < 100 THEN GO TO ANFANG.
FEHLER.
	DISPLAY.
	DISPLAY "GIB ENDKONTONUMMER EIN:" (LINE).
	ACCEPT ENDE.
	IF ENDE < BEGIN THEN GO TO FEHLER.
	ADD 1 TO ENDE.
	OPEN INPUT KONTEN.
	PERFORM LESEN.
	PERFORM LESEN UNTIL NUMMER = BEGIN OR STOPP = 1.
	OPEN OUTPUT DRUCK.
	PERFORM DRUCKEN UNTIL NUMMER = ENDE OR STOPP = 1.
	CLOSE DRUCK, KONTEN.
PENDE.
	DISPLAY.
	DISPLAY "AUSDRUCK BEENDET!".
	DISPLAY.
	CALL KONHAU.
LESEN.
	READ KONTEN, AT END MOVE 1 TO STOPP.
DRUCKEN.
	MOVE NUMMER TO ZEILE.
	WRITE ZEILE AFTER ADVANCING 2 LINES.
	IF NAME = "" THEN MOVE "DIESE KONTONUMMER IST FREI!" TO ZEILE,
		WRITE ZEILE AFTER ADVANCING 2 LINES
	ELSE 
	MOVE NAME TO ZEILE,
	WRITE ZEILE AFTER ADVANCING 2 LINES,
	MOVE STRASSE TO ZEILE,
	WRITE ZEILE AFTER ADVANCING 1 LINE,
	MOVE WOHNORT TO ZEILE,
	WRITE ZEILE AFTER ADVANCING 1 LINE,
	MOVE GEBOREN TO E-T-T,
	MOVE E-T-VAR  TO ZEILE,

	WRITE ZEILE AFTER ADVANCING 1 LINE,
	MOVE DATUM TO ZEILE,
	WRITE ZEILE AFTER ADVANCING 1 LINE,
	MOVE MAXIMALKREDIT TO E-ZAHL,
	MOVE "MAXKREDIT:" TO E-TEXT,
	MOVE E-VAR TO ZEILE,
	WRITE ZEILE AFTER ADVANCING 1 LINE,
	MOVE ALTSTAND TO E-ZAHL,
	MOVE "ALTSTAND:" TO  E-TEXT,
	MOVE E-VAR TO ZEILE,
	WRITE ZEILE AFTER ADVANCING 1 LINE,
	MOVE NEUSTAND TO E-ZAHL,
	MOVE "NEUSTAND:" TO E-TEXT,
	MOVE E-VAR TO ZEILE,
	WRITE ZEILE AFTER ADVANCING 1 LINE.
	PERFORM LESEN.