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