En el post anterior Creación de un Subfile - DDS - Parte 1 creamos las DDS de las tablas donde se almacenará la información.
Ahora diseñaremos la pantalla principal donde se mostrará la información.
Arrancamos SDA (STRSDA) y seleccionamos la opción 1. Diseñar
pantallas. Ponemos el nombre y biblioteca de nuestro fuente. Yo lo he llamado
TAGENDA.
El aspecto de la pantalla con el subfichero será el siguiente:
La pantalla se compone de 3 partes.
- Registro de Control. Es la “cabecera” del subfichero.
- Registro de Subfichero. Son los datos que se mostrarán mediante paginaciones.
- Formato de Pie. Registro tipo RECORD que mostrará las teclas de función.
Los pasos a seguir para crear el registro de control y del
subfichero mediante SDA son
Crear un nuevo registro tipo SFL (ponerle nombre SFL01). Nos pedirá el
registro de control, que llamaremos CTL01
A continuación seleccionamos las palabras clave.
Para este ejemplo no vamos a seleccionar ninguna palabra clave del subarchivo,
por lo que pulsamos INTRO para seleccionar las palabras clave del control del
subarchivo. Nos saldrá una lista:
Para nuestro ejemplo, seleccionaremos:
- Palabras clave generales.
- Diseño pantalla subarchivo
- Seleccionar palabras clave reg.
Palabras clave generales
Deberemos rellenar los campos para que queden igual
que en la imagen:
Las palabras clave seleccionadas son:
- “Visualizar registros subarchivo” - SFLDSP, condicionándolo al indicador 90. Esto significa que cuando se active el indicador 90, se mostrará el subfichero.
- “Visualizar Registro Control” – SFLDSPCTL, sin condicionamiento para que aunque el subfichero esté vacío, se muestre la cabecera.
- “Borrar registros subarchivo” – SFLCLR, condicionado a que el indicador 90 esté apagado. Si os fijáis, es la negación de visualizar registros de subarchivo. Esto lo hemos hecho así para que se haga una u otra cosas, es decir, o mostramos el subfichero o lo limpiamos, pero no ambas a la vez.
- “Indicar más registros” - SFLEND. Tiene el mismo indicador que el SFLDSP. Esta palabra sirve para añadir la anotación de “Más…” en la parte de abajo del subfichero, indicando que hay más páginas que mostrar. Con *MORE añadimo el “Más…”. Si seleccionamos *SCRBAR se mostrará el subfichero con una barra para hacer scroll.
El resto de palabras clave para este ejemplo no las
usaremos, aunque en ejemplos posteriores sí las utilizaremos.
Diseño Pantalla Subarchivo
Aquí seleccionamos el número de registros que se cargarán en el
subfichero y el número de registros que se verás en cada página en pantalla.
Como nuestro primer ejemplo será de un subfichero de carga parcial, lo
dejaremos de la siguiente forma:
Es decir, se cargará el subfichero con el máximo de
registros permitidos (9999) y se mostrarán de 15 en 15.
Definir palabras clave registro
Dentro de esta opción, se nos abrirán más opciones disponibles:
Nosotros seleccionaremos:
Palabras clave de indicador. Aquí seleccionaremos las teclas de función.
En nuestro caso sólo tendrá el F3=Salir, por lo que lo indicaremos de la
siguiente forma:
Palabras clave de recubrimiento. Marcaremos
únicamente el OVERLAY. Ahora tendremos ya los dos nuevos formatos generados en
nuestra pantalla:
Ahora que tenemos creados los formatos, debemos diseñarlos. Para ello seleccionamos el CTL01 y lo diseñamos con la
opción 12. Lo mismo con el SFL01, que debería quedar así (en este ejemplo sólo mostraremos nombre, apellido y teléfono):
Para mostrar el teléfono con el formato nnn-nnn-nnn
he usado una máscara de edición, tal y como podéis ver:
Llamaremos a los campos SLF01NOM, SFL01APE y SFL01TEL
respectivamente.
Por último nos queda generar el registro del pie, donde se mostrarán las
teclas de función. Para ello añadiremos un nuevo registro tipo RECORD, llamado
PIE01. Éste registro contendrá solo el literal de la tecla F3.
Y ya tenemos nuestra pantalla generada. Sólo nos falta compilarla y preparar el cobol que controlará el subfichero. Pero eso será en un futuro post.
Un saludo.
