X"91" function 12

Reads the programmable COBOL switches.

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