バージョン 4.2.5	検索   索引   目次   |   PDF ブック   |   ホーム   上へ   戻る   次へ

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

• 機能

• 構文説明

• Natural 終了後に制御を受け取るプログラム

• 例

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

機能

TERMINATE ステートメントは、Natural セッションを終了するために使用します。 TERMINATE ステートメントは、Natural プログラム内の任意の位置に指定できます。 TERMINATE ステートメントが実行されると、ページ終了処理やループ終了処理は行われません。

TERMINATE ステートメントの動作は、STOP ステートメントの動作と一致しています。 戻り値の処理はサポートされていません。

Natural RPC については、『Natural リモートプロシージャコール（RPC）』ドキュメントの「サーバーに対する Natural ステートメントの注意事項」を参照してください。

構文説明

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

構文要素の説明：

Natural 終了後に制御を受け取るプログラム

Natural セッションの終了後、プロファイルパラメータ PROGRAM で指定された名前のプログラムに制御が渡ります。

例

** Example 'TEREX1': TERMINATE                                          
************************************************************************
DEFINE DATA LOCAL                                                       
1 EMPLOY-VIEW VIEW OF EMPLOYEES                                         
  2 PERSONNEL-ID                                                        
  2 NAME                                                                
  2 SALARY (1)                                                          
*                                                                       
1 #PNUM     (A8)                                                        
1 #PASSWORD (A8)                                                        
END-DEFINE                                                              
*                                                                       
INPUT 'ENTER PASSWORD:' #PASSWORD                                       
*                                                                       
IF #PASSWORD NE 'USERPASS'                                              
  /*                                                                    
  TERMINATE                                                          
  /*                                                                    
END-IF                                                                  
*                                          
INPUT 'ENTER PERSONNEL NUMBER:' #PNUM      
*                                          
FIND EMPLOY-VIEW WITH PERSONNEL-ID = #PNUM 
  DISPLAY NAME SALARY (1)                  
END-FIND                                   
*                                          
END 

www.softwareag.com

Copyright © Software AG 1979-2009. All rights reserved.

検索   索引   目次   |   PDF ブック   |   ホーム   上へ   戻る   次へ