バージョン 6.3.3
 —  ステートメント  —

STOP

STOP

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


機能

STOP ステートメントは、プログラムの実行を終了させ、コマンド入力プロンプトに戻すために使用します。

1 つ以上の STOP ステートメントを Natural プログラム内の任意の位置に挿入できます。

STOP ステートメントでは、プログラムの実行を即座に終了させます。 サブルーチン内の STOP ステートメントの位置に関係なく、メインプログラムで指定されたページ終了条件は、STOP ステートメントの実行中に最後のページ終了処理のために呼び出されます。

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

Top of page

** Example 'STPEX1': STOP                                               
************************************************************************
DEFINE DATA LOCAL                                                       
1 #CODE (A1)                                                            
END-DEFINE                                                              
*                                                                       
INPUT //                                                                
  10X 'PLEASE SELECT COMMAND' //                                        
  10X 'LIST VIEW      (V)' /                                            
  10X 'LIST PROGRAM * (P)' /                                            
  10X 'TECH INFO      (T)' /                                            
  10X 'STOP           (.)' //                                           
  20X 'CODE:' #CODE                                                     
*                                                                       
*                                                                       
DECIDE ON FIRST #CODE                                                   
  VALUE 'V'                                                             
    STACK TOP DATA    'VIEW'                                            
    STACK TOP COMMAND 'LIST'                                            
  VALUE 'P'                           
    STACK TOP COMMAND 'LIST PROGRAM *'
  VALUE 'T'                           
    STACK TOP COMMAND 'LAST *'        
    STACK TOP COMMAND 'TECH'          
    STACK TOP COMMAND 'SYSPROD'       
  VALUE '.'                           
    STOP                         
  NONE                                
    REINPUT 'PLEASE ENTER VALID CODE' 
END-DECIDE                            
*                                     
*                                     
END                                  

プログラム STPEX1 の出力:

PLEASE SELECT COMMAND
                     
LIST VIEW      (V)   
LIST PROGRAM * (P)   
TECH INFO      (T)   
STOP           (.)   
                     
          CODE:     

Top of page