RELEASE

 

STACK

RELEASE SETS [set-name]
  VARIABLES

このドキュメントでは、次のトピックについて説明します。

構文図で使用されている記号については、「構文記号」を参照してください。

関連ステートメント：STACK | FIND（RETAIN オプションあり） | DEFINE DATA GLOBAL

関数

RELEASE ステートメントは次の目的に使用します。

  • Natural スタックのすべてのエントリを解放します。

  • RETAIN 節を含む FIND ステートメントによって保存された ISN の集合を解放します（Adabas データベースにのみ有効）。

  • グローバル変数とアプリケーション独立変数をリセットします。

構文説明

オペランド定義テーブル：

オペランド 構文要素 フォーマット オペランド参照 ダイナミック定義
set-name C S       A                       × ×

構文要素の説明：

構文要素 説明
RELEASE STACK
RELEASE STACK オプション：

現在 Natural スタック内にあるすべてのデータ／コマンドを解放します。
RELEASE SETS
RELEASE SETS オプション：

Adabas データベースにのみ適用できます。

set-nameを指定せずに RELEASE SETS のみを指定すると、RETAIN 節を含む FIND ステートメントで保存されたすべての ISN 集合が解放されます。

RELEASE SETS set-name

特定の単一 ISN 集合を解放します。

RELEASE SET 'CITY-SET'
  
MOVE 'CITY-SET' TO #SET(A32) 
RELEASE SET #SET
RELEASE VARIABLES
RELEASE VARIABLES オプション：

現在のグローバルデータエリアに定義されているすべての変数をそれぞれの初期値にリセットします。また、アプリケーション独立変数（AIV）はすべて削除されるので、使用できなくなります。

例

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

プログラム RELEX1 の出力：

NAME                 CITY            DATE   
                                              OF    
                                            BIRTH   
-------------------- -------------------- ----------
                                                    
RUBIN                NEW YORK             1945-10-27
WALLACE              NEW YORK             1945-08-04