INPUT 構文 1 - ダイナミック画面レイアウトの指定

この形式の 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'>                  /*     Output 
END-DEFINE                                     /*    Produced
*                                              /*    ---------
INPUT           'Text'           VARI          /*    Text 1234
INPUT (AD=U)    'Text'           VARI          /*    Text 1234
INPUT           'Text' (AD=U)    VARI (AD=U)   /*    Text 1234
INPUT           'Text' (AD=U)    VARI          /*    Text 1234
END

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

^* PM セッションパラメータは、テキスト定数には指定できません。

^** PS セッションパラメータ設定は、配列のオカレンス数が PS 値を超える場合は考慮されません。

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

WITH TEXT オプション

[WITH] TEXT

* operand1 operand2

[(attributes)][,operand3] 7

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

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

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

構文要素の説明：

出力属性

attributes は、テキスト表示に使用される出力属性を示します。属性は次のいずれかです。

	AD=ad-value CD=cd-value PM=pm-value
	ad-value cd-value

上記の意味は次に示すとおりです。

ad-value、、cd-value および pm-value は、『パラメータリファレンス』ドキュメントの関連セクションで記載されている、対応するセッションパラメータ AD、、CD および PM の可能な値を示します。

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

英数字／Unicode 定数（Natural データフォーマット A または U ）の場合は、ad-value または cd-value あるいはその両方を、それぞれの前に先行する CD= または AD= なしで、指定することができます。入力した単一の値が、最初にすべての可能な CD 値に対してチェックされます。例えば、IRE の値は、高輝度表示／赤として解釈されますが、高輝度表示／右詰め／必須としては解釈されません。単一の cd-value またはad-value の前に CD= または AD= が付いた値を組み合わせることはできません。

MARK オプション

MARK オプションを使用すると、画面上の任意の保護されていないフィールドにカーソルを置くことができます。さらに、該当フィールド内でカーソルの位置を指定できます。つまり、デフォルトでは、MARK オプションを省略すると、最初の保護されていないフィールドの先頭にカーソルが置かれます。

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

構文要素の説明：

例：

MARK #NUMBER               /* Field number
MARK 3                     /* Third map field
MARK *#FIELD1              /* Map field             
MARK POSITION 3 IN #NUMBER /* Third character in field number

このセクションの最後にある「例 3 - MARK POSITION オプションのある INPUT ステートメント」も参照してください。

ALARM オプション

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

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

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

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

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

構文要素の説明：

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

Attributes

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

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

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

3. 出力モード属性：『パラメータリファレンス』でセッションパラメータ 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[]