以前の呼び出し中に 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 | 更新する領域の幅。 |
なし
この例は、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)
説明：
PF-Flush-Panel は、パネルが使用可能でなければ、影響がありません。