Estructuración de Reportes en COBOL: Definición de Variables
Contenido del curso
Para efectuar cualquier reporte en COBOL es necesario indicarle explícitamente toda la estructura que necesitamos definir, razón por la cual no solo estaremos definiendo las variables y los tipos de datos a los que estas pertenezcan, sino que también “maquetaremos” el reporte, esto significa que vamos a generar:
Una vez concluida esta “maquetación” realizaremos el código con el que vamos a escribir en el reporte de salida, estos puntos que hemos descrito previamente.
Los componentes que conforman la sección de variables
Switches
Los switches contienen un conjunto de valores especificados por el programador. Se comportan como valores Booleanos, es decir, que solo pueden contener 2 valores (apagado o encendido; cero o uno; verdadero o falso, si o no, blanco o negro; ya sabes por donde voy 😃 ). Dichos valores son definidos con una numeración a nivel 77, conteniendo a nivel 88 el valor que pueden contener una vez cumplida la condición. Para nuestro reporte vamos a definir el switch del siguiente modo:
77 WSS-FIN PIC X(03) VALUE ' '. 88 WSS-SI VALUE 'FIN'.
Es importante definir con claridad el nombre del switch, en este que vemos arriba sabemos que se trata de un switch que, cuando sea modificado en su valor, contendrá el valor FIN, lo que indica que hemos llegado al término del procesamiento que hayamos efectuado.
Áreas de trabajo
Aquí definimos los campos que hacen referencia al contenido del archivo de entrada.
01 WSV-AREAS-TRABAJO. 05 WSV-REG-ALUMNOS. 10 WSV-BOLETA-ALU PIC 9(04). 10 WSV-NOMBRE-ALU PIC X(25). 10 WSV-PROM-ALUMN PIC 99V9. 10 WSV-ALUMN-BEC PIC 9(01). 10 WSV-BECA-ALUMN PIC 9(07)V99. 05 WSV-ALUMNOS-LEI PIC 9(05) VALUE ZEROS. 05 WSV-ALUMN-IMP PIC 9(05) VALUE ZEROS. 05 WSV-TOT-MONT-BEC PIC 9(09)V99 VALUE ZEROS.
Cada uno de los campos que conforman los registros se especifican con la numeración a nivel 10. Veamos en el siguiente recuadro el mapeo de los campos en el archivo de entrada al programa COBOL y la correspondencia con la definición de las variables:
----+----1----+----2----+----3----+----4----+----5 ***************************** TOP OF DATA ******** 0021JOSE GANIMEDEZ MONTES 8561000236800 0000100 0850JIMENA HERNANDEZ GONZALEZ7200000000000 0000200 **************************** BOTTOM OF DATA ****** 10 WSV-BOLETA-ALU PIC 9(04). 10 WSV-NOMBRE-ALU PIC X(25). 10 WSV-PROM-ALUMN PIC 99V9. 10 WSV-ALUMN-BEC PIC 9(01). 10 WSV-BECA-ALUMN PIC 9(07)V99.
Describamos la funcionalidad de los últimos 3 campos contenidos en este bloque:
El campo WSV-ALUMNOS-LEI contendrá el acumulado de registros leídos y que serán escritos en los pies de página del reporte.
El campo WSV-ALUMN-IMP contendrá el acumulado de registros impresos y que serán escritos en los pies de página del reporte.
El campo WSV-TOT-MONT-BEC contendrá el acumulado de registros pertenecientes al monto de las becas de los estudiantes en el archivo de entrada y que será escritos en los pies de página del reporte.
Campos que conforman el título del reporte
Es necesario definir la estructura que contendrá el reporte, para que este sea fácilmente visualizado y comprendido por el área de negocio que va a hacer uso de dicha información, el reporte que vamos a estructurar contendrá la estructura de los títulos y encabezados como se muestran:
1 10 20 30 40 50 60 70 80 +---+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+ UNIVERSIDAD PLATZI FECHA: 07/04/2021 CONTROL DE ALUMNOS BECADOS PAGINA: 1
La definición de los campos del nombre del reporte la describimos a continuación:
01 WSC-TIT-1. 05 FILLER PIC X(30) VALUE SPACES. 05 WSC-T1 PIC X(18) VALUE 'UNIVERSIDAD PLATZI'. 05 FILLER PIC X(32) VALUE SPACES.
Como nuestro reporte va a contener una longitud fija de 80 caracteres, la suma de cada uno de los campos definidos dentro de la constante WSC-TIT-1 será igual a 80.
El campo FILLER es de tipo alfanumérico y tiene una longitud de 30 posiciones, este campo va de la columna 1 a la columna 30.
El campo WSC-T1 es de tipo alfanumérico y tiene una longitud de 18 posiciones, este campo va de la columna 31 a la columna 48.
El segundo campo FILLER es de tipo alfanumérico y tiene una longitud de 32 posiciones, este campo va de la columna 49 a la columna 80.
Campos que conforman el subtítulo del reporte
01 WSC-TIT-2. 05 FILLER PIC X(08) VALUE ' FECHA: '. 05 WSC-TIT-2-DIA PIC 9(02). 05 FILLER PIC X(01) VALUE '/'. 05 WSC-TIT-2-MES PIC 9(02). 05 FILLER PIC X(01) VALUE '/'. 05 WSC-TIT-2-ANIO PIC 9(04). 05 FILLER PIC X(08) VALUE SPACES. 05 WSC-TITU-2 PIC X(26) VALUE 'CONTROL DE ALUMNOS BECADOS'. 05 FILLER PIC X(14) VALUE SPACES. 05 FILLER PIC X(08) VALUE 'PAGINA: '. 05 WSC-TIT-2-PAGINA PIC ZZ9. 05 FILLER PIC X(03) VALUE SPACES.
Campos que definen los nombres de las columnas del reporte
La estructura del detalle del reporte será como sigue:
1 10 20 30 40 50 60 70 80 +---+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+ ------------------------------------------------------------------------------ BOLETA NOMBRE PROMEDIO BECADO MONTO DE BECA -------- ------------------------- -------- ------ -------------- 21 JOSE GANIMEDEZ MONTES 85.6 SI 2,368.00 850 JIMENA HERNANDEZ GONZALEZ 72.0 NO 0.00 ------------------------------------------------------------------------------
En el siguiente apartado definimos las constantes que determinan los nombres de las columnas:
01 WSC-GUIONES. 05 FILLER PIC X(01). 05 FILLER PIC X(78) VALUE ALL '-'. 05 FILLER PIC X(01) VALUE SPACES. 01 WSC-COL-DETA-1. 05 FILLER PIC X(03) VALUE SPACES. 05 FILLER PIC X(06) VALUE 'BOLETA'. 05 FILLER PIC X(12) VALUE SPACES. 05 FILLER PIC X(06) VALUE 'NOMBRE'. 05 FILLER PIC X(13) VALUE SPACES. 05 FILLER PIC X(08) VALUE 'PROMEDIO'. 05 FILLER PIC X(04) VALUE SPACES. 05 FILLER PIC X(06) VALUE 'BECADO'. 05 FILLER PIC X(08) VALUE SPACES. 05 FILLER PIC X(13) VALUE 'MONTO DE BECA'. 05 FILLER PIC X(01) VALUE SPACES. 01 WSC-GUION-DETA. 05 FILLER PIC X(01) VALUE SPACES. 05 FILLER PIC X(08) VALUE '--------'. 05 FILLER PIC X(04) VALUE SPACES. 05 FILLER PIC X(25) VALUE '-------------------------'. 05 FILLER PIC X(02) VALUE SPACES. 05 FILLER PIC X(08) VALUE '--------'. 05 FILLER PIC X(04) VALUE SPACES. 05 FILLER PIC X(06) VALUE '------'. 05 FILLER PIC X(07) VALUE SPACES. 05 FILLER PIC X(14) VALUE '--------------'.
Campos que contendrán la información y el detalle de los registros una vez que hayan sido procesados en nuestro programa
Ahora veamos la definición y el valor de los campos que recibirán los datos una vez que han sido procesados por nuestro programa:
01 WSV-DETALLE. 05 FILLER PIC X(04) VALUE SPACES. 05 WSV-DET-BOLETA PIC ZZZZ9. 05 FILLER PIC X(04) VALUE SPACES. 05 WSV-DET-NOMBRE PIC X(25). 05 FILLER PIC X(06) VALUE SPACES. 05 WSV-DET-PROMEDIO PIC ZZ.9. 05 FILLER PIC X(06) VALUE SPACES. 05 WSV-DET-BECADO PIC X(02). 05 FILLER PIC X(11) VALUE SPACES. 05 WSV-DET-BECA PIC Z,ZZZ,ZZ9.99.
El campo padre WSV-DETALLE contiene 10 campos hijos.
El campo WSV-DET-BOLETA es de tipo numérico (máscara) y tiene una longitud de 5 posiciones, este campo va de la columna 5 a la columna 9. Muestra el número de boleta.
El campo WSV-DET-NOMBRE es de tipo alfanumérico y tiene una longitud de 25 posiciones, este campo va de la columna 14 a la columna 38. Muestra el nombre del estudiante.
El campo WSV-DET-PROMEDIO es de tipo numérico (máscara) y tiene una longitud de 4 posiciones, este campo va de la columna 45 a la columna 48. Muestra el promedio del estudiante.
El campo WSV-DET-BECADO es de tipo alfanumérico y tiene una longitud de 2 posiciones, este campo va de la columna 55 a la columna 56. Muestra si el estudiante está becado o no.
El campo WSV-DET-BECA es de tipo numérico (máscara) y tiene una longitud de 12 posiciones, este campo va de la columna 68 a la columna 79. Muestra el valor o monto de beca que recibe el estudiante.
Todos los campos FILLER van a contener espacios, con el fin de formatear el contenido dentro del reporte
Campos que conforman los pies de página del reporte
Como punto final del reporte, tenemos los totales de los registros procesados en el programa, hablemos de ellos:
01 WSV-DETALLE-LEIDOS. 05 FILLER PIC X(01). 05 FILLER PIC X(29) VALUE 'TOTAL DE ALUMNOS LEIDOS : '. 05 WSV-TOT-LEIDOS PIC ZZ,ZZ9. 05 FILLER PIC X(44) VALUE SPACES. 01 WSV-DETALLE-IMPRESOS. 05 FILLER PIC X(01). 05 FILLER PIC X(29) VALUE 'TOTAL DE ALUMNOS IMPRESOS : '. 05 WSV-TOT-IMPRESOS PIC ZZ,ZZ9. 05 FILLER PIC X(44) VALUE SPACES. 01 WSV-DETALLE-SALARIOS. 05 FILLER PIC X(01). 05 FILLER PIC X(35) VALUE 'MONTO TOTAL DESTINADO A BECAS :'. 05 FILLER PIC X(30) VALUE SPACES. 05 WSV-DET-BECA2 PIC $$$,$$$,$$9.99.
Campos de linkage section
El siguiente apartado que veremos es la sección de enlace o LINKAGE SECTION. Esta sección describe los datos que son recibidos desde otro programa, en este caso, del JCL. Estos datos no son recibidos de manera automática por nuestro programa COBOL, sino que la LINKAGE SECTION hace referencia a la dirección en memoria donde el JCL está enviando los datos como parámetro. La LINKAGE SECTION debe codificarse inmediatamente antes que la PROCEDURE DIVISION. Y la manera en que recibimos los datos, siempre debe corresponder al campo definido dentro de la sección de enlace, como veremos a continuación.
En el JCL tenemos definido el parámetro así:
PARM='29032021'
Y en la LINKAGE SECTION de nuestro programa COBOL los campos con los que recibiremos la fecha los hemos definido del siguiente modo:
01 LK-FECHA. 05 FILLER PIC X(02). 05 LK-DIA PIC 9(02). 05 LK-MES PIC 9(02). 05 LK-ANIO PIC 9(04).
Siempre podrás volver a esta clase para revisar cualquier duda que tengas sobre la estructura del reporte que “cobra vida” gracias a la definición de todas estas variables. Y ahora que hemos profundizado en esto, pasemos a la siguiente clase para crear los procedimientos de nuestro programa. ¡Te veo allá!
Sebastian Heredia
David Arias Fuentes
Sebastian Heredia
Edwin Jesús
Usuario anónimo
User
Omar Ali El Assaad El Assaad
Ximena Thurman
Maga Hernandez
Usuario anónimo
UserMaga Hernandez
Usuario anónimo
UserCarajo esto esta super bueno, ahora entiendo miles de cosas mas.
. Solo tengo dos pequeñas preguntas que no me quedan claras.
PIC 99V9 o esta PIC 9(09)V99 VALUE ZEROS.
¿Cómo funciona exactamente esa v9
Hola Sebastián, el 9 hace referencia a dígitos y la V hace referencia al punto que habrá entre los dígitos.
Entonces cuando colocas:
PIC 99V9.
Quiere decir que tendrás una variable algo así 65.9
Y para esta otra:
PIC 9(09)V99 VALUE ZEROS.
Quiere decir que tendrás un total de nueve dígitos a la izquierda del punto que se coloca con la V y dos dígitos más a la derecha del punto, teniendo un ejemplo así: 000000000.00 por que los rellenas con ceros.
¡Muchísimas gracias @devarias!
ahhh osea que para mostrar por ejemplo una linea no tengo que ir llamando 1 por 1 en display, solamente tendría que llamar a la variable padre, que sería por ejemplo,
DISPLAY WSC-GUIONES.
y esto sería llamar a toda la jerarquía que tiene por dentro, y se "renderizaría" ------------------------------------(80)
ohhhhhhhhhhhhhhhhhhhhhhhh, qué pro, ahora si entendí el filler
Si, justo así. lo has hallado bien :)
en Los campos LK-ANIO de tipo numérico y de longitud 2 posiciones debería decir 4 posiciones
WOW, habia olvidado completamente para que se usaba el nivel 88
Cuando se dice "El campo padre", es algo asi como un vector, con posiciones?
Hola Maga. ¿cómo estas? que gusto tenerte en este curso. 😃
Como campo padre hacemos referencia al nivel de datos (campos hijos) que un campo puede contener.
El número de nivel se utiliza para especificar el nivel de datos en un registro. Se utilizan para diferenciar entre elementos elementales y elementos de grupo. Los elementos elementales se pueden agrupar para crear elementos de grupo.
hola cuando se habla de "El campo padre", se refiere a algo asi como un vector con posiciones?
Hola Maga. ¿cómo estas? que gusto tenerte en este curso. 😃
Como campo padre hacemos referencia al nivel de datos (campos hijos) que un campo puede contener.
El número de nivel se utiliza para especificar el nivel de datos en un registro. Se utilizan para diferenciar entre elementos elementales y elementos de grupo. Los elementos elementales se pueden agrupar para crear elementos de grupo.
Aquí te dejo un ejemplo:
DATA DIVISION. WORKING-STORAGE SECTION. 01 WSV-VARIABLES. 05 WSV-NUMERO-1 PIC 9(03) VALUE ZEROS. --> ELEMENTO ELEMENTAL 05 WSV-MASCARA PIC Z(03) VALUE ZEROS. --> ELEMENTO ELEMENTAL 01 WSC-CONSTANTES. --> ELEMENTO DE GRUPO 05 WSC-TEXTO-A PIC X(06) VALUE 'PLATZI' --> ELEM. ELEMENTAL 05 WSC-TEXTO-2. --> ELEM. ELEMENTAL QUE TAMBIEN ES DE GRUPO 10 WSC-TEX-2 PIC X(05) VALUE 'COBOL'.--> ELEM. ELEMENTAL
Déjame saber si ha funcionado esta explicación, estaré más que feliz de poderte leer. Saludos.
