Sets 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 Entry:
|
function-code
|
Value 13
|
|
parameter
|
Each byte represents one
of the switch letters and each bit in a byte is the state to set 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.
|
On Exit:
|
result
|
Set to zero if the call
was successful, nonzero otherwise.
|
Comments:
To update one switch without affecting the others, you should read the switches with Function 14, update parameter, and then call this function.