X"91" function 11

Sets the programmable COBOL switches.

Syntax:
call x"91" using result
                 function-code
                 parameter
Parameters:
Using call prototype (see Library Routines - Key) Picture (32-bit systems)
result cblt-x1-compx pic x comp-x.
function-code cblt-x1-compx pic x comp-x.
parameter Group containing: Group containing:
  switch-flag   cblt-x1-compx occurs 8   pic x comp-x occurs 8
  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.

See Also: