File MOANHA.CO

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

PROGRAMM-ID.
	DATANH.CO.
COMMENTS.
	ERWEITERT DIE DATEI MONATS.
AUTOR.
	A VIGNOLD NOVEMBER 83.
FILE-CONTROL.
	SELECT MONATS, ASSIGN TO DSK.
	SELECT MONATS.TM, ASSIGN TO DSK.
DATA DIVISION.
FILE SECTION.
FD MONATS.
01 BILD.
	02 KONTONUMMER          PIC   9(3).
	02 ENUMMER               PIC   9(3).
FD MONATS.TM.
01 N-BILD.
	02 N-KONTONUMMER          PIC   9(3).
	02 N-ENUMMER              PIC   9(3).
WORKING-STORAGE SECTION.
01 ABBRUCH     PIC   9   VALUE 0.
01 ENDE        PIC   9   VALUE 0.
PROCEDURE DIVISION.
	PERFORM ERWEITERN.
	CALL MONHAU.
ERWEITERN.
	PERFORM TEXT.
	PERFORM OEFFNEN.
	PERFORM LESEN.
	PERFORM KOPIEREN UNTIL ABBRUCH = 1.
	DISPLAY "KONTONUMMER" (LINE).
	ACCEPT N-KONTONUMMER.
	PERFORM EINLESEN UNTIL N-KONTONUMMER = 999.
	PERFORM SCHLIESSEN.
	PERFORM UEBERTRAGEN.
TEXT.
	DISPLAY "GEBEN SIE DIE KONTONUMMER DES AUFTRAGGEBERS".
	DISPLAY "UND DES EMPFAENGERS EIN! ABBRECHEN MIT 999.".
OEFFNEN.
	OPEN INPUT MONATS, OUTPUT MONATS.TM.
LESEN.
	READ MONATS, AT END MOVE 1 TO ABBRUCH.
KOPIEREN.
	MOVE BILD TO N-BILD.
	WRITE N-BILD.
	PERFORM LESEN.
EINLESEN.
	DISPLAY "KONTONUMMER DES EMPFAENGERS" (LINE).
	ACCEPT N-ENUMMER.
	WRITE N-BILD.
	DISPLAY "KONTONUMMER" (LINE).
	ACCEPT N-KONTONUMMER.
SCHLIESSEN.
	CLOSE MONATS, MONATS.TM.
UEBERTRAGEN.
	OPEN INPUT MONATS.TM, OUTPUT MONATS.
	READ MONATS.TM, AT END MOVE 1 TO ENDE.
	PERFORM REKOPIEREN UNTIL ENDE = 1.
	PERFORM N-SCHLIESSEN.
REKOPIEREN.
	MOVE N-BILD TO BILD.
	WRITE BILD.
	READ MONATS.TM, AT END MOVE 1 TO ENDE.
N-SCHLIESSEN.
	CLOSE MONATS.TM, MONATS.



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