DCP_REDABAS4__Progra.. - Das ist die Eingangsseite, an der ...

Innerhalb der Programmschleife werden die Befehle
bis mit
ausgefuehrt,
ENDDO
das Ende der DO WHILE-Schleife markiert ist. Danach wird zum DO
WHILE-Befehl zurueckgesprungen und die erneut ausgewertet.
Ist die nicht mehr erfuellt, wird die Schleife
verlassen und das Programm mit dem auf ENDDO folgenden Befehl
fortgesetzt.
Im vorliegenden Beispiel lautet der Beginn der Programmschleife
DO
WHILE .NOT. EOF()
Das heisst, die Schleife soll solange ausgefuehrt werden, bis
das Ende der Datei (hier das der Datei "aufposi') erreicht wird.
Ist dies erreicht, wird mit den Befehlen
TOTAL ...
SELECT 3 usw.
fortgefahren.
Die weiteren Befehle zur Erstellung der Rechnung werden hier
nicht na eher erlaeutert, da sie schon aus dem Abschnitt 3.11.2.
bekannt sind. (Die weiteren Dateien wurden in den Arbeitsbereichen
3 und 4 eroeffnet.)
Bemerkenswert ist noch, dass es wegen der besseren Uebersichtlichkeit
und Lesbarkeit eines Programms zweckmaessig ist, die
Befehle, die zur DO WHILE-Schleife gehoeren, etwas einzuruecken.
Anstelle der im Abschnitt 3.11.2. beschriebenen und im interaktiven
Modus einzugebenden Befehlsfolgen rufen Sie jetzt mit
DO
rechnung
das programm zur Erstellung der Kundenrechnung auf.
Sie haben wieder die Moeglichkeit, in Ihrem Programm mit SET
SAFETY OFF die Warnungen bzw. mit SET TALK OFF alle Systemnachrichten
auszublenden.
Die Anwendung einer Programmschleife soll noch an einem zweiten
Beispiel veranschaulicht werden. Ausgangspunkt dafuer ist die
Erstellung des Kundenbeleges, wie Sie ihn im vorigen Abschnitt
kennenlernten. Wollen Sie eine Anzahl von Kundenbelegen
drucken, muessen Sie jedesmal das in Bild 86 dargestellte
Ilprog211 mit "00 prog2 11 aufrufen. Und bei jedem Aufruf muessen
zwei Dateien eroeffnet, d. h. von der Diskette in den Arbeitsspeicher
gelesen werden.
Auch hier bietet sich der Einbau einer Programmschleife an, die
je nach der Zahl der gewuenschten Kundenbelege abgearbeitet
wird.
Fuer die Erstellung des Programms namens "progkunl" moechten
wir uns das Eintippen der dem Programm "prog211 sehr aehnlichen
Befehlsfolge ersparen. Rufen Sie "progkunl" mit
- 129 -