x"AF" function 49 - Panels を使用するための Adis の初期化

Panels で使用するために Adis を初期化します。

x"AF" function 49 は、画面と同じ寸法のパネルを作成します。このパネルは自動的に使用可能になり、黒の背景に白の前景属性で埋められた領域です。画面はクリアされます。

この機能は、プログラムの最初に 1 回のみ呼び出します。

構文：

call x"AF" using   init-panels-fn
                   parameter

パラメーター：

`init-panels-fn`	pic x comp-x value 49。
`parameter`	任意の英数字データ項目。Adis は、そのサイズおよび内容を無視します。

例：

 01 init-panels-fn    pic x comp-x value 49.
 01 parameter         pic x.
            ...
     call x"af" using init-panels-fn
                      parameter

この呼び出しで作成されたパネルは、自動的に使用可能になり、画面から以前の内容をクリアします。そのパネルは、デフォルトの背景文字で埋められた領域です。デフォルトの属性設定は、黒の背景に白の前景です。すべての ACCEPT 文および DISPLAY 文は、他のパネルが指定されない限り、このパネルを操作します。この詳細については、「ACCEPT/DISPLAY 用のパネル指定」の機能を参照してください。この呼び出しで作成されるパネルの識別子 (Panel-ID) の値は、常に 0 です。

この呼び出しは、Adis で使用される 6 つのパネルを作成します。次のリストの最初のパネル以外は、すべて画面の下部に表示されます。

全画面のパネル。
Adis エラーメッセージパネル (1 カラム目から 77 カラム目まで)。
挿入インジケーター用の 1 文字のパネル。
フィールド末尾超過インジケーター用の 1 文字のパネル。
自動スキップインジケーター用の 1 文字のパネル。
置換インジケーター用の 1 文字のパネル。

この 6 つのパネルは、プログラムでは使用できません。