Zusammenfassung
Um die in die Disketten-Datei STAMM.VER mit dem COBOL-Programm ERFSSNG erfaßten Vertreterdaten zu überprüfen, können wir ein weiteres COBOL-Programm entwickeln oder — einfacher — das Kommando TYPE in der Form
einsetzen.
Access this chapter
Tax calculation will be finalised at checkout
Purchases are for personal use only
Preview
Unable to display preview. Download preview PDF.
Literatur
In der letzten, d. h. 24. Bildschirmzeile erscheint die Systemanfrage “A=“ zur Eingabe des nächsten Kommandos.
Bei der Speicherung eines Datensatzes in der Disketten-Datei STAMM.VER (mit dem Programm ERFSSNG) wird der Kontostand (gemäß der Picture-Maske “S9 (5) V99”) ohne Dezimalpunkt und das Vorzeichen zusammen mit der letzten Ziffer abgelegt. Dabei wird das resultierende Zeichen durch den Internkode des Mikrocomputers festgelegt — in der Regel ist dies der ASCII-Kode. So ergibt sich etwa für die Ablage des Minuszeichens und der Ziffer 5 im letzten Byte ein Kodewert, der das Zeichen “u” kennzeichnet (s. Anhang A.5).
Soll anstelle des Dezimalpunkts ein Dezimalkomma ausgegeben werden — ein im deutschen Sprachraum übliches Vorgehen —, so muß man anstelle des Maskenzeichens “.” das Maskenzeichen “,” verwenden und innerhalb des Paragraphen SPECIAL-NAMES (vgl. Abschnitt 1.3.14) die Klausel “DECIMAL-POINT IS COMMA” eintragen. In diesem Fall muß bei der Datenerfassung die Taste “,” für die Eingabe eines Dezimalkommas und für die automatische Auffüllung mit führenden Nullen verwendet werden (vgl. Abschnitt 1.3.12).
Wir brauchen den Ausgabe-Puffer LISTE-SATZ-ED nicht zu löschen, da ein Ausgabe-Puffer — bei der Einrichtung durch das Betriebssystem —stets mit Leerzeichen vorbesetzt wird.
Bei der Initialisierung von numerischen Datenfeldern wird der Anfangswert innerhalb einer VALUE-Klausel in Form eines numerischen Literals, d. h. einer “Zahlen-Konstanten” angegeben. Ein numerisches Literal besteht aus maximal 18 Ziffern. Ein signiertes Literal wird durch ein Vorzeichen eingeleitet, und ein nicht-ganzzahliges Literal enthält einen Dezimalpunkt. Für die Datenfeld-Vereinbarung wählen wir — anstelle der Stufennummer 01 — die Stufennummer 77, um hervorzuheben, daß das vereinbarte Datenfeld nicht weiter strukturiert ist.
Bei der Programmausführung dürfen zu jedem Zeitpunkt maximal 13 Dateien gleichzeitig eröffnet sein. Dabei ist zu beachten, daß bei der Eröffnung einer index-sequentiell organisierten Datei (s. Abschnitt 4.2) jeweils zwei physische Dateien und beim Unterprogramm-Aufruf (s. Abschnitt 5.1) und für das Nachladen eines Programmteils bei der Segmentierung (s. Abschnitt 5.2) jeweils eine Datei zusätzlich durch das System eröffnet wird.
Sofern bereits eine Datei gleichen Namens auf der Diskette existiert, gehen die dort abgespeicherten Datensätze verloren, weil dieser Speicherbereich zur Ablage der neuen Datensätze zur Verfügung gestellt wird.
Andernfalls ist eine Ausgabe-Datei nach der Programmausführung nicht auf der Diskette vorhanden, weil das Betriebssystem in der Regel keine Datei-Abschlußbehandlung durchführt.
Eine READ-Anweisung muß immer mit einem Punkt “.” abgeschlossen werden.
Soll dabei jeder Ausgabesatz zu Beginn einer neuen Bildschirmzeile angezeigt werden, so muß im Paragraphen FILE-CONTROL angegeben werden:
Zwischen den Überschriften “KENNZAHL” und “NACHNAME” sollen 8 Leerzeichen, zwischen “NACHNAME” und “VORNAME” 15 Leerzeichen und zwischen “VORNAME” und “KONTOSTAND” 7 Leerzeichen an Zwischenraum vorgesehen werden.
Eine logische Druckseite fällt in der Regel nicht mit einer physischen Druckseite, d. h. einem Druckformular, zusammen. Der Bindestrich “-” in Spalte 7 wird zur Trennung von Literalen benutzt. Er zeigt an, daß der in der vorausgehenden Zeile eingetragene Text der Literalanfang und der Text, der im Bereich B hinter dem Bindestrich “-” aufgeführt ist, das Ende des Literals bildet. Dabei wird die Literalfortsetzung mit dem Anführungszeichen (“) eingeleitet.
Durch diese DISPLAY-Anweisung wird — aus optischen Gründen — in das Erfassungsfeld, in das die Abbruchanforderung durch die Eingabe des Zeichens “J” einzutasten ist, das Zeichen “N” ausgegeben.
Author information
Authors and Affiliations
Rights and permissions
Copyright information
© 1987 Springer Fachmedien Wiesbaden
About this chapter
Cite this chapter
Kähler, WM. (1987). Daten-Ausgabe auf Drucker und Bildschirm. In: Mikrocomputer-COBOL. Programmieren von Mikrocomputern, vol 18. Vieweg+Teubner Verlag, Wiesbaden. https://doi.org/10.1007/978-3-663-14022-1_2
Download citation
DOI: https://doi.org/10.1007/978-3-663-14022-1_2
Publisher Name: Vieweg+Teubner Verlag, Wiesbaden
Print ISBN: 978-3-528-14438-8
Online ISBN: 978-3-663-14022-1
eBook Packages: Springer Book Archive