以前の呼び出し中に 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 は、パネルが使用可能でなければ、影響がありません。