Version 4.2.6
 —  Statements  —

RELEASE

 

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


Funktion

Das Statement RELEASE dient dazu

Seitenanfang

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:

RELEASE STACK Mit RELEASE STACK löschen Sie alle gerade im Natural-Stack gelagerten Kommandos und Daten.
RELEASE SETS

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

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.

Seitenanfang

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

Seitenanfang