Returns the current screen type as recognized by the run-time system.
Note: This routine is supported for native COBOL only.
Syntax:
call x"A7" using function-code
parameter
Parameters:
| |
Using call prototype (see
Key)
|
Picture
|
|
function-code
|
cblt-x1-compx
|
pic x comp-x.
|
|
parameter
|
cblt-x1-compx
|
pic x comp-x.
|
On Entry:
-
function-code
- Value 25
On Exit:
-
parameter
- Bit settings indicating the type of screen as follows:
| bit 0
|
unset = monochrome screen
|
| bit 1
|
reserved
|
| bit 2
|
reserved
|
| bit 3
|
set = EGA-type screen
|
| bit 4
|
set = VGA-type screen
|
| bit 5
|
reserved
|
| bit 6
|
reserved
|
| bit 7
|
reserved
|
