X"91" function 11

Sets the programmable COBOL switches.

Note: This function is not supported in JVM COBOL.

Syntax:

call x"91" using result
                 function-code
                 parameter

Parameters:

result

Call prototype: cblt-x1-compx

Picture: pic x comp-x.

function-code

Call prototype: cblt-x1-compx

Picture: pic x comp-x.

parameter

Group containing:

01 parameter
  03 switch-flag cblt-x1-compx occurs 8  *> pic x comp-x occurs 8
  03 debug-flag  cblt-x1-compx           *> pic x comp-x

On Entry:

`function-code`	Value 11
`switch-flag`	The values (0 or 1) to set in switches 0 through 7.
`debug-flag`	If set to 1, the ANSI Debug module is enabled.

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 X"91" function 12, update parameter, and then call this function.