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 | パネルに表示するウィンドウの幅。 |
この例は、Panels で認識されているすべてのパネルの詳細を返します。情報を保持するためにプログラムの作業場所節に表、および、添え字として使用するデータ項目 panel-num を宣言していると仮定しています。
* * Get details of the first panel * move 1 to panel-num move pf-get-first-panel to ppb-function perform make-panels-call if ppb-status not = error-invalid-id * (code to abort) perform move-values-to-working-storage add 1 to panel-num * * Get details of all other panels, until ppb-status is * returned as error-invalid-id. * move pf-get-next-panel to ppb-function call "PANELS" using panels-parameter-block panel-name-buffer perform until ppb-status = error-invalid-id perform move-values-to-working-storage add 1 to panel-num perform make-panels-call end-perform ... move-values-to-working-storage section. * * Move all the exit parameters to the Working-Storage section * to retain their values. * move ppb-panel-id to ws-panel-id (panel-num) move ppb-panel-height to ws-panel-height (panel-num) move ppb-panel-width to ws-panel-width (panel-num) move ppb-visible-height to ws-visible-height (panel-num) move ppb-visible-width to ws-visible-width (panel-num) move ppb-panel-start-column to ws-panel-start-column (panel-num) move ppb-panel-start-row to ws-panel-start-row (panel-num) move ppb-first-visible-col to ws-first-visible-col (panel-num) move ppb-first-visible-row to ws-first-visible-row (panel-mum) move panel-name-buffer to ws-panel-name-buffer (panel-num) move panel-name-length to ws-panel-name-length (panel-num) move panel-name-text to ws-panel-name-text (panel-num) . make-panels-call section. call "PANELS" using panels-parameter-block panel-name-buffer
説明:
この機能の終了時、Panel-Name-Length の MSB は、パネルが現在使用可能になっているかを示すフラグです。0 はパネルが使用不能で、0 以外はパネルが使用可能です。これは、Panel-Name-Length > 127 で確認します。
PF-Get-Next-Panel の直前に使用できる Panels の呼び出しは、PF-Get-First-Panel および他の PF-Get-Next-Panel のみです。つまり、PF-Get-Next-Panel の 2 つの連続した呼び出しの間、または、PF-Get-First-Panel と PF-Get-Next-Panel の間に、他の Panels 呼び出しがあってはならないということです。
PF-Get-Next-Panel を呼び出した際に次のパネルがなかった場合は、PPB-Status に値 Error-Invalid-ID が格納されます。