Reads the run-time switches
Syntax:
call x"91" using result
function-code
parameter
Parameters:
| |
Using call prototype (see
Key)
|
Picture
|
|
result
|
cblt-x1-compx
|
pic x comp-x.
|
|
function-code
|
cblt-x1-compx
|
pic x comp-x.
|
|
parameter
|
cblt-x1-compx occurs 26
|
pic x comp-x occurs 26
|
On Exit:
|
parameter
|
Each byte represents one of the switch letters and each bit in a byte is the state of the numeric switch for that letter.
For example,
parameter (1) bit 0 represents switch A (or A0), bit 5 of
parameter (19) represents switch S5.
|
|
result
|
Set to zero if the call was successful, nonzero otherwise.
|