CBL_SCR_ALLOCATE

制約事項: このルーチンはネイティブ COBOL でのみサポートされます。

構文：

call "CBL_SCR_ALLOCATE_COLOR" using     table-count
                                        RGB-values
                                        color-attribute
                                        non-exact-match
                              returning status-code

パラメーター

table-count

呼び出しプロトタイプ (「説明の読み方」を参照)：cblt-x2-compx

PIC：pic x(2) comp-x

RGB-values

cblt-generic-attr-rgb-values として定義されている集団 (以下を含む)

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

color-attribute

呼び出しプロトタイプ：cblt-x4-compx OCCURS n TIMES

PIC：pic x4 OCCURS n TIMES

non-exact-match

呼び出しプロトタイプ：cblt-x4-compx OCCURS n TIMES

PIC：pic x OCCURS n TIMES

status-code

「説明の読み方」を参照。

入力パラメーター：

`table-count`	要求する色の数。
	カラーマップに対する検索または追加を行う色の表です。

出力パラメーター：

`color-attribute`	要求した色に対応するカラーマップの索引の表。この値は、既存のカラーマップエントリ、または要求した色に設定された未割り当ての読み書き可能なカラーマップエントリになります。
`non-exact-match`	`color-attribute` の対応する出現項目が完全一致であるかどうかを示すフラグの表。完全に一致した場合はゼロ、それ以外の場合はゼロ以外の値になります。
`table-count`	正常に割り当てられた色の数。通常は要求した数ですが、呼び出しが完全には成功しなかった場合はそれよりも少なくなります。
`RGB-values`	検索時に実際に使用された RGB 値の表。環境に合わせて切り捨てられます。
`cblte-garv-filler`	未使用。

説明：

RGB 値は、リテラルとして指定することも、CBL_SCR_NAME_TO_RGB ルーチンの呼び出しを使用して取得することもできます。最も近い一致を決定するためのアルゴリズムは、環境で定義されます。