STACK [TOP]
|
|
COMMANDoperand1 [operand2 [(parameter)]] 
|
|
[DATA] [FORMATTED] {operand2 [(parameter)]}
|
このドキュメントでは、次のトピックについて説明します。
構文図で使用されている記号については、「構文記号」を参照してください。
STACK ステートメントは、Natural スタックに次のいずれかを挿入するために使用します。
実行する Natural プログラムまたは Natural システムコマンドの名前
INPUT ステートメントの実行中に使用されるデータ
スタックの詳細については、「プログラミングのその他のポイント」の「スタック」（『プログラミングガイド』）を参照してください。
オペランド定義テーブル：
| オペランド | 構文要素 | フォーマット | ステートメント参照 | ダイナミック定義 | ||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| operand1 | C | S | A | G | N | A | 可 | 可 | ||||||||||||
| operand2 | C | S | A | G | N | A | U | N | P | I | F | B | D | T | L | G | 可 | 可 | ||
構文要素の説明：
| TOP |
例：次のステートメントでは、変数 STACK TOP #FIELDA |
|---|---|
| DATA |
データ内の区切り文字または INPUT 割り当て文字はデリミタとして処理されます。 スタックのデータが 例：次のステートメントでは、変数 MOVE 'ABC' TO #FIELD1 MOVE 'XYZ' TO #FIELD2 STACK #FIELD1 #FIELD2 これらの変数は、デリミタモードで Natural プログラム内の次の INPUT #FIELD1 #FIELD2 注意: |
| FORMATTED |
例： 次のステートメントでは、 MOVE 'ABC,DEF' TO #FIELD1 MOVE 'XYZ' TO #FIELD2 STACK TOP DATA FORMATTED #FIELD1 #FIELD2 ... INPUT #FIELD1 #FIELD2 INPUT 区切り文字をコンマ（プロファイル／セッションパラメータ MOVE 'ABC,DEF' TO #FIELD1 STACK TOP DATA #FIELD1 ... INPUT #FIELD1 #FIELD2 注意: |
| COMMAND operand1 |
コマンド（またはプログラム名）をスタックに挿入するには、コマンド（operand1）をキーワード 例：次のステートメントでは、コマンド STACK TOP COMMAND 'RUN' |
| COMMAND operand1 operand2 ... |
コマンド（operand1）とともにデータ（operand2）をスタックに挿入することもできます。 これらのデータは、コマンド実行後の次の コマンドとともにスタックに挿入されたデータは常にフォーマットされません。 注意: |
| parameter |
operand2 が日付変数の場合、この変数に対するパラメータとして、セッションパラメータ |
** Example 'STKEX1': STACK
************************************************************************
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:P 16:46:28 ***** NATURAL LIST COMMAND ***** 2005-01-19
User HTR - LIST Objects in a Library - Library SYSEXSYN
Cmd Name Type S/C SM Version User ID Date Time
--- *________ P__________ *__ * *______ *________ *__________ *________
__ ACREX1 Program S/C S 4.1.03 RKE 2004-11-11 16:32:37
__ ACREX2 Program S/C S 4.1.03 RKE 2005-01-05 10:29:51
__ ADDEX1 Program S/C S 4.1.03 RKE 2004-11-11 16:36:49
__ AEDEX1R Program S/C R 4.1.03 RKE 2004-11-11 16:40:34
__ AEDEX1S Program S/C S 4.1.03 RKE 2004-11-11 16:39:57
__ AEPEX1R Program S/C R 4.1.03 RKE 2004-11-11 16:41:57
__ AEPEX1S Program S/C S 4.1.03 RKE 2004-11-11 16:42:31
__ AEPEX2 Program S/C S 4.1.03 RKE 2004-11-11 16:43:37
__ ASDEX1R Program S/C R 4.1.03 RKE 2004-11-11 17:00:21
__ ASDEX1S Program S/C S 4.1.03 RKE 2004-11-11 17:00:50
__ ASGEX1R Program S/C R 4.1.03 RKE 2004-11-11 17:02:01
__ ASGEX1S Program S/C S 4.1.03 RKE 2004-11-11 17:02:08
__ ATBEX1R Program S/C R 4.1.03 RKE 2004-11-11 17:03:18
__ ATBEX1S Program S/C S 4.1.03 RKE 2004-11-11 17:03:05
14 Objects found
Top of List.
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Print Exit Sort -- - + ++ > Canc