Creación de un Subfile - DDS - Parte 2

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.