Sie werden nun ein kurzes Programm schreiben, mit dem bestimmte Daten aus einer Datenbankdatei gelesen und angezeigt werden.
Wenn Sie mit den Übungen in diesem Dokument fertig sind, wird Ihre Beispielanwendung aus einem einzigen Modul bestehen (die Datenfelder, die vom Programm benutzt werden, sind direkt in diesem Programm definiert).
Dieses Dokument enthält die folgenden Übungen:
Sie werden jetzt ein neues Programm erstellen, das im weiteren Verlauf dieses Tutorials benutzt wird. Es wird erstellt, indem Sie Ihr "Hello World"-Programm unter einem neuen Namen speichern.
Programm unter einem neuen Namen speichern
Geben Sie eines der folgenden Kommandos in der Kommandozeile des Programmeditors ein:
SAVE PGM01
SA PGM01
Das aktuelle Programm wird mit dem neuen Namen
PGM01 gespeichert. Das Programm mit dem Namen HELLO
wird aber immer noch im Programmeditor angezeigt.
Geben Sie das folgende Kommando in der Kommandozeile des Programmeditors ein, um das neu erstellte Programm in den Programmeditor einzulesen:
READ PGM01
Der im Programmeditor angezeigte Programmname ändert sich in
PGM01.
Löschen Sie den gesamten Code im Programmeditor. Geben Sie hierzu das folgende Zeilenkommando am Anfang jeder zu löschenden Zeile ein und drücken Sie EINGABE:
.D
Beispiel:
> > + Program PGM01 Lib TUTORIAL All ....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. 0010 .DThe "Hello world!" example in Natural. 0020 .D 0030 .DSPLAY "Hello world!" 0040 .DD /* End of program 0050 |
Oder:
Geben Sie das folgende Zeilenkommando am Anfang der ersten
Zeile ein und drücken Sie EINGABE:
.D(4)
wobei die Zahl in Klammern für die Anzahl der zu löschenden Zeilen steht.
Die Datenbankdatei und die Felder, die in Ihrem Programm benutzt
werden sollen, müssen am Anfang des Programms zwischen DEFINE DATA
und END-DEFINE angegeben werden.
Damit Natural auf den Inhalt einer Datenbankdatei zugreifen kann, wird eine logische Definition der physischen Datenbankdatei benötigt. Eine solche logische Dateidefinition wird "Data Definition Module" (DDM) genannt. Das DDM enthält Informationen über die einzelnen Felder der Datei. DDMs werden in der Regel vom Natural-Administrator definiert.
Damit die Datenbankfelder in einem Natural-Programm benutzt werden
können, müssen Sie die Felder des DDMs in einem View angeben. In diesem Tutorial wird das DDM für die Datenbankdatei
EMPLOYEES benutzt.
DEFINE DATA-Block angeben
Geben Sie den folgenden Code im Programmeditor ein:
DEFINE DATA LOCAL END-DEFINE * END
LOCAL bedeutet, dass die Variablen, die Sie im
nächsten Schritt definieren werden, lokale Variablen sind, die nur in diesem
Programm zur Verfügung stehen.
Die Datenfelder des DDMs in einem geteilten Bildschirm (Split
Screen) anzeigen
Geben Sie Folgendes in der Kommandozeile des Programmeditors ein:
SPLIT VIEW EMPLOYEES SHORT
SHORT bedeutet, dass die Datenfelder in der
Kurzform aufgelistet werden sollen (das heißt: es werden nur die
Adabas-Kurznamen und die entsprechenden Natural-Felder angezeigt).
Der Bildschirm ist jetzt in zwei Teile unterteilt. Die Datenfelder des DDMs werden im unteren Teil des Bildschirms angezeigt. Die Daten im unteren Teil des Bildschirms können nicht editiert werden.
> > + Program PGM01 Lib TUTORIAL
All ....+....1....+....2....+....3....+....4....+....5....+....6....+....7..
0010 DEFINE DATA
0020 LOCAL
0040 END-DEFINE
0050 *
0060 END
0070
0080
0090
0100
0110
....+....1....+....2....+....3....+....4....+....5....+... S 5 L 1
Split Top View EMPLOYEES DBID 0 FNR 1 Def seq
1 AA PERSONNEL-ID A 8 D CNNNNNNN
G 1 AB FULL-NAME NAME INFORMATION
2 AC FIRST-NAME A 20 N FIRST/CHRISTIAN NA
2 AD MIDDLE-I A 1 N MIDDLE INITIAL
2 AE NAME A 20 D SURNAME/FAMILY NAM
1 AD MIDDLE-NAME A 20 N SECOND/MIDDLE NAME
1 AF MAR-STAT A 1 F M=MARRIED
1 AG SEX A 1 F
1 AH BIRTH D 6 N D BIRTH-DATE (YYYY-M |
Mit den folgenden Kommandos können Sie den View durchblättern, um zu überprüfen, welche Felder benutzt werden und wie sie definiert sind:
| Kommando | Beschreibung |
|---|---|
SPLIT +
oder S +
|
Im View vorwärts blättern. |
SPLIT -
oder S -
|
Im View rückwärts blättern. |
SPLIT .
oder S .
|
Den Split-Screen-Modus beenden. |
Im nächsten Schritt wird davon ausgegangen, dass der Split-Screen-Modus beendet wurde.
Stellen Sie den Cursor an die erste Position der Zeile, in der
LOCAL steht und geben Sie Folgendes ein:
.I
Im Vollbildmodus werden 9 Leerzeilen eingefügt. Im Split-Screen-Modus wären nur 4 Leerzeilen eingefügt worden.
Geben Sie unter LOCAL den folgenden Code ein:
1 EMPLOYEES-VIEW VIEW OF EMPLOYEES
2 FULL-NAME
3 NAME (A20)
2 DEPT (A6)
2 LEAVE-DATA
3 LEAVE-DUE (N2)
Drücken Sie EINGABE.
Die übrigen Leerzeilen werden entfernt.
Anmerkung:
Die übrigen Leerzeilen werden nicht entfernt, wenn die
Standardeinstellung im Editorprofil geändert wurde, das heißt: wenn die Option
Empty Line Suppression auf "N"
gesetzt wurde.
Die erste Zeile enthält den Namen des Views und den Namen der Datenbankdatei, aus der die Felder genommen werden. Dies wird immer auf der ersten Ebene (Level 1) definiert. Der Level wird am Anfang der Zeile definiert. Die Namen der Datenbankfelder aus dem DDM sind auf den Levels 2 und 3 definiert.
Levels werden im Zusammenhang mit Feldgruppierungen benutzt. Felder mit einem Level von 2 oder höher werden als Teil der direkt davor stehenden Gruppe angesehen, die auf einem niedrigeren Level steht. Die Definition einer Gruppe ermöglicht das Referenzieren von mehreren Feldern (dies kann auch nur ein einziges Feld sein), indem man den Gruppennamen benutzt. Dies ist eine komfortable und effiziente Methode zum Referenzieren von mehreren aufeinander folgenden Feldern.
Format und Länge jedes Feldes sind in Klammern angegeben. "A" steht für alphanumerisch und "N" steht für numerisch.
Jetzt, nachdem Sie alle erforderlichen Daten definiert haben, werden
Sie eine READ-Schleife in Ihr Programm einfügen. Hiermit werden
die Daten mit Hilfe des definierten Views aus der Datenbankdatei gelesen. Mit
jeder Schleife wird ein Mitarbeiter aus der Datenbankdatei gelesen. Name,
Abteilung (Department) und die restlichen Urlaubstage (Leave Due) für diesen
Mitarbeiter werden angezeigt. Die Daten werden so lange gelesen, bis alle
Mitarbeiter angezeigt wurden.
Anmerkung:
Es kann passieren, dass eine Fehlermeldung erscheint, die besagt,
dass die letzte Transaktion aus der Datenbank zurückgezogen wurde (transaction
backed out). Dies passiert in der Regel dann, wenn das Adabas-Zeitlimit für
Nichtaktivität überschritten wurde. Wenn ein solcher Fehler auftritt, sollten
Sie Ihre letzte Aktion einfach wiederholen (geben Sie zum Beispiel das Kommando
RUN noch einmal ein).
Daten aus einer Datenbank lesen
Geben Sie folgendes unter END-DEFINE ein
(benutzen Sie zum Einfügen von Leerzeilen das Kommando .I wie oben
beschrieben):
READ EMPLOYEES-VIEW BY NAME * DISPLAY NAME 3X DEPT 3X LEAVE-DUE * END-READ
BY NAME bedeutet, dass die aus der Datenbank
gelesenen Daten alphabetisch nach den Namen sortiert werden sollen.
Mit dem DISPLAY-Statement wird die Ausgabe im
Spaltenformat angeordnet. Für jedes angegebene Feld wird eine Spalte erzeugt
und jede Spalte enthält eine Überschrift. 3X bedeutet, dass 3
Leerzeichen zwischen den Spalten eingefügt werden sollen.
Führen Sie das Programm mit RUN
aus.
Die folgende Ausgabe wird angezeigt.
MORE
Page 1 05-05-18 16:06:49
NAME DEPARTMENT LEAVE
CODE DUE
-------------------- ---------- -----
ABELLAN PROD04 20
ACHIESON COMP02 25
ADAM VENT59 19
ADKINSON TECH10 38
ADKINSON TECH10 18
ADKINSON TECH05 17
ADKINSON MGMT10 28
ADKINSON TECH10 26
ADKINSON SALE30 36
ADKINSON SALE20 37
ADKINSON SALE20 30
AECKERLE SALE47 31
AFANASSIEV MGMT30 26
AFANASSIEV TECH10 35
AHL MARK09 30
AKROYD COMP03 20
ALEMAN FINA03 20
Das DISPLAY-Statement sorgt dafür, dass die
Spaltenüberschriften (die aus dem DDM genommen werden) unterstrichen sind und
dass sich zwischen der Unterstreichung und den Daten eine Leerzeile befindet.
Jede Spalte hat die Breite, die im DEFINE DATA-Block definiert
wurde (das heißt: die Breite, die im View definiert ist).
Der Titel oben auf jeder Seite (mit Seitennummer, Datum und
Uhrzeit) wird ebenfalls vom DISPLAY-Statement erzeugt.
Drücken Sie wiederholt EINGABE, um alle Seiten nacheinander anzuzeigen.
Sie kehren zum Programmeditor zurück, nachdem alle Mitarbeiter angezeigt wurden.
Tipp:
Wenn Sie zum Programmeditor zurückkehren möchten, bevor alle
Mitarbeiter angezeigt wurden, geben Sie EDIT oder
dessen Abkürzung E in der MORE-Zeile
ein. Sie können auch das Terminalkommando %. in der
MORE-Zeile eingeben; dies bricht die aktuelle Natural-Verarbeitung
ab. Standardmäßig beginnt jedes Terminalkommando mit einem Prozentzeichen (%)
als Steuerzeichen. Es ist jedoch möglich, dass Ihr Administrator ein anderes
Steuerzeichen definiert hat.
Da die Ausgabe im Moment sehr lang ist, werden Sie sie nun eingrenzen. Es sollen nur noch die Daten für den Namenbereich angezeigt werden, der mit "Adkinson" beginnt und mit "Bennett" endet. Diese Namen sind in der Demodatenbank definiert.
Ausgabe auf einen Namensbereich eingrenzen
Bevor Sie neue Variablen benutzen können, müssen Sie sie
definieren. Geben Sie deshalb Folgendes unter LOCAL ein:
1 #NAME-START (A20) INIT <"ADKINSON"> 1 #NAME-END (A20) INIT <"BENNETT">
Dies sind Benutzervariablen; sie sind nicht in der Demodatenbank definiert. Das Rautenzeichen (#) am Anfang des Namens wird dazu benutzt, die Benutzervariablen von den Feldern in der Demodatenbank zu unterscheiden; es ist jedoch nicht zwingend notwendig, dieses Zeichen zu verwenden.
INIT definiert den Vorgabewert für ein Feld. Der
Vorgabewert muss in spitzen Klammern und Anführungszeichen angegeben
werden.
Geben Sie Folgendes unter dem READ-Statement
ein:
STARTING FROM #NAME-START ENDING AT #NAME-END
Ihr Programm sollte nun folgendermaßen aussehen:
DEFINE DATA
LOCAL
1 #NAME-START (A20) INIT <"ADKINSON">
1 #NAME-END (A20) INIT <"BENNETT">
1 EMPLOYEES-VIEW VIEW OF EMPLOYEES
2 FULL-NAME
3 NAME (A20)
2 DEPT (A6)
2 LEAVE-DATA
3 LEAVE-DUE (N2)
END-DEFINE
*
READ EMPLOYEES-VIEW BY NAME
STARTING FROM #NAME-START
ENDING AT #NAME-END
*
DISPLAY NAME 3X DEPT 3X LEAVE-DUE
*
END-READ
*
END
Ihr Programmcode ist jetzt länger als eine Bildschirmseite. Um im Programm zu navigieren, können Sie die folgenden Kommandos oder Tasten benutzen:
| Kommando | Beschreibung |
|---|---|
BOT |
Geht an das Ende des Programms. |
TOP |
Geht an den Anfang des Programms. |
| Taste | Beschreibung |
| PF8 oder EINGABE | Blättert eine Seite im Programm nach unten. |
| PF7 | Blättert eine Seite im Programm nach oben. |
Führen Sie das Programm mit RUN
aus.
Die Ausgabe wird angezeigt. Wenn Sie wiederholt EINGABE drücken, werden Sie bemerken, dass Sie nach wenigen Seiten zum Programmeditor zurückkehren (d.h. nachdem die Daten für den letzten Mitarbeiter mit dem Namen Bennett angezeigt wurden).
Speichern Sie das Programm mit
STOW.
Sie können nun mit den nächsten Übungen fortfahren: Benutzereingaben.