Rocket® Net Express™ (formerly a product of Micro Focus or formerly a product of Open Text) documentation, created before Rocket Software acquired certain products from OpenText, may include outdated references to "Micro Focus" or "OpenText", both of which are trademarks of OpenText or its affiliates. Rocket Software is not affiliated with Micro Focus or OpenText and has since rebranded these products as Rocket® products. You may also encounter outdated links in this documentation. If you do, please contact Rocket Support (support@rocketsoftware.com) for assistance.
X"91" function 12
Reads the programmable COBOL switches.
Syntax:
call x"91" using result function-code parameter
Parameters:
| Using call prototype (see 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. |
Related Topics