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