最後に使用可能になったパネルの識別ハンドルおよび情報を返します。
パラメーター:
Panel-Name-Buffer |
次を含むグループ項目:Panel-Name-Length pic 99 comp-x.
Panel-Name-Text pic x(30).
|
PPB-First-Visible-Col |
pic 9(4) comp-x |
PPB-First-Visible-Row |
pic 9(4) comp-x |
PPB-Panel-Height |
pic 9(4) comp-x |
PPB-Panel-ID |
pic 9(4) comp-x |
PPB-Panel-Start-Column |
pic 9(4) comp-x |
PPB-Panel-Start-Row |
pic 9(4) comp-x |
PPB-Panel-Width |
pic 9(4) comp-x |
PPB-Visible-Height |
pic 9(4) comp-x |
PPB-Visible-Width |
pic 9(4) comp-x |
出力パラメーター:
Panel-Name-Length |
パネルに関連付けられた名前の長さ。 |
Panel-Name-Text |
PF-Set-Panel-Name 呼び出しでパネルに関連付けられた名前。 |
PPB-First-Visible-Col |
パネル上に表示するウィンドウの水平位置。 |
PPB-First-Visible-Row |
パネル上に表示するウィンドウの垂直位置。 |
PPB-Panel-Height |
パネルの高さ。 |
PPB-Panel-ID |
最後に使用可能になったパネルの識別ハンドル。 |
PPB-Panel-Start-Column |
画面上のパネルの水平位置。 |
PPB-Panel-Start-Row |
画面上のパネルの垂直位置。 |
PPB-Panel-Width |
パネルの幅。 |
PPB-Visible-Height |
パネルに表示するウィンドウの高さ。 |
PPB-Visible-Width |
パネルに表示するウィンドウの幅。 |
例:
この例は、前述のように、プログラムの作業場所節に Panel-Name-Buffer を定義していると仮定しています。
move pf-set-panel-name to ppb-function.
call "PANELS" using panels-parameter-block
panel-name-buffer.
*
* code to check if the panel is enabled.
* if ppb-status not = zero
* (code to abort)
説明:
この機能の終了時、Panel-Name-Length の MSB は、パネルが現在使用可能になっているかを示すフラグです。0 はパネルが使用不能で、0 以外はパネルが使用可能です。これは、Panel-Name-Length > 127 で確認します。
PF-Get-First-Panel を呼び出した際にパネルがなかった場合は、PPB-Status に値 Error-Invalid-ID が格納されます。