CBL_SCR_QUERY_COLORMAP

Restriction: This routine is supported for native COBOL only.

Syntax:

call "CBL_SCR_QUERY_COLORMAP" using     table-count
                                        color-attribute
                                        RGB-values
                              returning status-code

Parameters

table-count

Call prototype (see Key): cblt-x2-compx

Picture: pic x(2) comp-x.

color-attribute

Call prototype (see Key): cblt-x4-compx occurs n times

Picture: pic x(4) comp-x occurs n times.

RGB-values

Group predefined as cblt-generic-attr-rgb-values containing:

01 cblt-generic-attr-rgb-values  typedef.
  03 cblte-garv-red-value        cblt-x2-compx.	         *> pic x(2) comp-x.
  03 cblte-garv-green-value      cblt-x2-compx. 	        *> pic x(2) comp-x.
  03 cblte-garv-blue-value       cblt-x2-compx.          *> pic x(2) comp-x.
  03 cblte-garv-filler           cblt-x1-compx occurs 2. *> pic x(2).

status-code

See Library Routines - Key.

On Entry:

`table-count`	The number of entries to query.
`color-attribute`	The table of one or more colormap indexes to query.

On Exit:

`RGB-values`	The table of RGB values corresponding to the table indexes.
`table-count`	The number of entries successfully queried. This is normally the number requested but is less if the call was not entirely successful.