X"91" function 12

Reads 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 12
On Exit:
result Set to zero if the call was successful, nonzero otherwise.
switch-flag The values of switches 0 through 7.
debug-flag Set to 1 if the ANSI Debug module is enabled, otherwise zero.
See Also: