Einführung in die Programmiersprache COBOL: Eine Anleitung zum „Strukturierten Programmieren“

363 Pages·1988·16.27 MB·German

by  Wolf-Michael Kähler (auth.)

W.-M. Kahler
COBOL
Programmiersprachen ----------..
EinfUhrung in die Programmiersprache Ada, von M. Nagl
EinfUhrung in ALGOL 68, von H. Feldmann
EinfUhrung in die Programmiersprache BASIC,
von W.-O. Schwill und R. Weibezahn
EinfLihrung in die Programmiersprache COBOL,
von W.-M. Kahler
Mikrocomputer-COBOL, von W.-M. Kahler
EinfUhrung in die Programmiersprache FORTRAN IV,
von G. Lamprecht
EinfUhrung in die Programmiersprache FORTRAN 77,
von G. Lamprecht
FORTRAN-TRAINER, von H. Kohler
EinfUhrung in die Programmiersprache PASCAL,
von K.-H. Becker und G. Lamprecht
PEAR L, Process and Experiment Automation Realtime Language,
von W. Werum und H. Windauer
Einfuhrung in die Programmiersprache PLlI,
von H. Kamp und H. Pudlatz
Einfuhrung in die Programmiersprache SIMULA,
von G. Lamprecht
Einfuhrung in das Oatenanalysesystem SPSS,
von W.-M. Kahler
SPSSx fUr Anfanger, von W.-M. Kahler
SAS fUr Anfanger, von W.·M. Kahler und W. Schulte
Vieweg---------------~
Wolf-Michael Kahler
Einfiihrung in die
Programmiersprache
COBOL
Eine Anleitung zum
"Strukturierten Programmieren"
4., neubearbeitete Auflage
Friedr. Vieweg & Sohn Braunschweig/Wiesbaden
CIP-Titelaufnahme der Deutschen Bibliothek
Kahler, Wolf-Michael:
Einflihrung in die Programmiersprache COBOL:
e. Anleitung zum "strukturierten Programmieren"j
Wolf-Michael Kahler. - 4., neubearb. Aufl. -
Braunschweig; Wiesbaden: Vieweg, 1988
ISBN-13: 978-3-528-33335-5 e-ISBN-13: 978-3-322-83723-3
DOl: 10.1007/978-3-322-83723-3
flir Christiane, Sonja, Iris und Almut
1. Auflage 1980
2.,durchgesehene Auflage 1982
Nachdruck 1983
3. Auflage 1984 mit flinfNachdrucken 1985-1987
4.,neubearbeitete Auflage 1988
Der Verlag Vieweg ist ein Unternehmen der Verlagsgruppe Bertelsmann.
AIle Rechte vorbehalten
© Friedr. Vieweg & Sohn Vedagsgesellschaft mbH, Braunschweig 1988
Das Werk einschlie~lich alIer seiner Teile ist urheberrechtlich geschiitzt. Jede
Verwertung a~erhalb der engen Grenzen des Urheberrechtsgesetzes ist ohne
Zustimmung des Vedags unzuliissig und strafbar. Das gilt insbesondere fliI
Vervielfliltigungen, Ubersetzungen, Mikroverfilmungen und die Einspeicherung
und Verarbeitung in elektronischen Systemen.
Umschlaggestaltung: Peter Lenz, Wiesbaden
ISBN-13: 978-3-528-33335-5
v
VORWORT
Diese Einfiihrung in die Programmiersprache COBOL ist entstanden aus mehreren
Kursen, die am Rechenzentrum der Universitat Bremen fiir Horer aller Fachberei
che und an der Volkshochschule Bremen im Rahmen der berufiichen Weiterbildung
abgehalten worden sind. Das Ziel dieser Kurse bestand darin, den Teilnehmern die
grundlegenden Sprachelemente von COBOL und die Technik des "Strukturierten
Programmierens" zu vermitteln. Diese Zielvorstellung wird auch diesem Buch vor
angestellt. Dazu wird ein Losungsalgorithmus lunachst graphisch - in Form eines
Struktogramms - dargestellt und anschlieBend mit den in COBOL zur Verfligung
stehenden Sprachelementen angegeben.
Die Anwendungsbeispiele sind betont einfach gehalten, so daB keine besonderen
Kenntnisse aus dem Bereich der administrativen und kommerziellen Anwendungen
- dem Haupteinsatzgebiet von COBOL - erforderlich sind.
Der Leser dieser Einfiihrung braucht liber keine Vorkenntnisse au!! dem Bereich der
Elektronischen Datenverarbeitung zu verfiigen, da die wichtigsten Begriffe zusam
men mit den Elementen von COBOL vorgestellt werden. Er wird mit Hilfe dieser
Einfiihrung in der Lage sein, selbstandig COBOL-Programme zu entwickeln und
auf einer Datenverarbeitungsanlage ablaufen IU lassen.
Schon mit den Grundkenntnissen, die in den ersten drei Kapiteln vermittelt werden,
konnen einfache Aufgaben selbstandig gelost werden. Zur Lernkontrolle und um sich
in der Fertigkeit des Programmierens IU iiben, soUte sich der Leser auch stets um die
Losung der Aufgaben bemiihen, die jeweils am Ende eines Kapite1s angegeben sind.
Als Hilfestellung stehen ihm dabei die Ausfiihrungen im Losungsteil lur Verfiigung.
Herrn Prof. Dr. Giinther Lamprecht danke ich fiir die Anregung zu dieser Nieder
schrift und fiir zahlreiche Anderungsvorschlage. Fur die kritische Durchsicht des
Manuskripts bin ich ferner Herrn Dr. Roland Weibezahn zu Dank verpfiichtet.
Bremen, im Januar 1980 Wolf-Michael Kahler
VI
VORWORT zur 4. Auflage
In zunehmendem Mafie wird die traditionelle, an dem Datentrager Lochkarte ausge
richtete Einfiihrung in die Programmiersprache COBOL durch die Ausbildung am
Mikrocomputer abgelost. Die in den letzten Jahren auf dem Markt angebotenen
leistungsfahigen COBOL-Kompilierer fiir den Einsatz auf Mikrocomputern haben
diese Entwicklung ermoglicht.
Unter diesem Gesichtspunkt schien es geboten, die aus dem Jahr 1980 stammende
Basisfassung dieses Buches dahingehend zu iiberarbeiten, daB sowohl die COBOL
Ausbildung am GroBrechner als auch am Mikrocomputer wirksam unterstiitzt wird.
Eine Neuauflage zum jetzigen Zeitpunkt empfiehlt sich auch insofern, als durch die
neue COBOL-Norm aus dem Jahr 1985 (COBOL-85) neue Sprachelemente zum
alten Standard aus dem Jahr 1974 (COBOL-74) hinzugefiigt wurden, mit denen die
"Strukturierte Programmierung" noch wirkungsvoller unterstiitzt werden kann.
Ganzlich verzichtet wurde auf Anmerkungen, die den veralteten Sprachstandard
aus dem Jahr 1968 betreffen. Zugrundegelegt wird der Standard COBOL-74, des
sen Darstellung durch wichtige Sprachelemente von COBOL-85 erganzt wurde.
Zu nennen sind etwa das In-line-PERFORM, die PERFORM-Anweisung mit der
TEST-Klausel, die INITIALIZE-Anweisung zur Vorbesetzung von Datenfeldern,
die EVALUATE-Anweisung zur Umsetzung von Mehrfachverzweigungen und die
Stopworter, mit denen bedingte Anweisungen als unbedingte Anweisungen einge
setzt werden konnen. Diese neuen Sprachelemente sind im Text als Bestandteil von
COBOL-85 gesondert gekennzeichnet. Dadurch ist gewahrleistet, dafi dem Leser
stets gegenwartig ist, ob zum Einsatz des jeweiligen Sprachelements ein COBOL-85-
Kompilierer erforderlich ist oder nicht.
Bei dieser iiberarbeiteten Fassung wurde die urspriingliche Beschreibung um die
Darstellung weiterer Sprachelemente von COBOL-74 erganzt wie etwa um das Kon
zept der logischen Druckseite, die SIGN-Klausel, die FILE STATUS-Klausel, das
Konzept der Alphabetnamen und die Zugriffsform DYNAMIC. Ferner wurde die
urspriingliche Beschreibung der veralteten EXAMINE-Anweisung durch die Dar
stellung der INSPECT-Anweisung ersetzt.
Zur Unterstiitzung der Arbeit an einem Mikrocomputer sind ferner exemplarische
Angaben zur Datei-Geratezuordnung in den Text aufgenommen worden.
Bei dieser Neuaufiage wurde die Gestaltung des Buches durch den Einsatz des Text
systems U-TEX verbessert. Der Autor dankt Herrn Dr. Georg Heygster fiir seine
Ratschlage bei der Erstellung der Druckvorlage.
Ritterhude, im August 1988 Wolf-Michael KIDller
VII
Die in dieser Einfiihrungsschrift dargestellte Programmiersprache COBOL basiert
auf dem Dokument "American National Standard Programming Language COBOL,
X.3.23". Daher muf3 unseren Ausfiihrungen der folgende Hinweis vorangestellt wer
den:
ACKNOWLEDGMENT
"Any organization interested in reproducing the COBOL report and specifications
in whole or in part, using ideas from this report as the basis for an instruction
manual or for any other purpose, is free to do so. However, all such organizations are
requested to reproduce the following acknowledgment paragraphs in their entirety as
part of the preface to any such publication. Any organization using a short passage
from this document, such as in a book review, is requested to mention "COBOL"
in acknowledgment of the source, but need not quote the acknowledgment.
COBOL is an industry language and is not the property of any company or group
of companies, or of any organization or group of organizations.
No warranty, expressed or implied, is made by any contributor or by the CODASYL
Programming Language Committee as to the accuracy and functioning of the pro
gramming system and language. Moreover, no responsibility is assumed by any
contributor, or by the committee, in connection therewith.
The authors and copyright holders of the copyrighted material used herein
• FLOW-MATIC (trademark of Sperry Rand Corporation), Programming for
the UNIVAC (R) I and II, Data Automation Systems copyrighted 1958, 1959,
by Sperry Rand Corporation;
• IBM Commercial Translator Form No. F28-8013, copyrighted 1959 by IBM;
• FACT, DSI 27A5260-2760, copyrighted 1960 by Minneapolis-Honeywell
have specifically authorized the use of this material in whole or in part, in the
COBOL specifications. Such authorization extends to the reproduction and use of
COBOL specifications in programming manuals or similar publications."
VIII
Inhalt
1 Einfiihrung 1
2 Vereinbarung der Datensatz-Struktur 6
2.1 Datenerfassung..................... 6
2.2 Vereinbarung von Datenfeldern (PICTURE-Klausel) 11
2.3 Vereinbarung von Datensatzen ........ 19
3 Programmaufbau und Programmablauf 23
3.1 Datei-Beschreibung.............................. 24
3.2 Beschreibung der Verarbeitung . . . . . . . . . . . . . . . . . . . . . .. 28
3.3 IDENTIFICATION DIVISION, ENVIRONMENT DIVISION und
DATA DIVISION ............................ 36
3.4 Vorbereitungen zur Programmausfiihrung . . 42
3.5 Kompilierung und Programmausfiihrung . . 45
3.6 Veranderung der Problemlosung ...... . 47
4 Syntax und Einteilung von COBOL-Anweisungen 56
5 Datentransport und Wertzuweisung 61
5.1 Die MOVE-Anweisung ..... 61
5.2 Initialisieren von Datenfeldern 74
6 Einfache Ein-/ Ausgabe 78
6.1 Eroffnen und SchlieBen von Dateien ......... . 79
6.2 Ein- und Ausgabe von Datensatzen (READ, WRITE) 82
6.3 Druckausgabe..... 87
6.4 Logische Druckseiten . . . . . . . . . . . . 89
6.5 Druckaufbereitung . . . . . . . . . . . . . 96
6.6 Dialogfiihrung am Bildschirmarbeitsplatz ... 103
Inhalt IX
7 Einfache Steueranweisungen 109
7.1 Die PERFORM-Anweisung 109
7.2 Die IF-Anweisung .. 114
7.3 Die GO-Anweisung .. 126
7.4 Die STOP-Anweisung 128
7.5 Die EXIT-Anweisung 128
8 Arithmetische Operationen 131
8.1 ADD-, SUBTRACT-, MULTIPLY- und DIVIDE-Anweisung . 131
8.2 Die COMPUTE-Anweisung ......... . 140
8.3 Die SIZE ERROR-Klausel .......... . 143
8.4 Interne Daten-Darstellung (USAGE-Klausel) 145
9 Tabellenverarbeitung 150
9.1 Einstufige Tabellen (OCCURS-Klausel) ........... . 151
9.2 Vorbesetzung von Tabellenelementen (REDEFINES-Klausel) 158
9.3 Index-Methode und variable Anzahl von Tabellenelementen
(SET-Anweisung und OCCURS DEPENDING ON-Klausel) . . . . . 164
9.4 Durchsuchen einer einstufigen Tabelle . . . . . . . . . . . . . 173
9.5 Lineares Tabellen-Durchsuchen mit der SEARCH-Anweisung 177
9.6 Logarithmisches Durchsuchen einer Tabelle (SEARCH ALL) 183
9.7 Mehrstufige Tabellen . 189
10 Qualifizierung 206
10.1 Qualifizierung von Datenfeldnamen . . . . . . . . . . . . . . . . . . 206
10.2 CORRESPONDING-Klausel bei MOVE, ADD und SUBTRACT . 209
10.3 Qualifizierung von Paragraphennamen 212
11 Erweiterte Steueranweisungen 215
11.1 Komplexes PERFORM 215
11.2 Mehrfachverzweigung . 231
12 Datei-Verarbeitung 241
12.1 Kenngrofien von Dateien ..... . 242
12.2 Sequentielle Datei-Organisation . . 249
12.3 Relative Datei-Organisation . . . . 256
12.4 Index-sequentielle Datei-Organisation . 261
13 Erganzende Programmiertechniken 273
13.1 Zeichenverarbeitung mit der INSPECT-Anweisung . 273
x
Inhalt
13.2 Unterprogrammtechnik (CALL) . 281
13.3 Sortieren von Datensitzen . . .. 288
13.4 Testen von Programmen . . . . • • 291
13.5 Weitere COBOL-Sprachelemente 294
Anhang 305
A.l Der Datentriger Lochkarte ...... . 305
A.2 Reservierte COBOL-Worter ..... . 306
A.3 Bausteine des COBOL-Sprachumfangs 308
AA Intern-Kodes und Sortierfolge-Ordnung 309
A.5 Ablageformate fiir numerische Datenfelder 311
A.6 Geritebezeichnungen . . . . . . . . . . . 313
A.7 Strukturblocke eines Struktogramms. 313
Losungsteil 314
Index 346