KFK2666.pdf

Syntax
Erläuterung
9-55
STORE POOL(ref)optionroption2]2,
.. 0
option1: :=FROM(variable) I
FROM(pointer)LENGTH(length)
option2: :=SET(adr) 'TO(offset)[NEXT(adr)]
offset, length: : =bin-fixed-31-expr.
adr: : =bin-fixed-31-variable
STORE
-325-
Dieser Befehl dient dem Schreiben von Benutzerdaten aus der Variablen
'variable' (oder aus dem durch 'pointer' und 'length' beschriebenen
Speicherbereich) der FROM-Klausel in einen Datapool, d.h. einen Pool,
der mit OPEN POOL .•. DATA eröffnet wurde. Der Pool muß die Attribute
OUTPUT oder UPDATE haben.
Beim Zugriff ist ein Datenpool für den Benutzer gekennzeichnet durch
seine Länge in Bytes, seinen Füllstand und bei sequentiellem Zggriff
durch einen Zeiger, der das nächste Byte bezeichnet. Dieser Zeiger
zeigt nach einem OPEN auf das erste Byte, bei einem OPEN MOD auf
das erste freie Byte. STORE bietet die Möglichkeit, sequentiell zu
arbeiten oder direkt auf einzelne Bytes oder Bytegruppen zuzugreifen.
Bei einem sequentiellen Zugriff (STORE ..• FROM) wird der Ein-Ausgabe­
Zeiger jeweils um die Recordlänge weitergesetzt.
Beim direkten Zugriff werden die Bytes des Pools durch ihren Offset
vom Poolbeginn adressiert. Zur Kennzeichnung des direkten Zugriffs
wird eine zusätzliche Befehlsklausel verwendet, in der die Adresse
angegeben wird (STORE ••• TO(adr)). Der Ein-Ausgabe-Zeiger wird nicht
verändert.
In der SET-Klausel wird eine Variable spezifiziert, in der der Off­
set des gerade bearbeiteten Records zurückgeliefert wird. Sie ist
vor allem für sequentielles Arbeiten gedacht, um danch evtl. direkt
zugreifen zu können. Mit der NEXT-Klausel wird der Offset des auf
den bearbeiteten Record folgenden Bytes geliefert.