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 が格納されます。