STOP
|
このドキュメントでは、次のトピックについて説明します。
STOP ステートメントは、プログラムの実行を終了させ、コマンド入力プロンプトに戻すために使用します。
1 つ以上の STOP ステートメントを Natural プログラム内の任意の位置に挿入できます。
STOP ステートメントでは、プログラムの実行を即座に終了させます。 サブルーチン内の STOP ステートメントの位置に関係なく、メインプログラムで指定されたページ終了条件は、STOP ステートメントの実行中に最後のページ終了処理のために呼び出されます。
Natural RPC については、『Natural リモートプロシージャコール（RPC）』ドキュメントの「サーバーに対する Natural ステートメントの注意事項」を参照してください。
** 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
PLEASE SELECT COMMAND
LIST VIEW (V)
LIST PROGRAM * (P)
TECH INFO (T)
STOP (.)
CODE: