RELEASE

#### Search Results

Search

# RELEASE

|  | `STACK` |
`RELEASE` | `SETS` [set-name]
| `VARIABLES`

Dieses Dokument behandelt folgende Themen:

- Funktion

- Syntax-Beschreibung

- Beispiel

Eine Erläuterung der in dem Syntax-Diagramm verwendeten Symbole entnehmen Sie dem Abschnitt Syntax-Symbole.

Verwandte Statements: `STACK` | `FIND` with `RETAIN` option | `DEFINE DATA GLOBAL`

## Funktion

Das Statement `RELEASE` dient dazu

- den kompletten Inhalt des Natural-Stack 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.

## Syntax-Beschreibung

Operanden-Definitionstabelle:

Operand | Mögliche Struktur | Mögliche Formate | Referenzierung erlaubt | Dynam. Definition
--- | --- | --- | --- | ---
set-name | C | S |  |  |  | A |  |  |  |  |  |  |  |  |  |  |  | nein | nein

#### Syntax-Element-Beschreibung:

Syntax-Element | Beschreibung
--- | ---
`RELEASE STACK` | RELEASE STACK-Option: Mit `RELEASE STACK` löschen Sie alle zurzeit im Natural-Stack abgelegten Kommandos und Daten.
`RELEASE SETS` | RELEASE SETS-Option: `RELEASE SETS` gilt nur für Adabas-Datenbanken. Wenn Sie nur `RELEASE SETS` ohne Angabe eines `set-name` angeben, werden alle ISNs freigegeben, die mit einem `FIND`-Statement, das eine `RETAIN`-Klausel enthält, gehalten wurden.
`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` | RELEASE VARIABLES-Option: Mit `RELEASE VARIABLES` werden alle in der aktuellen Global Data Area definierten Variablen auf ihre Ausgangswerte zurückgesetzt. Gleichzeitig werden alle anwendungsunabhängigen Variablen (AIVs) gelöscht, d.h. sie stehen dann nicht mehr zur Verfügung.

## Beispiel

    ** 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

### On this page

- Funktion
- Syntax-Beschreibung
- Beispiel