DCP_REDABAS4__Progra.. - Das ist die Eingangsseite, an der ...
DCP_REDABAS4__Progra.. - Das ist die Eingangsseite, an der ...
DCP_REDABAS4__Progra.. - Das ist die Eingangsseite, an der ...
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
Reihe von Funktionen und Befehlen in REDABAS-4, <strong>die</strong> sich in <strong>der</strong><br />
Wirkungsweise von REDABAS unterscheiden und auf <strong>die</strong> RETRANS nur<br />
teilweise durch Kommentare hinweisen k<strong>an</strong>n. Einige <strong>die</strong>ser Unterschiede<br />
werden im folgenden gen<strong>an</strong>nt. Beachten Sie bitte bei <strong>der</strong><br />
Abarbeitung <strong>der</strong> nachfolgenden Beispiele, dass <strong>die</strong> mit 11:11<br />
gekennzeichneten Befehlszeilen im interaktiven Modus, nichtgekennzeichnete<br />
Befehlszeilen im <strong>Progra</strong>mmodus einzugeben sind.<br />
Einstellen des Satzzeigers<br />
REDABAS setzt <strong>die</strong> Satznummer auf 0, wenn <strong>die</strong> Suche mit FIND<br />
erfolglos <strong>ist</strong>, REDABAS-4 dagegen stellt <strong>die</strong> Satznummer auf<br />
<strong>die</strong> maximale Satz<strong>an</strong>zahl +1 und setzt <strong>die</strong> EOF()-Funktion auf<br />
"wahr" Die Satznummer 0 wird von REDABAS-4 nicht benutzt,<br />
dafuer gibt es <strong>die</strong> neue Datei<strong>an</strong>f<strong>an</strong>g-Funktion BOF().<br />
REDABAS<br />
USE kunden<br />
INDEX ON kunr TO ikunr<br />
00013 SAETZE INDIZIERT<br />
FIND 777<br />
SCHLUESSEL ODER ZEICHENKETTE<br />
NICHT VORHANDEN!<br />
? #<br />
o<br />
REDABAS-4'<br />
USE kunden<br />
INDEX ON kunr TO ikunr<br />
100% indiziert 13 Saetze<br />
indiziert<br />
: FIND 777<br />
Nicht gefunden.<br />
? RECNO()<br />
14<br />
? EOF ( )<br />
.T.<br />
: GO TOP<br />
? BOF ( )<br />
.F.<br />
: SKIP-l<br />
Satz-Nr. 1<br />
BOF( )<br />
• T.<br />
Zugriff auf einen Datensatz in einer zweiten Datei.<br />
Bei REDABAS k<strong>an</strong>n zwar das automatische Wie<strong>der</strong>auffinden eines<br />
Datensatzes aus einer zweiten Datei in Abhaengigkeit eines<br />
aus einer ersten Datei gelesenen Satzes ueber SET LINKAGE ON<br />
erfolgen, aber <strong>die</strong> Verbindung <strong>ist</strong> nur ueber <strong>die</strong> Satznummer<br />
moeglich, deshalb wird dafuer me<strong>ist</strong> <strong>der</strong> Befehl FIND genutzt<br />
und <strong>der</strong> Suchbegriff ueber eine Speichervariable vermittelt.<br />
In REDABAS-4 erlaubt <strong>der</strong> SEEK-Befehl direkt <strong>die</strong> Angabe eines<br />
Ausdruckes, <strong>der</strong> den Suchbegriff enthaelt. Noch einfacher <strong>ist</strong><br />
es jedoch mit REDABAS-4 ueber SET RELATION TO INTO<br />
das automatische Wie<strong>der</strong>auffinden des Datensatzes aus<br />
<strong>der</strong> zweiten Datei <strong>an</strong>h<strong>an</strong>d des gewuenschten Ordnungsbegriffes<br />
zu ver<strong>an</strong>lassen.<br />
REDABAS<br />
SET TALK OFF<br />
SELECT SECONDARY<br />
USE kunden INDEX ikunr<br />
SELECT PRIMARY<br />
USE auftrag<br />
DO WHILE .NOT. EOF<br />
REDABAS-4<br />
SET TALK OFF<br />
SELECT 2<br />
USE kunden ALIAS ku INDEX ikunr<br />
SELECT 1<br />
USE auftrag<br />
DO WHILE .NOT. EOF()<br />
- 162 -