X"91" function 12

Reads the programmable COBOL switches.

Syntax:

call x"91" using result
                 function-code
                 parameter

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

function-code

Value 12

`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.