File AUSZUG.CO

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

PROGRAM-ID.
	KONTOAUSZUGDRUCKEN.CO.
COMMENTS.
	DRUCKT AUSZUEGE EINES KONTOS AUS
	NACHDEM EIN VORGANG BEARBEITET WURDE.
AUTOR.
	PETER URBANEK/KIRSTEN GANSTER/UTE WIESNER/THOMAS JAECKEL.
FILE-CONTROL.
	SELECT KONTEN ASSIGN TO DSK,
	ACCESS MODE IS RANDOM,
	ACTUAL KEY IS SATZNUMMER.
	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 DRUCKZ                PIC    X(54).
WORKING-STORAGE SECTION.
01 ANTWORT            PIC    X.
01 KONTONUMMER        PIC     9(3).
01 SATZNUMMER            PIC    9(3).
01 SCHLUSS             PIC    9        VALUE 1.
01 KOPFZEILE.
	02 FILLER	    PIC    X(3)   VALUE "   ".
	02 KNUMMER	     PIC    9(3).
	02 FILLER	    PIC    X(41)
	VALUE "                                         ".
	02 KAUSZUGSNUMMER	 PIC    ZZ9.
	02 FILLER                 PIC    X(4)   VALUE "    ".
01 ERSTEZEILE.
	02 FILLER	    PIC    X(3)   VALUE "   ".
	02 ERSTSCHECKNUMMER       PIC    ZZ9.
	02 FILLER           PIC     X(6)   VALUE "      ".
	02 ERSTBEWART       PIC    X(22).
	02 FILLER	    PIC    X(8)   VALUE "        ".
	02 ERSTBEWEGUNG	      PIC    -(6)9.99.
	02 FILLER              PIC    X(2)   VALUE "  ".
01 ZWEITEZEILE.
	02 FILLER	    PIC    X(42)
	VALUE "                     AKTUELLER ZINSSTAND: ".
	02 ZWEIZINSSPEICHER        PIC    -(6)9.99.
01 DRITTEZEILE.
	02 FILLER	    PIC    X(4)   VALUE "    ".
	02 DREINAME	      PIC    X(25).
	02 FILLER	    PIC    X(13)   VALUE "  ALTSTAND:  ".
	02 DREIALTSTAND             PIC    -(6)9.99.
	02 FILLER	    PIC    X(2)   VALUE "  ".
01 VIERTEZEILE.
	02 FILLER	    PIC    X(4)   VALUE "    ".
	02 VIERSTRASSE	         PIC    X(25).
	02 FILLER	    PIC    X(13)   VALUE "   NEUSTAND: ".
	02 VIERNEUSTAND	          PIC    -(6)9.99.
	02 FILLER             PIC    X(2)   VALUE "  ".
01 FUENFTEZEILE.
	02 FILLER	    PIC    X(4)   VALUE "    ".
	02 FUENFWOHNORT	          PIC    X(25).
	02 FILLER  	      PIC    X(5)   VALUE "     ".
	02 FUENFDATUM	        PIC    X(10).
	02 FILLER	    PIC    X(12)   VALUE "            ".
PROCEDURE DIVISION.
	PERFORM ARBEITEN.
ARBEITEN.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM AUFRUF.
	PERFORM ZUWEISEN THRU DRUCKEN UNTIL KONTONUMMER = 0.
	PERFORM SCHLIESSEN.

AUFRUF.
	DISPLAY.
	DISPLAY "FALLS ERFORDERLICH DEN DRUCKER RESERVIEREN!".
OEFFNEN.
	OPEN I-O KONTEN, OUTPUT DRUCK.
LESEN.
	DISPLAY "BEI EINGABE EINER NULL RUECKKEHR ZUM MENUE".
	DISPLAY "TIPPEN SIE DIE KONTO-NUMMER EIN" (LINE).
	ACCEPT KONTONUMMER.
	IF KONTONUMMER NOT = 0 THEN 
	SUBTRACT 99 FROM KONTONUMMER GIVING SATZNUMMER ,
	READ KONTEN, INVALID KEY DISPLAY "NUMMER NICHT DA",
	GO TO LESEN.
	IF NAME = "" THEN DISPLAY "KONTO LEER!!" , GO TO LESEN.
ZUWEISEN.
	ADD 1 TO AUSZUGSNUMMER.
	WRITE BILD.
	MOVE NUMMER TO KNUMMER.
	MOVE AUSZUGSNUMMER TO KAUSZUGSNUMMER.
	MOVE SCHECKNUMMER TO ERSTSCHECKNUMMER.
	MOVE BEWART TO ERSTBEWART.
	MOVE BEWEGUNG TO ERSTBEWEGUNG.
	MOVE ZINSSPEICHER TO ZWEIZINSSPEICHER.
	MOVE NAME TO DREINAME.
	MOVE ALTSTAND TO DREIALTSTAND.
	MOVE STRASSE TO VIERSTRASSE.
	MOVE NEUSTAND TO VIERNEUSTAND.
	MOVE WOHNORT TO FUENFWOHNORT.
	MOVE DATUM TO FUENFDATUM.
DRUCKEN.
	MOVE KOPFZEILE TO DRUCKZ.
	WRITE DRUCKZ AFTER ADVANCING 2 LINES.
	MOVE ERSTEZEILE TO DRUCKZ.
	WRITE DRUCKZ AFTER ADVANCING 1 LINE.
	WRITE DRUCKZ.
	MOVE ZWEITEZEILE TO DRUCKZ.
	WRITE DRUCKZ AFTER ADVANCING 8 LINES.
	MOVE DRITTEZEILE TO DRUCKZ.
	WRITE DRUCKZ AFTER ADVANCING 1 LINE.
	MOVE VIERTEZEILE TO DRUCKZ.
	WRITE DRUCKZ AFTER ADVANCING 1 LINE.
	MOVE FUENFTEZEILE TO DRUCKZ.
	WRITE DRUCKZ AFTER ADVANCING 1 LINE.
	PERFORM LESEN.
SCHLIESSEN.
	CLOSE KONTEN , DRUCK.
	CALL KONHAU.



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