Returns information about the size of the current screen.
Parameters:
|
PPB-Fill-Attribute
|
pic 9(4) comp-x.
|
|
PPB-Fill-Character
|
pic 9(4) comp-x.
|
|
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-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.
|
On Exit:
|
PPB-Fill-Attribute
|
The current backdrop attribute.
|
|
PPB-Fill-Character
|
The current backdrop character.
|
|
PPB-First-Visible-Col
|
0
|
|
PPB-First-Visible-Row
|
0
|
|
PPB-Panel-Height
|
The number of rows visible on the screen.
|
|
PPB-Panel-Start-Column
|
0
|
|
PPB-Panel-Start-Row
|
0
|
|
PPB-Panel-Width
|
The number of columns on the screen.
|
|
PPB-Visible-Height
|
The number of rows visible on the screen.
|
|
PPB-Visible-Width
|
The number of columns on screen.
|
Example:
move pf-get-screen-info to ppb-function.
call "PANELS" using panels-parameter-block.
if ppb-status not = zero
* (code to abort)
Comments:
You can change the backdrop character and attribute using PF-Set-Screen-Backdrop.