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

この形式の INPUT ステートメントは、INPUT 画面のレイアウトの作成、またはシーケンシャル入力ファイルからバッチモードで（メインフレームコンピュータで）読み取る INPUT データレイアウトの作成に使用されます。

INPUT

[WINDOW='window-name'] [NO ERASE]

[(statement-parameters)]

[WITH-TEXT-option]

[MARK-option]

[ALARM-option]

nX nT x/y /

'text' 'c' (n)

[(attributes)]

'-' '='

*IN *OUT *OUTIN

{operand1 [(parameter)]}

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

• INPUT 構文 1 - 説明

• 例 - 構文 1

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

INPUT 構文 1 - 説明

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

構文要素の説明：

DEFINE DATA LOCAL
1 VARI (A4)     INIT <'1234'>                  /*    Displays 
END-DEFINE                                     /*       as
FORMAT AD=M                                    /*    ---------
INPUT           'Text'           VARI          /*    Text 1234
INPUT (PM=I)    'Text'           VARI          /*    Text 4321
INPUT           'Text' (PM=I)    VARI (PM=I)   /*    txeT 4321
INPUT           'Text' (PM=I)    VARI          /*    txeT 1234
END

ステートメントのパラメータ

* 配列のオカレンス数が PS 値を超えた場合は、NAT0303 エラーが出力されます。

各セッションパラメータの詳細については、『パラメータリファレンス』を参照してください。

WITH TEXT オプション

[WITH] TEXT

* operand1 operand2

[(attributes)][,operand3] 7

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

*operand1 のフォーマット B は、4 以下の長さでのみ使用できます。

WITH TEXT は、メッセージ行に表示されるテキストを提供するために使用します。 これは通常、画面処理やエラー修正のために実行する必要がある操作を示すメッセージです。

構文要素の説明：

出力属性

attributes は、テキスト表示に使用される出力属性を示します。 可能な属性：

		AD=AD-value BX=BX-value CD=CD-value PM=PM-value
		AD-value CD-value

指定可能なセッションパラメータ値については、『パラメータリファレンス』ドキュメントの該当するセクションを参照してください。

• 「AD - 属性定義」の「フィールド表現」

• CD - カラー定義

• BX - 外枠の定義

• PM - 出力モード

注意:
コンパイラは、実際には 1 つの出力フィールドに複数の属性値を受け入れます。 例えば、「AD=BDI」と指定できます。 ただし、この場合は最後の値のみが適用されます。 示した例では、値 I のみが有効になり、出力フィールドは強調表示されます。

MARK オプション

MARK POSITION を使用して、フィールド内の特定の位置にカーソルを配置できます。

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

構文要素の説明：

MARK 3
MARK #A
MARK *#
MARK POSITION 3 IN #A

ALARM オプション

このオプションは、INPUT ステートメントの実行時にアクティブ化される端末の音声アラーム機能を提供します。 この機能を使用するには、対応するハードウェアが使用可能である必要があります。

デフォルトのプロンプトテキスト

セッションパラメータ IP（入力プロンプト）が IP=OFF に設定されていない限り、INPUT ステートメントで使用されるフィールドのフィールド名が、フィールド値の前に（フォームモード）、またはフィールドを選択するためのプロンプトキーワードとして（キーワード／デリミタモード）表示されます。 このデフォルトのフィールド名は、'text' 要素（デフォルト名を置換）または '-'（デフォルトフィールド名の表示を抑制）をフィールド名の直前に指定することで上書きできます。

フィールドの位置、文字列、属性の指定

				'text'  [(attributes)]
	nX			'c'(n) [(attributes)]			*IN		{operand1 [(parameter(s))]}
	nT			'-'			*OUT
	x /y			'='			*OUTIN
				/

 フィールドの位置、属性の割り当て、およびテキストの作成には複数の表記を使用できます。

INPUT #A (AD=A) #B (AD=O) #C (AD=M)

属性

次の属性を使用できます。

1. 表示属性：『パラメータリファレンス』でセッションパラメータ AD を参照してください。

2. 色属性：『パラメータリファレンス』でセッションパラメータ CD を参照してください。

3. アウトライン属性：『パラメータリファレンス』でセッションパラメータ BX を参照してください。

4. 出力モード属性：『パラメータリファレンス』でセッションパラメータ PM を参照してください。

例 - 構文 1

• 例 1 - INPUT ステートメント

• 例 2 - DEFINE WINDOW ステートメントのある INPUT ステートメント

• 例 3 - MARK POSITION オプションのある INPUT ステートメント

例 1 - INPUT ステートメント

** Example 'IPTEX1': INPUT                                              
************************************************************************
DEFINE DATA LOCAL                                                       
1 #FNC  (A1)                                                            
END-DEFINE                                                              
*                                                                       
INPUT 10X 'SELECTION MENU FOR EMPLOYEES SYSTEM' /                       
      10X '-' (35) //                                                   
      10X 'ADD      (A)' /                                              
      10X 'UPDATE   (U)' /                                              
      10X 'DELETE   (D)' /                                              
      10X 'STOP     (.)' //                                             
      10X 'PLEASE ENTER FUNCTION: ' #FNC                              
*                                                                       
DECIDE ON EVERY VALUE OF #FNC                                           
  VALUE 'A'   /* invoke the object containing the add function here     
    WRITE 'Add function selected.'                                      
  VALUE 'U'   /* invoke the object containing the update function here  
    WRITE 'Update function selected.'                                   
  VALUE 'D'   /* invoke the object containing the delete function here
    WRITE 'Delete function selected.'                                 
  VALUE '.'                                                           
    STOP                                                              
  NONE                                                                
    REINPUT 'Please enter a valid function.' MARK *#FNC               
END-DECIDE                                                            
*                                                                     
END                                                                  

プログラム IPTEX1 の出力：

SELECTION MENU FOR EMPLOYEES SYSTEM
-----------------------------------
                                   
ADD      (A)                       
UPDATE   (U)                       
DELETE   (D)                       
STOP     (.)                       
                                   
PLEASE ENTER FUNCTION:            

例 2 - DEFINE WINDOW ステートメントのある INPUT ステートメント

** Example 'INPEX1': INPUT (with DEFINE WINDOW statement)               
************************************************************************
DEFINE DATA LOCAL                                                       
1 #STRING (A15)                                                         
END-DEFINE                                                              
*                                                                       
DEFINE WINDOW WIND1                                                     
  SIZE 10 * 40                                                          
  BASE 5 / 10                                                           
  FRAMED ON POSITION TEXT                                               
*                                                                       
INPUT WINDOW='WIND1'                                                    
      'PLEASE ENTER HERE:' / #STRING                             
*                                                                       
END                                                                    

プログラム INPEX1 の出力：

+----------------------------------Top+
! PLEASE ENTER HERE:                  !
! #STRING                             !
!                                     !
!                                     !
!                                     !
!                                     !
!                                     !
!                                     !
+-------------------------------Bottom+

例 3 - MARK POSITION オプションのある INPUT ステートメント

** Example 'INPEX2': INPUT (with POSITION)                              
************************************************************************
DEFINE DATA LOCAL                                                       
1 #START (A30)                                                          
END-DEFINE                                                              
*                                                                       
ASSIGN #START = 'EXAM_'                                                 
*                                                                       
INPUT (AD=M) MARK POSITION 5 IN *#START                                 
     / 'PLEASE COMPLETE START VALUE FOR SEARCH'                         
     / 5X #START                                                    
END                                                                    

プログラム INPEX2 の出力：

PLEASE COMPLETE START VALUE FOR SEARCH
       #START EXAM[]

www.softwareag.com

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

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