バージョン 6.3.3	検索   索引   目次   |   PDF BOOKS   |   ホーム   上へ   戻る   次へ

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

• 機能

• 構文説明

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

• 例

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

機能

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

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

構文説明

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

構文要素の説明：

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

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

Natural は、そのプログラムにoperand2 とプロファイルパラメータ PRGPAR の値を渡します（これらが指定されている場合）。 プログラムはこれらのパラメータを通常の方法で引数として受け取ります。

int main(int argc, char *argv[])
{
  /* Number of arguments passed. */
  printf("Number of arguments: %d\n", argc);
  /* Program name. */
  if ( argc > 0 )
    printf("Program: %s\n", argv[0]);
  /* Value of operand2 of the TERMINATE statement. */
  if ( argc > 1 )
    printf("Operand 2: %s\n", argv[1]);
  /* Value of the profile parameter PRGPAR. */
  if ( argc > 2 )
    printf("PRGPAR: %s\n", argv[2]);
  return 0;
}

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 1992-2008. All rights reserved.

検索   索引   目次   |   PDF BOOKS   |   ホーム   上へ   戻る   次へ