Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
13
     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: 1
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

8.- Opción de Listado

página(s) : 1/2
(1877 palabras totales en este texto)
(16197 Lecturas)   Versión Imprimible



En la opción de listado, antes de pasar directamente a imprimir, vamos a sacar una ventana con una serie de opciones para hacer el listado de varias maneras. Esto es lo que vamos a ver en éste capítulo. Para ello vamos a utilizar una ventana para hacer las preguntas y a 2 de ellas responderemos con un menú de opciones. Para ello aumentaremos de nuevo la Working-Storage con nuevas variables.

Las frases en éste color son comentarios.

Modificaremos el párrafo LISTADO, que hasta ahora solo nos indicaba que habíamos cogido esa opción. Gracias a éstas preguntas, podremos generar el listado de varias formas y no tener que hacer programas distintos para distintos listados, si lo depuramos mucho mas se pueden conseguir realmente cosas interesantes. Vamos a conseguir sacar el listado ordenado por cuatro campos, además pudiendo elegir en cada caso una opción valida, así como incluir separadores para cada cambio de clave y elegir porque tipo de impresora saldrá o pantalla.

»» NUEVAS VARIABLES Nuevas variables para incluir en la Working-Storage Section.
Estas tablas contendrán las opciones para conseguir un listado mas personalizado.
      01   TABLALISTADO.
            02   FILLER PIC X(24) VALUE " CODIGONOMBRE ".
            02   FILLER PIC X(24) VALUE " POBLACION PROVINCIA ".
      01   LISTADOTABLA REDEFINES TABLALISTADO.
            02   ELELIS PIC X(12) OCCURS 4 TIMES.
      01   TABLAPORLIS.
            02   FILLER PIC X(30) VALUE " IMPRESORA HP OTRA IMPRESORA".
            02   FILLER PIC X(15) VALUE " PANTALLA".
      01   LISPORTABLA REDEFINES TABLAPORLIS.
            02   ELEPOR PIC X(15) OCCURS 3 TIMES.


Estas variables, son para saber que opciones hemos escogido.
     01   LISCLA PIC 9.
      01   LISPOR PIC X.
      01   LISSEP PIC X.
      01   DESDEPIC 9(4).
      01   HASTAPIC 9(4).
      01   DEPOBPIC X(20).
      01   DEPROPIC X(15).
»» MODIFICAR PARRAFO El PARRAFO LISTADO, que antes solo indicaba que habíamos escogido esa opción será sustituido por todo lo que salga a partir de aquí.
En principio, creamos una ventana donde nos preguntara, por el tipo de listado que queramos generar.
LISTADO.
      MOVE 7 TO WINLIN MOVE 35 TO WINCOL.
      MOVE " LISTADO " TO WINTIT MOVE 9 TO WINTITLO.
      MOVE WCB TO WIN (2).
      DISPLAY WIN (2) LINE 13 COL 35 LOW ERASE CONTROL
          "WINDOW-CREATE, FCOLOR=WHITE, BCOLOR=BROWN".
LISTA0.
      DISPLAY "CLASIFICAR POR.." LINE 1 COL 2.
      DISPLAY "SEPARADOR ?? ..." LINE 4 COL 2.
      DISPLAY "IMPRIMIR POR ..." LINE 5 COL 2.
      ...
Programa Agenda (Imagen 5)

Como habréis podido comprobar el tipo de programación que he utilizado no es nada estructurado y utilizo mucho la sentencia GO.
En la actualidad no programo así, pero aquí se muestra tal y como lo hacía antes. Los programas funcionan correctamente y exactamente igual, pero me he dado cuenta que la programación estructurada es mucho mas fácil de leer y entender.

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