STACK
|
|||
RELEASE
|
SETS [set-name]
|
||
VARIABLES
|
Dieses Dokument behandelt folgende Themen:
Eine Erläuterung der in dem Syntax-Diagramm verwendeten Symbole entnehmen Sie dem Abschnitt Syntax-Symbole.
Verwandte Statements: STACK | FIND mit RETAIN-Option | DEFINE DATA GLOBAL
Das Statement RELEASE
dient dazu
den kompletten Inhalt des Natural-Stacks zu löschen,
Sätze von ISNs freizugeben, die über ein FIND
-Statement mit
RETAIN
-Klausel
zurückgehalten wurden (gilt nur für Adabas-Datenbanken),
globale und anwendungsunabhängige Variablen auf ihre Ausgangswerte zurückzusetzen.
Operanden-Definitionstabelle:
Operand | Mögliche Struktur | Mögliche Formate | Referenzierung erlaubt | Dynam. Definition | |||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
set-name | C | S | A | nein | nein |
RELEASE STACK | Mit RELEASE STACK löschen Sie alle
gerade im Natural-Stack gelagerten Kommandos und Daten.
|
---|---|
RELEASE SETS |
Wenn Sie nur |
RELEASE SETS set-name | Mit RELEASE SET
set-name geben Sie eine bestimmte ISN frei,
zum Beispiel:
RELEASE SET 'CITY-SET' MOVE 'CITY-SET' TO #SET(A32) RELEASE SET #SET |
RELEASE VARIABLES |
Mit |
** Example 'RELEX1': FIND (with RETAIN clause and RELEASE statement) ************************************************************************ DEFINE DATA LOCAL 1 EMPLOY-VIEW VIEW OF EMPLOYEES 2 CITY 2 BIRTH 2 NAME * 1 #BIRTH (D) END-DEFINE * MOVE EDITED '19400101' TO #BIRTH (EM=YYYYMMDD) * FIND NUMBER EMPLOY-VIEW WITH BIRTH GT #BIRTH RETAIN AS 'AGESET1' IF *NUMBER = 0 STOP END-IF * FIND EMPLOY-VIEW WITH 'AGESET1' AND CITY = 'NEW YORK' DISPLAY NOTITLE NAME CITY BIRTH (EM=YYYY-MM-DD) END-FIND * RELEASE SET 'AGESET1' * END
Ausgabe des Programms RELEX1
:
NAME CITY DATE OF BIRTH -------------------- -------------------- ---------- RUBIN NEW YORK 1945-10-27 WALLACE NEW YORK 1945-08-04