Rocket® Enterprise Developer (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.
CBL_SCR_SET_ATTRIBUTES
Defines the character attribute, and foreground and background colormap indexes associated with each of one or more COBOL attribute values (attribute table indexes).
Restriction: This routine is supported for native COBOL only.
Syntax:
call "CBL_SCR_SET_ATTRIBUTES" using table-count
attribute-index
attribute-value
returning status-code
Parameters
- table-count
- Call prototype (see Key): cblt-x2-compx
- Picture: pic x(2) comp-x.
- attribute-index
- Call prototype (see Key): cblt-x1-compx occurs n times.
- Picture: pic x comp-x occurs n times.
- attribute-value
- Group predefined as cblt-generic-attr-value containing:
01 cblt-generic-attr-value typedef. 03 cblte-gav-foreground-color-attr cblt-x4-compx. *> pic x(4) comp-x. 03 cblte-gav-background-color-attr cblt-x4-compx. *> pic x(4) comp-x. 03 cblte-gav-character-attribute cblt-x1-compx. *> pic x comp-x. 03 cblte-gav-filler cblt-x1-compx occurs 3. *> pic x(3).
- status-code
- See Library Routines - Key.
On Entry:
| table-count | The number of attributes to set. |
| attribute-index | The table of indexes in the attribute table. |
| attribute-value | The table of attribute descriptions corresponding to the table of indexes. |
On Exit:
| table-count | The number of attributes successfully set. This is normally the number requested but is less if the call was not entirely successful. |
| cblte-gav-filler | Unused. |