Reads the run-time switches
Note: This function is not supported in JVM COBOL.
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.
|