Hola Amigos:
A raíz de un post anterior donde KUK dice que power no maneja colores rgb, les paso una forma de utilizarlo. Lo uso hace muchos años, asi que no recuerdo de dónde la saqué para hacer referencia, mil perdones al autor:
Código COBOL:
Working...
01 colores global.
02 w-rgb.
03 w-rojo pic x.
03 w-verde pic x.
03 w-azul pic x.
03 pic x value low-value.
02 bin-2 pic S9(4) binary.
02 redefines bin-2.
03 pic x.
03 bin-1 pic x.
Procedure...
move 205 to bin-2 move bin-1 to w-rojo.
move 255 to bin-2 move bin-1 to w-verde.
move 205 to bin-2 move bin-1 to w-azul.
move w-rgb to ...
Espero les sea útil...
Saludos. Fito...