CBL_SCR_ALLOCATE_VC

Restriction: This routine is supported for native COBOL only.

Syntax:

call "CBL_SCR_ALLOCATE_VC_COLOR" 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 ntimes

Picture: pic x4 occurs ntimes.

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 colors to allocate.
`color-attribute`	The table of indexes to the locations in the virtual colormap in which to store the specified RGB values.
`RGB-values`	The table of color(s) to add to the virtual colormap.

On Exit:

`table-count`	The number of colors successfully allocated. This is normally the number requested but is less if the call was not entirely successful.
`RGB-values`	The table of RGB values actually used during the search, truncated to suit the environment.
`cblte-garv-filler`	Unused.

Comments:

The RGB values can either be specified as a literal or be obtained using a call to the CBL_SCR_NAME_TO_RGB routine.