Cobol en español
MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
Programando en Ms-Dos (texto)
TEMARIOPaso a paso
1.- Introducción
2.- Empezando
3.- Las variables
4.- Iniciando el proceso
5.- Pantalla inicial y Menú
6.- Mantenimiento Fichero
7.- Consulta con Scroll
8.- Opción de Listado
uN JueGo eN CoBoL

7.- Consulta con Scroll

página(s) : 2/2
(1634 palabras totales en este texto)
(20145 Lecturas)   Versión Imprimible



»» CONTROL DE LAS TECLAS PULSADAS Y MOVIMIENTO DEL SCROLL Dependiendo de la tecla pulsada vendremos a cada uno de éstos párrafos. Veamos como actúa cada uno.
Si pulsamos movemos la última pantalla y volvemos a dibujar.
ACUFIN.
      MOVE TOPE TO CABE.
      MOVE CABE TO LU
      MOVE 3 TO LIU GO CONSUL1.


Si pulsamos nos vamos al primer elemento de la tabla y volvemos a dibujar.
ACUINI.
      MOVE 1 TO CABE.
      MOVE CABE TO LU MOVE 3 TO LIU GO CONSUL1.


Si pulsamos avanzamos una posición, siempre teniendo en cuenta que no estamos en el final, ni que traspasamos los límites de la pantalla y volvemos a dibujar.
ACUMAS.
      IF LU = TOPT GO CONSUL6.
      COMPUTE LU = LU + 1.
      IF LU > TOPT SUBTRACT 1 FROM LU GO CONSUL5.
      IF LU = LO COMPUTE CABE = CABE + 1 GO CONSUL1.
      DISPLAY LINPA LINE LIU COL 2 LOW.
      COMPUTE LIU = LIU + 1 GO CONSUL5.


Si pulsamos avanzamos 10 posiciones (las que tiene la pantalla) comprobamos los límites y volvemos a dibujar.
ACUMASS.
      COMPUTE CABE = CABE + 10.
      IF CABE >= TOPE MOVE TOPE TO CABE.
      MOVE CABE TO LU MOVE 3 TO LIU GO CONSUL1.


Si pulsamos retrocedemos 10 posiciones (las que tiene la pantalla) comprobamos los límites y volvemos a dibujar.
ACUMENOSS.
      IF CABE > 10 SUBTRACT 10 FROM CABE ELSE MOVE 1 TO CABE.
      MOVE CABE TO LU MOVE 3 TO LIU GO CONSUL1.


Si pulsamos retrocedemos una posición, controlamos los límites y volvemos a dibujar.
ACUMENOS.
      IF LU = 1 GO CONSUL6.
      COMPUTE LU = LU - 1.
      IF LU < CABE SUBTRACT 1 FROM CABE GO CONSUL1.
      DISPLAY LINPA LINE LIU COL 2 LOW.
      COMPUTE LIU = LIU - 1 GO CONSUL5.


Aqui llegamos si hemos pulsado entonces seleccionamos el código y volvemos al mantenimiento, mostrando el registro seleccionado.
CONSULFIN.
      CLOSE AGENDA OPEN I-O AGENDA.
      GO SOCI-MIRA.
Programa Agenda (Imagen 4)


Evidentemente si queremos hacer la pantalla mas grande solo tendremos que tener en cuenta cambiar los valores máximos del scroll. Así como si queremos que aparezcan menos campos u otros campos, solo con cambiar la cabecera y la variable LINPA, lo habréis conseguido. Creo que es una manera muy sencilla de hacerlo y que se puede entender bien. Yo desde que la hice, hace ya bastantes años la sigo utilizando con unos resultados excelentes. Por supuesto se puede ampliar mas y dar mas opciones de clasificación, pero eso ya os lo dejo a vosotros.

Para el próximo capítulo, veremos como generar un listado por impresora.

(1/2) Anterior |    Inicio de Página   
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]