Instr. de Pantalla
página(s) : 2/3
(5792 palabras totales en este texto)
(118222 Lecturas) 
- PROMPT carácter,
(ACCEPT) conseguimos que rellene con algún carácter específico o por defecto el
cursor bajo (_) la longitud del campo que vamos a aceptar. Es bastante útil ya que el
usuario puede ver claramente la longitud del campo.
- ECHO, (ACCEPT)
con ésta cláusula hacemos que vuelva a
"pintar" el contenido del campo después de aceptado. Es decir si le hemos
puesto PROMPT ECHO, mientras se acepta saldrán los guiones bajos
para indicar el tamaño pero al salir del campo se volverá a displayar y éstos guiones
desaparecerán.
REVERSE, (ACCEPT Y DISPLAY) conseguimos que el
campo que aceptamos se vea en video inverso, si normalmente es blanco sobre negro, se
hará negro sobre blanco, y si tenemos otros colores, pues en su color inverso.
SIZE variable, constante numérica,
(ACCEPT) variamos el tamaño de la variable que teníamos
declarado. Por ejemplo si definimos una variable con PIC X(40) y le
indicamos al aceptarla SIZE 10, solo aceptará 10 caracteres para esa variable.
CONVERT, (ACCEPT Y DISPLAY) con ésta cláusula
conseguimos que si estamos aceptando un campo numérico o alfabético, e introducimos un
valor no aplicable, lo ignore. Por ejemplo si introducimos una letra en un campo numérico
será ignorada si CONVERT aparece.
UPDATE, (ACCEPT) hace que el valor actual del campo aparezca y al
aceptar podamos modificar sobre su contenido actual. Es muy aconsejable cuando estamos
modificando datos.
CONTROL tipo de control,
(ACCEPT Y DISPLAY) ésta cláusula es bastante amplia y en ella podemos
atribuir otras opciones como caracteres gráficos, colores, etc.. Su uso puede variar
según los compiladores. Mas abajo encontrareis mas información.
ON EXCEPTION variable instrucción
(ACCEPT) si al aceptar el campo introducimos una de las teclas que
causa excepción, es decir que no es reconocida dentro de la tabla de caracteres admitida,
el valor de la tecla se guardará en la variable que definamos y a continuación podremos
realizar una instrucción. Por ejemplo si estamos aceptando un campo con PIC X(40)
y cuando estamos metiendo su valor pulsamos la tecla escape, si tenemos ésta cláusula puesta la variable tomará el valor 27
(correspondiente a la tecla escape) y a continuación se ejecutaría la instrucción
que hubiéramos puesto. Pero todo esto se ve mejor con los ejemplos que a continuación
voy a indicar. Decir que la variable debe de estar definida con PIC 9 COMP-1.
UPPER, LOWER, (ACCEPT) con éstas opciones obligamos a
que el valor del campo aceptado esté en Mayúsculas (UPPER
) o Minúsculas (LOWER).
COLOR, (ACCEPT y DISPLAY) cláusula propia de Acucobol con la que
conseguimos aceptar el campo con un determinado color dependiendo de una tabla para
asignación de colores.
REQUIRED, (ACCEPT) con ésta
opción obligamos al usuario a que no deje el campo en blanco e
introduzca cualquier dato.
FULL, (ACCEPT) obligamos a
que una vez empecemos a introducir un campo, este no se acepte hasta
que esté completo, es decir si aceptamos una variable con PIC X(30),
mientras no introduzcamos los 30 caracteres no nos dejará seguir.
| Color |
Letra |
Fondo |
|
Observaciones |
| Negro |
1 |
32 |
|
Para conseguir los colores, debemos de sumar las dos cantidades
correspondientes a la letra y al fondo, por ejemplo si queremos el fondo blanco y la letra
azul, el valor que se le debería de asigna a la cláusula COLOR será de 258 (256 fondo blanco +
2 letra azul). |
| Azul |
2 |
64 |
|
| Verde |
3 |
96 |
|
| Celeste |
4 |
128 |
|
| Rojo |
5 |
160 |
|
| Morado |
6 |
192 |
|
| Marrón |
7 |
224 |
|
| Blanco |
8 |
256 |
|
TIPOS DE CONTROL.
Voy a explicar algunos de los atributos que se pueden utilizar cuando la frase
CONTROL se especifica en ACCEPT o DISPLAY. El formato
es el siguiente:
CONTROL "FCOLOR=color, .............".
- FCOLOR, color de primer plano, utilizaremos los nombres de los
colores (white, black, red, blue, green, magenta, brown y cyan).
- BCOLOR, color de fondo y la gama de colores igual que la
anterior.
Formatos Windows (100&100)
de ACCEPT en Acucobol:
Con Acucobol (y hablo de él, por ser el que utilizo en la actualidad) se permite aceptar cualquier
control gráfico típico de windows, como un ENTRY-FIELD,
directamente desde la PROCEDURE DIVISION y con el
comando ACCEPT propio de Cobol. Evidentemente cambia un poco sobre todo porque las
cláusulas o propiedades son mucho mas amplias.
|
...
WORKING-STORAGE SECTION.
77 NOMBRE PIC X(30).
77 CODIGO PIC 9(5).
77 ESCA PIC 9 COMP-1.
77 QW PIC 9.
...
PROCEDURE DIVISION.
INICIO.
ACCEPT NOMBRE LINE 10 COL 20 PROMPT LOW REVERSE ECHO
CONTROL "FCOLOR=BLUE, BCOLOR=WHITE" ON EXCEPTION ESCA MOVE 1 TO
QW.
ACCEPT CODIGO LINE 12 COL 20
CONVERT.
... |
|
Nota: Con el primer ACCEPT conseguiriamos introducir
un valor en la variable NOMBRE, lo aceptaremos en brillo suave con video reverso y una vez
introducido el campo, este se volverá a mostrar tal y como va a quedar, gracias a ECHO. Además se aceptará en color azul con fondo blanco y si
pulsamos una de las teclas que causan excepcion según los valores permitidos, esta se
guardaría en la variable ESCA y luego podríamos preguntar por su valor. Por ejemplo si
pulsamos F1, F2, F3 tomará el valor 1, 2, 3. Si pulsamos ENTER (13) ESCAPE (27), Tabular
(9), etc ...
La siguiente orden nos permitirá aceptar la variable CODIGO en la cual los carácteres no
numéricos no se admitirán al llevar la clásusula CONVERT.
Os aconsejo que hagáis todo tipo de pruebas con las opciones
disponibles hasta que el resultado sea el que deseáis.
Muchas veces cuando se muestra un mensaje, se acepta una variable a continuación solo para dar tiempo al usuario.
Algunos compiladores como Acucobol han implementado la siguiente opción:
ACCEPT OMITTED, y así no tenemos que definir ninguna
variable.
Teneis que tener en cuenta que algunas de las cláusulas que explico es posible que no funcionen en
todos los compiladores, así como es posible que existan otras que yo
desconozca debido a que son usadas por otros compiladores.
|
|
Manuales
(3/3)
