PF-Flush-Panel (値 9)

以前の呼び出し中に PPB-Update-Mask のビット 4 またはビット 5 がオフにされたために、指定されたパネルへの変更が反映されていない画面を更新します。

パラメーター：

`PPB-Panel-ID`	pic 9(4) comp-x
`PPB-Update-Height`	pic 9(4) comp-x
`PPB-Update-Mask`	pic x
`PPB-Update-Start-Col`	pic 9(4) comp-x
`PPB-Update-Start-Row`	pic 9(4) comp-x
`PPB-Update-Width`	pic 9(4) comp-x

入力パラメーター：

`PPB-Panel-ID`	フラッシュするパネルの識別ハンドル。
`PPB-Update-Height`	更新する領域の高さ。
`PPB-Update-Mask`	「`Panels パラメーターブロック`」セクションを参照してください。
`PPB-Update-Start-Col`	更新される領域の最初の列。
`PPB-Update-Start-Row`	更新される領域の最初の行。
`PPB-Update-Width`	更新する領域の幅。

出力パラメーター：

なし

説明：

PF-Flush-Panel は、パネルが使用可能でなければ、影響がありません。

例：

この例は、30 文字の幅で 17 行の高さのパネルを仮定しています。元のパネルの画面表示は、2 行目、1 列目から始まり、16 行で更新されます。元のパネルのハンドルは、データ項目 ws-save-panel-id に保存されています。

* Define the size of the rectangle to flush
       move 30 to ppb-update-width.
       move 15 to ppb-update-height.
* Now define where in the panel the rectangle starts (0,0
* defines the top left-hand corner of the panel). The update
* panel starts on line 2, column 1 of the panel.
       move 1 to ppb-update-start-row.
       move 0 to ppb-update-start-col.
* Set bits 4 and 5 of the Update Mask on to apply updates for
* both text and attributes. Hex 30 is binary 00110000.
       move X"30" to ppb-update-mask.
* When the panel was created, it was saved with the panel
* identifier in a variable ws-save-panel-id.
       move ws-save-panel-id to ppb-panel-id.
* Apply the updates
       move pf-flush-panel to ppb-function.
       call "PANELS" using panels-parameter-block.
       if ppb-status not = zero
*         (code to abort)