PF-Get-First-Panel (値 15)

最後に使用可能になったパネルの識別ハンドルおよび情報を返します。

パラメーター:

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-Length の MSB は、パネルが現在使用可能になっているかを示すフラグです。0 はパネルが使用不能で、0 以外はパネルが使用可能です。これは、Panel-Name-Length > 127 で確認します。

PF-Get-First-Panel を呼び出した際にパネルがなかった場合は、PPB-Status に値 Error-Invalid-ID が格納されます。

例:

この例は、前述のように、プログラムの作業場所節に 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)