この例は、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 は、パネルが使用可能でなければ、影響がありません。