|
|
STACK |
|
|
RELEASE |
SETS [set-name ]
|
||
VARIABLES |
このドキュメントでは、次のトピックについて説明します。
構文図で使用されている記号については、「構文記号」を参照してください。
関連ステートメント：STACK | FIND with RETAIN option | DEFINE DATA GLOBAL
RELEASE ステートメントは次の目的に使用します。
Natural スタックのすべてのエントリを解放します。
RETAIN 節を含む FIND ステートメントによって保存された ISN の集合を解放します（Adabas データベースにのみ有効）。
グローバル変数とアプリケーション独立変数をリセットします。
オペランド定義テーブル：
| オペランド | 構文要素 | フォーマット | ステートメント参照 | ダイナミック定義 | |||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| set-name | C | S | A | 不可 | 不可 | ||||||||||||||
| RELEASE STACK | 現在 Natural スタック内にあるすべてのデータ／コマンドを解放します。 |
|---|---|
| RELEASE SETS |
Adabas データベースにのみ適用できます。 set-nameを指定せずに |
| RELEASE SETS set-name | 特定の単一 ISN 集合を解放します。 RELEASE SET 'CITY-SET' MOVE 'CITY-SET' TO #SET(A32) RELEASE SET #SET |
| 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 NAME CITY DATE
OF
BIRTH
-------------------- -------------------- ----------
RUBIN NEW YORK 1945-10-27
WALLACE NEW YORK 1945-08-04