Cobol.Screen Section.

La Screen Section es una parte de la estructura de Cobol, encargado de realizar las ventanas o el interfaz del programa en cuestión. Vamos a ver como funciona y a ver sus sintaxis.

Nivel
identificador
[ JUSTIFIED RIGHT ]
[ BLANK WHEN ZERO ]
[ OCCURS integer-1 TIMES ]
[ BELL | BEEP ]
[ AUTO | AUTO-SKIP | AUTOTERMINATE ]
[ UNDERLINE ]
[ OVERLINE ]
[ SECURE ]
[ REQUIRED ]
[ FULL ]
[ PROMPT ]
[ REVERSE-VIDEO ]
[ BLANK LINE | SCREEN ]
[ ERASE EOL | EOS ]
SIGN IS
TRAILING
LEADING
[ SEPARATE CHARACTER ]
LINE NUMBER IS [ PLUS ]
integer-2
identifier-2
COLUMN NUMBER IS [ PLUS ]
integer-3
identifier-3
FOREGROUND-COLOR IS
integer-4
identifier-4
[HIGHLIGHT]
[LOWLIGHT]
BACKGROUND-COLOR IS
integer-5
identifier-5
[ BLINK ]
PICTURE IS picture-string
USING identifier-6
FROM
identifier-7
literal-2
TO identifier-8
VALUE IS literal-1

• Nivel. Los niveles números funcionan igual que las definiciones de las variables en la WORKING.
• Bell|beep. Realiza un tono audible cuando es mostrado en pantalla.
• Auto|Auto-skip|Autoterminate. Este cláusula lo que hará es que pasará automáticamente al siguiente campo una vez que esté llena la variable, sin presionar enter.
• Anderline|Overline. Subrayar.
• Secure. Que al introducir un dato salgan asteriscos.
• Required|Full. Obliga a que el campo no esté en blanco y deba introducir siempre datos.
• Prompt. Esta cláusula se utiliza para especificar que los campos que estén vacíos, se guarden un valor que no sea en blanco para que sea visible.
• Blank Line|Screen. Borra una línea o pantalla. Si usamos esta cláusula en un elemento principal, afectará a todos sus niveles.

Posibles valores del Background/Foreground Color.

Background= Color del fondo.
Foreground= Color de la letra.

Valor. Color.

0 negro
1 azul
2 gris
3 cían
4 rojo
5 naranja
6 amarillo
7 blanco

Posibles Valores del Foreground Color.

valor. LOWLIGHT HIGHLIGHT
0 Negro Gris oscuro
1 Azul oscuro / Indigo Azul brillante
2 Gris oscuro Gris brillante
3 Cían oscuro Cían brillante
4 Rojo oscuro Rojo brillante
5 Naranja oscuro Naranja brillante
6 Oro / Marrón Amarillo
7 Verde claro Blanco

• La cláusula Value se utiliza para definir un texto fijo que no cambiará.
• From. Se utiliza para definir un campo cuyo contenido proviene de una variable.
• To. Se utiliza para definir un campo de entrada de datos sin valor inicial, cuyo valor se almacenará en una variable.
• Using. Es la combinación de la cláusula From y To.

Vamos a ver un ejemplo:

identification division.
program-id. Ventanas.
author. Ismael.
environment division.
data division.
working-storage section.
77 opcion pic x value spaces.
77 pausar pic x value spaces.
screen section.
* Pantalla inicial
01 principal.
    03 line 05 col 10 VALUE "Prueba de Screen Section".
    03 line 07 col 10 VALUE "Dame a una tecla y te la muestro: ".
    03 line 17 col 10 VALUE "> ".
    03 pic x using opcion.
* Borra la pantalla.
01 Limpiar-pantalla.
    03 blank screen.
procedure division.
Inicio.
* Mostramos la pantalla inicial y aceptamos la variable.
    display principal
    accept principal
* Limpiamos la pantalla
    display limpiar-pantalla
    display "Has pulsado la tecla "opcion
    display "Pulsa cualquier letra para salir"
    accept pausar with auto
    stop run.

Ahora la cláusula ACCEPT podemos añadirle más opciones:

ACCEPT variable AT LINE COLUMN/COL
                        entero entero
                        variable variable
ACCEPT variable AT entero/variable

Veamos unos ejemplos de como quedaría:

display "mensaje de prueba" at line 05 column 20
display "mensaje de prueba" at line 05 col 20
display "mensaje de prueba" at 0520

Veamos otras opciones:

AUTO | AUTO-SKIP | AUTOTERMINATE
BELL | BEEP
REVERSE-VIDEO
UNDERLINE
OVERLINE
REQUIRED
WITH FULL
PROMPT
SECURE
UPDATE
HIGHLIGHT
LOWLIGHT
BLINK
FOREGROUND-COLOR IS
integer-4
identifier-4
BACKGROUND-COLOR IS
integer-5
identifier-5
SCROLL BY LINE/LINES
UP entero
DOWN variable

• Update. Usando este complemento muestra el contenido antiguo antes de actualizar la variable. Si introducimos datos sin esta cláusula, automáticamente se borra de la pantalla el contenido antiguo.
• Blink. Parpadea.
• Scroll. Esto hace que el contenido de la pantalla pueda desplazarse hacia arriba y hacia abajo cuando usamos la rueda del ratón. Si no se especifica nada en LINE, se asumirá que empezará por la línea 1.

Veamos unos ejemplos:

accept opcion at 1005 with underline
accept opcion at line 10 col 05 with blink
…

Con el DISPLAY ocurre lo mismo que con el ACCEPT, tiene exactamente las mismas propiedades y cláusulas.

Continúa por Tablas.