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