Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
31
     Crea Una cuenta  
Video 1
Video 2
Video 3

Si te ha servido la web
o te han gustado los videos, colabora haciendo click en el botón.

MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
 
BUSCADOR
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
RUTINAS/MANUALES
OCX / JUEGOS
HERRAMIENTAS
COMPILADORES
ENCUESTAS
ENLACES
FOROS
TOP 10

CHAT   Usuarios: 0
Manuales
TEMARIOIntroducción
Identification Division
Environment Division
Data Division
Procedure Division
Instr. de Cálculo
Instr. de Archivos
Instr. de Pantalla
Instr. de Variables
Instrucción Perform

Instr. de Pantalla

página(s) : 2/3
(5792 palabras totales en este texto)
(88999 Lecturas)   Versión Imprimible



  • 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.

(1/3) Anterior |    Inicio de Página    | Siguiente (3/3)
Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados.
PHP-Nuke es un Software Libre realizado con licencia GNU/GPL.
Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.
Andres Montes [98/11]