Datenbank-Programmierung 1. COBOL

Prof. Dr. rer.nat.habil. Bernhard Thalheim 

Information Systems Engineering 

Institute of Computer Science 

Christian-Albrechts-University Kiel 

Olshausenstr. 40 

D - 24098 Kiel 

 

Vorlesung Datenbank-Programmierung 1. COBOL SS 2013 

WInf-DBProg: Datenbank-Programmierung (080014) 

1 COBOL COmmon Business Oriented Language 

etwa 50 % der mainframe-Anwendungen 

heute noch 25 - 30 % aller Software-Produkte erstellt 

etwa 55 - 60 % aller Altsysteme 

1959: 1. Version; 1960: CODASYL-Standard; COnference on DAta SYstems Languages 

Cobol 68, Cobol 74, Cobol 85 

Gliederung dieser Vorlesung 

1. allgemeine Struktur 

2. Verarbeitung 

3. sequentielle Files 

4. indexsequentielle Files 

Literatur: 

J. Wendt, COBOL: Einführung in PC-Spracherweiterungen und Übungen. Wiesbaden, Gabler, 1991 

H.-J. Höcker, Einführung in die strukturierte COBOL-Programmierung mit Mikrocomputeranwendungen. Berlin, De Gryuter, 

1989. 

H.-R. Göpfrich, Wirtschaftsinformatik II: Strukturierte Programmierung in COBOL. 4. Auflage, Stuttgart, Gustav Fischer, 

1991. 

K. Jamin, H. Urban, Programmiersprache COBOL, eine strukturierte Einführung. Rowohlt, 1989. 

Strukturierte Programmierung auch mit COBOL möglich 

• Abstraktion, Strukturierung, Modularisierung, Trennung von Essenz und Inkarnation (Unabhängigkeit), 

konstruktive Voraussicht (Änderbarkeit, Wartbarkeit) 

• Black box versus white box versus glas box 

• Strukturierte Entwicklung, schrittweise Verfeinerung, Spezifikation durch Nassi-Shneiderman-Struktogramme

CAU Kiel, IfI, ISE β SS 2013 Datenbank-Programmierung 1. COBOL 2 

Gliederung von Programmen 

• Erkennungsteil (Identification Division) 

i.a. Name = Programmnamen 

• Maschinenteil (Environment Division) 

Programmumgebung, Umdefinitionen 

• Datenteil (Data Division) 

File-Section, Arbeitsvariable, Verbindungsteil (für 

Unterprogramme) 

• Prozedurteil (Procedure Division) 

Definition sequentiell, Abarbeitung sequentiell, in 

Sections etc. gliederbar 

Gliederung der einzelnen Teile 

• Division besteht aus Sections 

• Section besteht aus Paragraphen 

• Paragraph besteht aus mehreren Sätzen 

• Satz besteht aus mehreren Anweisungen 

• Anweisung besteht aus mehreren Wörtern 

IDENTIFICATION DIVISION. 

************************* 

program-id. HAUPT. 

author. Alfons Zitterbacke. 

DATA DIVISION. 

************************* 

File Section 

*------------------------ 

Working-Storage Section 

*------------------------ 

01 datum-aus. 

05 tag pic 99. 

05 filler pic x value ".". 

05 monat pic 99. 

05 filler pic xxx value ".19" 

05 jahr pic 99. 

01 datum-ein. 

05 jahr pic 99. 

05 monat pic 99. 

05 tag pic 99. 

PROCEDURE DIVISION. 

************************ 

haupt. 

accept datum-ein from date. 

move corr datum-ein to datum-aus 

display "Heute ist der " datum-a 

stop run. 

ENIVIRONMENT DIVISION. 

************************* 

Configuration Section 

*------------------------ 

source-computer. vax. 

object-computer. vax. 

special-names. decimal point is comma. 

Input-Output Section 

*------------------------ 

File-Control. ....


Programme 

• Quellcode 

• Objekt-Datei 

Übersetzung mit COBOL-Compiler 

COBOL name.cob 

fehlerhafter Quellcode in 

• Binärcode 

Erzeugung mit Linker 

LINK name.obj 

Ablaub mit üblicher Umgebung 

RUN name.exe 

name.cob 

name.obj 

name.lis 

name.exe 

COBOL-Worte 

• alphanumerischer Zeichensatz 

+ - * / = $ , ; : . ( ) < > ¨ 

i.a. weniger als 30 Zeichen 

beginnend mit Buchstaben ohne Leerzeichen 

• reservierte Schlüsselwörter 

ADD 100 TO ergebnis ON SIZE ERROR display ¨Overflow ¨. 

• Literale als Zeichenketten, die Wert selbst definieren 

numerische Literale (+34.45 bzw. +34,45), 

alphanumerische Literale ( ¨Guten Tag ¨), 

figurative Konstanten (Zero, Zeroes, Zeros (Wert Null); 

Space, Spaces (Wert: Blank); 

All (Wiederholung eines Literals); 

Quote (Anführungszeichen) )


Datenvereinbahrung 

Stufennummer Feldname | FILLER PICTURE IS Maske 

[ Zusatzklausel ] ... 

Stufennummern als (exklusive) Baumstruktur 

FILLER als Fülsel zur Ausgabe 

Datenname OF Datengruppen-Name 

PIC bzw. PICTURE als alphanumerische oder numerische Daten: 

pic xx. pic x(20). pic 9. pic 9(5). 

ACCEPT name [ FROM OS-Grundtyp ] 

MOVE [ CORRESPONDING ] name1 TO name2 

DISPLAY name 

mit Zeilenumbruch 


********************* 

Anfang. 

display "Ihr Vorname ?" 

accept Vorname. 

display "Ihr Nachname ?" 

accept Nachname. 

display Vorname. 

display Nachname. 

move Nachname to Einbuchstabe. 

Klaus 

display Einbuchstabe. 

Z 

move 1234 to Zahl5. 01234 

display Zahl5. 

move Zahl5 to Zahl3. 234 

display Zahl3. 234 

stop run. 

Zitterbacke 

Klaus_________ 

Zitterbacke___ 

Vorzeichen mit S Dezimalpunkt mit V 

pic 9V9999. 12345 wird zu 1.2345 

pic S9V9(4). 12345 wird zu +1.2345


Sendemasken und Empfangsmasken 

Punkt mit . 

Symbole + und - für Vorzeichen 

Unterdrückung führender Nullen mit Z 

01 Sender pic 9(5). 01 Empfang pic 9(3).999. 

01 Sender1 pic S9V9(4). 01 Empfang1 pic +9.9(4). 

Sendemaske Sendeinhalt Empfangsmaske Empfangsinhalt 

9(5) 12345 9.999 5.000 

9(5) 12345 9(3).999 345.000 

9(2)V9(3) 12.345 9(3).9(2) 012.34 

9(5) 00012 ZZZZ9 12 

9(3)V99 012.34 Z(3).99 12.34 

99V9(3) 01.234 Z.9(3) 1.234 

S9V9(4) 1.2345 +9.9(4) +1.2345 

S9V9(4) 1.2345 9.9(4)- 1.2345 

S9(3)V9(3) -12.345 Z(2)9(3).9(3)- 012.345- 

Zusätze in PICTURE-Klauseln: 

01 Anrede pic x(10) value "Herr/Frau". 

01 Filler pic x(9) value all "=". 

01 Zahl1 pic 99 value zeroes. 

01 Leer pic x(79) value spaces. 

01 Feld1 pic S9(4) sign is leading. 

01 Feld2 pic x(20) just. 

01 Zahl2 pic 9(3) blank when zero. 

02 Anschrift pic x(59). 

02 Adresse1 redefines Anschrift. 

03 Ort pic x(35). 

03 Land pic x(24). 

VALUE: mit Wertezuweisung 

SIGN IS LEADING: Vorzeichen wird dazugezählt 

SIGN IS TRAILING: Vorzeichen dazugezählt, am Ende 

JUSTIFIED: rechtsbündig 

BLANK (WHEN) ZERO: führende Nullen als Leerzeichen 

REDEFINES: weitere Strukturdefinitionen hinzufügbar


Arithmetische Anweisungen 

ADD Name1 | Literal1 ... TO Name2 [ Rounded ] ... 

[ GIVING Name3 [ ROUNDED ] ] 

[ ON SIZE ERROR unbedAnweisung ] 

add 1 to Feld2 Feld2 := Feld2 + 1 

add 1,2 to Feld1 giving Erg1, Erg2 Erg1,Erg2 := Feld1 +1+ 

SUBTRACT ... FROM ... [ GIVING ... ] [ ON ... ] 

MULTIPLY ... BY ... [ GIVING ... ] [ ON ... ] 

DIVIDE ... INTO | BY ... [ GIVING ... ] [ ON ... ] 

divide 2 into Erg1 Erg1 := Erg1 / 2 

divide X1 by X2 giving X3 X3 := X1/X2 

remainder X4 on size error "undef" X4 := rest (X1/X2) 

COMPUTE Name [ ROUNDED ] ... = arithmAusdr [ ON ... ] 

Steueranweisungen 

STOP RUN 

IF Beding THEN Anweis1 ... | NEXT SENTENCE λ 

ELSE Anweis2 ... | NEXT SENTENCE 

Bedingungen: Vergleichsbedingungen (Name, Literal, arithm. Ausdr.) 

Vorzeichenbedingung 

if a+b *2 is [not] positive negative zero 

Klassenbedingungen 

if a is [not] numeric alphabetic 

zus.-ges. komplexe Beding. 

GO TO label(section, paragraph) 

GO TO ... DEPENDING ON auswahlwert 

PERFORM label1 [THROUGH label2] [ x TIMES] 

wie GO TO mit Rückkehr, evt. nur bis label2 

PERFORM ... UNTIL beding 

dürfen sich nicht überlappen 

X. perform A thru E. stop run. 

A. ... B. perform C thru G. ????? 

Y. ... perform K thru P. 

K. ... T. perform M thru S. ok.



**************************** 

program-id. MENU2. 

author. Zitterbacke. 

ENVIRONMENT DIVISION. 

**************************** 

Configation Section 

*--------------------------- 




**************************** 


*--------------------------- 

01 ein-name pic x(30). 

01 sterne pic x(80) value all "*" 

01 bestaet pic x. 

01 anzeigezeile-1. 

02 filler pic x(30) value spaces. 

02 name pic x(19). 

02 filler pic x(19) value spaces. 

... 

01 datum-ein. 

02 jahr pic x(2). 

02 monat pic x(2). 

02 tag pic x(2). 

01 datum-aus. 

02 tag pic x(2). 

02 filler pic x value".". 

02 monat pic x(2). 

02 filler pic x(3) value ".19". 

02 jahr pic x(2). 

01 flag pic x. 

01 text3 pic x(70) value 

"Modul z.Z. nicht verfuegbar" 

... 


**************************** 

BS Section 

*--------------------------- 

Namenseingabe. 

display spaces. 

display "Name?:". 

display spaces. 

accept ein-name. 

move ein-name to name. 

*--Aufnahme Systemdaten-- 

accept datum-ein from date. 

move corr datum-ein to datum-aus. 

.... 

Ausgabe. 

*--Ausgabe Begruessung-- 

display sterne. display spaces. 

display anzeigezeile-1. 

diaplay "Datum -->" datum-aus. 

...... 

display "Mit bestaetigen". 

accept bestaet. 

Haupt Section 

*--------------------------- 

Steuerung. 

move 0 to flag. 

perform Eingabe until flag=1. 

Ende. 

display "Programmende". 

stop run. 

Module Section 

*--------------------------- 

Eingabe. 

*--Aufbau Auswahlbildschirm-- 

display spaces. display spaces. 

display"*** Hauptmenue ***". 

display "1 Kundenstamm". 

display "2 Kundenauftrag". 

display "3 Programmende". 

display "Ihre Auswahl ?:". 

accept auswahl. 

*--Abfangen Falscheingaben-- 

if auswahl not numeric 

then display "Fehler" 

if auswahl numeric and auswahl>3 

then display "Fehler" 

*--Menu-Punkt-Auswahl-- 

if auswahl=1 then perform Blind. 

if auswahl=2 then perfom Blind. 

if asuwahl=3 then move 1 to flag. 

Blind. 

display .... 

display "Mit bestaetigen". 

accept bestaet.


Erweiterung um CALL 

Verlinken mit LINK ProgListe 

CALL UProg USING Parameter 

Parameterübergabe als Liste 

ohne Typenkontrolle 

Hauptprogramm 


**************************** 

program-id. HAUPT. 


**************************** 

Configuation Section 

*--------------------------- 




**************************** 


*--------------------------- 

01 alpha pic x(5). 

01 beta pic x(5). 


**************************** 

Steuerung. 

move "11111" to alpha. 

move "22222" to beta. 

call "UNTER" 

using alpha, beta. 

display "Testende". 

Ende. 

stop run. 

Unterprogramm 

Aufruf mit der üblichen Stack-Architektur 

Steuerung wie bei PERFORM 

EXIT PROGRAM als letzte 

Anweisung 


**************************** 

program-id. UNTER. 


**************************** 

Configuation Section 

*--------------------------- 




**************************** 


*--------------------------- 

01 text pic x(13) 

value "Unterprogramm". 

Linkage Section 

*--------------------------- 

01 gamma pic x(5). 

01 delta pic x(5). 

PROCEDURE DIVISION using delta, gam 

**************************** 

Anzeige. 

display text. display gamma. 

display delta. 

Zurueck. 

exit program.


Dateien 

• mit Strukturdefinition 

nach Data Division Definition 

wesentlich ist jedoch nur die Länge und Datengrundtyp 

• READ immer mit vollständigen Datensatz 

• analog WRITE nur auf Gruppe 01 

Organisationsformen 

• sequentielle Dateien 

Abarbeitung in der Reihenfolge der Sätze 

Anhängen von neuen Sätzen 

• Random-Dateien 

direkte Ablage an physischer Adresse 

Sätze über Schlüssel angesprochen 

• relative Dateien 

Schlüssel - automatisch vergebene Positionsnummer 

Nummern in automatisch generierter Zeigertabelle 

• indexsequentielle Dateien 

Zugriff über Schlüsselwerte 

Benutzung eines (oder mehrere) Index 

Charakterisierung von Dateien 

• Datenträger (Platte ... Diskette) 

• Dateiorganisation 

• Zugriffsarten (ACCESS MODE: sequentiell, random, dynamic)


Sequentielle Dateien 

SELECT datei-variable ASSIGN TO datei-name 

[ ORGANIZATION IS SEQUENTIAL ] 


******************************** 

... 

Input-Output Section. 

*------------------------------- 

File-Control. 

select Kunden assign to "sys$disk: KUNDEN" 

organization is sequential. 

select Auftrag assign to "sys$disk:AUFTRAG" 

organization is sequential. 


******************************** 

File Section. 

*------------------------------- 

FD Kunden label record standard. 

01 Kunden-Satz. 

02 Kundennummer pic x(4). 

02 Name. 

03 Nachname pic x(30). 

03 Vorname pic x(20). 

02 Adresse. 

03 Strasse pic x(30). 

.... 

FD Auftrag label record standard. 

01 Auftrag-Satz. 

... 

FD - File Description 

LABEL RECORD STANDARD - historisch


Verarbeitung sequentieller Dateien 

• OPEN, CLOSE Datei-Variable 

• INPUT bzw. OUTPUT als read-only bzw. write-only 

Umkehroperation führt zu Programmabsturz 

existierende Datei (read) bzw. nicht-existierende (write) 

OPEN OUTPUT auf existierende Datei führt zum Löschen dieser 

OPEN INPUT auf nicht-existierende Datei: erfolglose Anweisung 

• I-O analog mit read und rewrite 

• OPEN EXTEND Öffnen einer existierenden Datei 

write als neuen letzten Satz 

read führt zu Programmabsturz 

bei OPEN nicht gelöscht, sondern erweitert 

• READ datei-variable RECORD [ INTO datei-struktur-variable ] 

[ AT END unbedingteAnweis ] 

datei-variable ist zeigt auf INPUT bzw. I-O Datei 

INTO nicht nur in den Puffer sondern Zuweisung 

AT END (of file) können Fehleranweisungen ausgeführt werden 


***************************** 

Anfang. .... move "n" to flag. .... 

open input Kunden. 

accept FamName. 

perform Lesen until flag = "j". 

close Kunden. stop run. 

Lesen. 

read Kunden record at end display "Dateiende" 

move "j" to flag. 

if flag not = "j" and FamName = Nachname then 

display Kundennummer " " Name. 

display "Korrekte Person ? (j/n)". 

accept flag. 

bzw. Lesen mit Datei-Struktur-Variable 

01 Kunde. ... 

read Kunden record into Kunde at end display ...


• WRITE datei-variable [ FROM datei-struktur-variable ] 

OUTPUT-Datei: neu erzeugt; Extend-Datei: angefügt falls Datei existierte 

dati-variable aus dem FD-Puffer beschrieben 

write Kunden from Kunde. 

• REWRITE datei-variable [ FROM datei-struktur-variable ] 

Zurückschreiben eines existierenden Datensatzes 

im I-O-Modus 

nach vorherigem READ 

FD Kunden label record standard. 


02 Kundennummer pic x(4). 


.... 


**************************** 

Anfang. 

open I-O Kunden. ... 

Aendern. 

read Kunden record 

at end display "Fehlt" 


rewrite Kunden-Satz. 

move 1 to flag.


• Drucklistenerstellung 

Listenkopf mit Kopfzeilen, Listenrumpf mit Seiten (Kopf-, Rumpf-, Fußzeilen), Listenfuß 

mit Fußzeilen 

FD Liste label record standard 

linage is 56 lines 

with footing at 51 

lines at top 5 

limes at bottom 5. 

01 Ausgabe-Satz pic x(80). 

* Seitenlaenge 

* Gesamtlaenge 66 Zeilen 

Working-Storage Section. 

*----------------------------- 

01 Titelzeile. 

02 filler pic x(60) value "Gehalt". 

02 datum pic 99.99.99. 

01 Kopfzeile. ... 

01 Fusszeile. ... 

01 Rumpfzeile. 

02 Name pic x(27). 

02 filler pic x(3). 

03 Gehalt pic 9(5). 

01 Endezeile. ... 

WRITE datei-variable [ FROM datei-struktur-variable ] 

[ BEFORE | AFTER ADVANCING 

{ PAGE | { variable | zahl } [LINES] } ] 

• Sortieren in sequentiellen Dateien 

SORT Sort-Datei-Name ON 

{ ASCENDING | DESCENDING } KEY Schluessel 

USING Input-Datei-Name GIVING Output-Datei-Name


Indexsequentielle Dateien 

auf Grundlage automatisch generierter Index-Datei 

Zugriffsarten 

• sequentieller Zugriff 

Verarbeitung in der Reihenfolge der Index-Datei (ACCESS SEQUENTIAL) 

• wahlfreier Zugriff 

Verarbeitung in beliebiger Reihenfolge (ACCESS RANDOM) 

• dynamischer Zugriff 

Verarbeitung sequentiell und wahlfei (ACCESS DYNAMIC) 

SELECT datei-variable ASSIGN TO datei-name 

[ ORGANIZATION IS INDEXED ] 

[ RECORD KEY IS Feldname ] 

[ ACCESS MODE IS 

SEQUENTIAL | RANDOM | DYNAMIC ] 

ENVIRONMENT DIVISION 

***************************** 

.... 

Input-Output-Section. 

*---------------------------- 

File-Control. 

select Kunden assign to 

"sys$disk:KUNDEN" 

organisation is sequential. 

select Auftrag1 assign to 

"sys$disk: AUFTRAG1" 

organization is indexed 

record key is Auftragnr 

access mode is dynamic. 

.... 


***************************** 

....


FD Auftrag1 label record standard. 

01 Auftrag1-Satz. 

02 Kundennr pic x(4). 

02 Auftragnr pic x(4). 

02 Artikelnr pic x(4). 

02 Menge pic x(4). 

02 Preis pic x(4). 

Anweisungen zur Verarbeitung: 

• OPEN-Anweisung 

OPEN INPUT | OUTPUT | EXTEND | I-O Datei-Name 

• OPEN OUTPUT öffnet Ausgabedatei, evt. mit Neuanlegen, 

bei Existenz Löschung 

bei WRITE auch Bearbeitung der Index-Datei 

• OPEN INPUT öffnet Eingabedatei 

• OPEN EXTEND öffnet Eingabedatei im ACCESS SEQUENTIAL Modus 

• OPEN I-O öffnet existierende Datei zum Schreiben und Lesen 

open input Kunden. 

open output Auftrag. 

open I-O Bearbeiter. 

open extend Personal. 

• CLOSE-Anweisung zum Schließen 

CLOSE 

Datei-Name 

close Kunden, Auftrag, Personal. 

• READ-Anweisung liest Satz in den Puffer, der durch FD-Anweisung definiert wurde 

• sequentielle Datei mit ACCESS SEQUENTIAL


READ Datei-Name RECORD [ INTO Daten-Name ] 

[ AT END unbedingteAnweisung ] 

File-Control. 

select Kunden1 assign to "sys$disk: KUNDEN1" 

organization is indexed 

record key is Kundennr access mode is sequential. 

FD Kunden1 label record standard. 

01 Kunden1-Satz. 



Working-Storage Section. 

01 flag pic x. 


***************************** 

Anfang. 

move spaces to flag. 

open input Kunden1. 

perform Lesen until flag="n". 

close Kunden1 . stop run. 

Lesen. 

read Kunden1 record 

at end display "Dateiende" move "n" to flag. 

if flag not = "n" then 

display "Kd.Nr.: " Kundennr 

display "Name: " Nachname. 

Lesen in der Reihenfolge der Indexdatei! 

• sequentielle Datei mit ACCESS DYNAMIC 

READ Datei-Name NEXT RECORD [ INTO Daten-Name ] 

[ AT END unbedingteAnweis ] 

mit NEXT: sequentieller Zugriff 

• wahlfreies READ bei ACCESS RANDOM mit aktuellem Inhalt des Schlüsselfeldes 


[ INVALID KEY unbedingteAnweis ] 

Index-Datei wird durchmustert; bei matching wird Datensatz, auf den Indexeintrag 

zeigt, in FD Puffer eingelesen 

bei INTO-Lesen wird außerdem noch in die Variable eingelesen


File-Control. 

select Kunde1 ... access is random. 


***************************** 

Eingabe. 

display "Geben Sie eine ". display "Kundennummer ein:". 

accept Kundennr. 

Anfang. 

open input Kunden1. move 0 to flag. 

perform Lesen. 

close Kunden1. 

if flag = 0 then display "Positiv" else display "Negativ" 

display "Programmende". stop run. 

Lesen. 

read Kunden1 record invalid key move 1 to flag. 

• wahlfreies READ mit Sekundärschlüsseln 

müssen nicht identifizieren 

SELECT Datei-Name ASSIGN TO Speicher-Literal 

[ ORGANIZATION IS INDEXED ] 

[ RECORD KEY IS TeilFeld1 [ OF Feld1 ]] 

[ ALTERNATE RECORD KEY IS TeilFeld2 [ OF Feld2] 

[ WITH DUPLICATES ]] ... 

[ ACCESS MODE IS SEQUENTIAK | RANDOM | DYNAMIC ] 


[ KEY IS Name2 ] 

[ INVALID KEY unbedingte Anweis ] 

• WRITE-Anweisung für Ausgabe eines Satzes in indexsequentielle Datei (OUTPUToder 

I-O-Datei) bzw. in sequentielle Datei (EXTEND-Datei) 

WRITE Datensatz [ FROM Variable ] 


Einsortierung in Index nach Primärschlüssel, in Datei meist durch Anhängen (Schlüsselwert 

existent!) 

• START-Anweisung zur Behandlung von nicht-eindeutigen Sekundärschlüssel-Einträgen


START Datei-Name [ KEY IS = Daten-Name ] 


select Kunden1 assign to "sys$disk:KUNDEN1" 

organization is indexed record key is Kundennr 

alternate record key is Nachname with duplicates 



01 Kunden1-Satz. ... 

... 

accept suchinput. 

Anfang. 

open input Kunden1. 

start Kunden1 key is = Nachname 

invalid key move "j" to antwort ... 

perform Lesen until antwort="j". 

close Kunden1. stop run. 

Lesen. 

read Kunden1 next record 

at end ... move "j" to antwort. 

if Nachname = suchinput then 

display Nachname " " Vorname 

display "Richtiger Kunde (j/n)?" 

accept antwort 

else move "j" to antwort.


ENVIRONMENT DIVISION 

***************************** 

... 

Input-Output Section. 

*---------------------------- 

File-Control. 

select Kunden 

assign to 

"sys$disk:Kunden" 

organization 

is sequential. 

select Kunden1 

assign to 

"sys$disk:KUNDEN1" 

organization 

is indexed 

record key is 

Kundennr of Kunden1 

alternate record key 

Nachname of Kunden1 

with duplicates 

access mode dynamic. 

select Auftrag 

assign to 

"sys$disk:AUFTRAG" 

organization 

is sequential. 

select Auftrag1 

assign to 

"sys$disk:AUFTRAG1" 

organization 

is indexed 

record key is 

Auftragnr of Auftrag1 

alternate record key 

Kundennr of Auftrag1 

with duplicates 

access mode dynamic. 


***************************** 

File Section. 

*---------------------------- 

FD Kunden label 

record standard. 



02 Nachname pic x(30). ... 

FD Kunden1 label 

record standard. 

01 Kunden1-Satz. .... 

FD Auftrag label 

record standard. .... 

FD Auftrag1 label 

record standard. .... 


***************************** 

Steuerung. 

open input Kunden, Auftrag. 

open output Kunden1, Auftrag1 

.... 

read Kunden record 

at end move 1 to flag. 

read Auftrag record 

at end move 1 to flag. 

write Kunden1-Satz 

from Kunden-Satz 

invalid key 

display "Fehler". 

write Auftrag1-Satz 

from Auftrag-Satz 

invalid key 

display "Fehler".


• REWRITE-Anweisung zum Ersetzen eines Satzes einer im I-O-Modus geöffneten 

indexsequentiellen Datei nach vorangegangem READ 

ersetzt werden können nur die Werte außerhalb des Primärschlüssels 

bei ACCESS SEQUENTIAL: zuletzt gelesener Satz 

bei ACCESS RANDOM/DYNAMIC: Satz mit Schlüsselwert ersetzt 

REWRITE SatZName [ FROM Variable ] 

[INVALID KEY unbedingteAnweis] 

nur auf Stufe 01 

File-Control. 

select Kunden1 assign ... organization is indexed 

record key is Kundennr 

alternate record key Nachname with duplicates 



01 Kunden1-Satz. 



... 

Anfang. 

open I-O Kunden1. 

perform Lesen. perform Aendern until ... . 

close Kunden1. stop run. 

Aendern. 

display "Neuer Nachname:". 


rewrite Kunden1-Satz invalid key ... 

Lesen. 

display "Kundennummer:". 

accept Kundennr. 

read Kunden1 record invalid key ... . 

• DELETE-Anweisung 

DELETE Datei-Name RECORD [ INVALID KEY unbedingteAnweis ]

Datenbank-Programmierung 1. COBOL

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

Template löschen?

Als Template speichern?