@Paco_Diaz, creo que no lo haces bien.
Prueba esto:
Código COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. YOUR-PROGRAM-NAME.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 cadena pic x(80).
01 cadenax pic x(80).
01 i pic 999.
01 j pic 999.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
display 'Prueba color' line 8 erase
display 'Esto va en azul y blanco '
line 10 position 1 control
'fcolor=blue, bcolor=white'
display 'Esto va en negro y blanco '
line 11 position 1 control
'fcolor=black, bcolor=white'
display 'Esto va en azul intenso y blanco '
line 12 position 1 control
'fcolor=blue, bcolor=white' low
display 'Esto va en negro intenso y blanco '
line 13 position 1 control
'fcolor=black, bcolor=white' low
accept cadenax line 16.
STOP RUN.
END PROGRAM YOUR-PROGRAM-NAME.