|
 |
 |
8.- Opción de Listado
página(s) : 1/2 (1877 palabras totales en este texto) (20675 Lecturas) 
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.
... |
 |
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.
| | (2/2) |
|
|