Updates the screen with changes to the specified panel that have not yet been applied because bit 4 or 5 in PPB-Update-Mask was off during previous calls to Panels.
| 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 | The identifying handle of the panel to flush. |
| PPB-Update-Height | The height of the rectangle to update. |
| PPB-Update-Mask | See the section Panels Parameter Block. |
| PPB-Update-Start-Col | The first column of the rectangle that is to be updated. |
| PPB-Update-Start-Row | The first row of the rectangle that is to be updated. |
| PPB-Update-Width | The width of the rectangle to update. |
None
This example assumes a panel has been defined that is 30 characters wide and 17 rows deep. The screen display of the original panel is updated, starting with the second line, column 1, through the 16th line of the panel. The handle of the original panel is assumed to be saved in data item 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)
Comments:
PF-Flush-Panel has no effect if you specify a panel that is not enabled.