Cobol - Poner Color a una linea

 
Vista:

Poner Color a una linea

Publicado por Vallekano (1 intervención) el 06/02/2007 12:49:20
Me gustaria saber como poder poner un color a una linea mia de un fichero de cobol, como para hacer unos comentarios y que se encuentren a simple vista.

PERFORM BAS01 THRU BAS01-EXIT.
IF IN03 OF FMT1-I-INDIC EQUAL B"1" GO TO FIN.
IF IN12 OF FMT1-I-INDIC EQUAL B"1" GO TO FIN.

PERFORM CABECERA THRU CABECERA-EXIT.

* IF Pxxxx OF xxx-O = "1"
* PERFORM xxxxx THRU xxxxxx
* END-IF

Muchas gracias a todos lo que lo sepan y a los que no.

Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Poner Color a una linea

Publicado por Alberto (1 intervención) el 06/02/2007 21:56:06
Hola Vallekano:

Mira para poner una línea en color, tienes primero que predisponerla,
DISPLAY " " LINE 11 POSITION 1 CONTROL "FCOLOR=RED,BCOLOR=MAGENTA".

Con ello todo lo que escribas ahora, después de la líne 11, sera con estos colores hasta que hagas un DISPLAY de otro color. Es decir debes predisponer otra vez el color que tenias en principio.

Lógicamente si quieres hacer una línea entera con un color, mandas un display de una variable PIC X(80) con value spaces.

Espero que te quede claro, si necesitas más ayuda, escribeme a mi correo.

Un saludo desde Gijón-Asturias (España)

Alberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar