| Panel-Name-Buffer. | Group item containing:
Panel-Name-Length pic 99 comp-x. Panel-Name-Text pic x(30). |
| PPB-First-Visible-Col | pic 9(4) comp-x. |
| PPB-First-Visible-Row | pic 9(4) comp-x. |
| PPB-Panel-Height | pic 9(4) comp-x. |
| PPB-Panel-ID | pic 9(4) comp-x. |
| PPB-Panel-Start-Column | pic 9(4) comp-x. |
| PPB-Panel-Start-Row | pic 9(4) comp-x. |
| PPB-Panel-Width | pic 9(4) comp-x. |
| PPB-Visible-Height | pic 9(4) comp-x. |
| PPB-Visible-Width | pic 9(4) comp-x. |
None
| Panel-Name-Length | The length of the name associated with the panel. |
| Panel-Name-Text | The name associated with the panel by a call to function PF-Set-Panel-Name. |
| PPB-First-Visible-Col | The horizontal position of the visible window on the panel. |
| PPB-First-Visible-Row | The vertical position of the visible window on the panel. |
| PPB-Panel-Height | The height of the panel. |
| PPB-Panel-ID | The identifying handle of the panel that was enabled most recently. |
| PPB-Panel-Start-Column | The horizontal position of the panel on the screen. |
| PPB-Panel-Start-Row | The vertical position of the panel on the screen. |
| PPB-Panel-Width | The width of the panel. |
| PPB-Visible-Height | The height of the visible window in the panel. |
| PPB-Visible-Width | The width of the visible window in the panel. |
This example assumes that you have defined Panel-Name-Buffer in the Working-Storage Section of your program as specified above.
move pf-set-panel-name to ppb-function.
call "PANELS" using panels-parameter-block
panel-name-buffer.
*
* code to check if the panel is enabled.
* if ppb-status not = zero
* (code to abort)
Comments:
On exit from this function, the most significant bit of Panel-Name-Length is a flag that indicates whether or not the panel is currently enabled - zero indicates that the panel is not enabled, while a non-zero value shows that it is enabled. To check whether this is the case, you should check whether Panel-Name-Length > 127.
If there are no panels when you call PF-Get-First-Panel, PPB-Status contains the value Error-Invalid-ID.