Reads the programmable COBOL switches.
call x"91" using result function-code parameter
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. |
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. |