universocobol.com
Universo Cobol: Posibles Errores RC de un JCL
http://www.universocobol.com/2013/09/posibles-errores-rc-de-un-jcl.html
Desarrollando en Cobol y Natural sobre Plataforma Mainframe. Miércoles, 25 de septiembre de 2013. Posibles Errores RC de un JCL. Cuando ejecutamos un JCL y el proceso finaliza de forma errónea, en el TSO se mostrará el código de error correspondiente en la columna Max-RC. Este código nos va a indicar la gravedad del problema ocurrido en nuestro job. Una vez haya concluido la ejecución de nuestro JCL, tendremos que ir al SDSF del TSO y verificar cuál ha sido el código obtenido en la columna Max-RC. Como v...
universocobol.com
Universo Cobol: Error JCL ABEND S837 al ejecutar un Job
http://www.universocobol.com/2015/05/error-jcl-abend-s837-al-ejecutar-un-job.html
Desarrollando en Cobol y Natural sobre Plataforma Mainframe. Jueves, 14 de mayo de 2015. Error JCL ABEND S837 al ejecutar un Job. El error JCL ABEND S837 es un retorno con el que nos vamos a encontrar de manera frecuente si trabajamos habitualmente con JCL Cobol. Si miramos la salida de uno de estos jobs fallidos, veremos que el detalle del problema es SYSTEM COMPLETION CODE=837 REASON CODE=00000008. Por tanto, la pregunta sería: ¿Cómo podemos solucionar este tipo de error? NO ACTIVE MODULE FOUND. 252 DA...
universocobol.com
Universo Cobol: Tipos de Ficheros Secuenciales Cobol (y 2)
http://www.universocobol.com/2014/06/tipos-de-ficheros-secuenciales-cobol-y-2.html
Desarrollando en Cobol y Natural sobre Plataforma Mainframe. Jueves, 19 de junio de 2014. Tipos de Ficheros Secuenciales Cobol (y 2). Hace algunas semanas comenzamos a ver los tipos de ficheros que podíamos dar de alta en el sistema operativo ZOS mediante la herramienta ISPF (ver post Tipos de Ficheros Secuenciales Cobol - 1. Hoy trataremos de finalizar el repaso de todas las tipologías disponibles de Data Sets. Data set name type BASIC. Permite compresión, reduciendo así el espacio precisado para almace...
universocobol.com
Universo Cobol: Tipos de Ficheros VSAM
http://www.universocobol.com/2014/05/tipos-de-ficheros-vsam.html
Desarrollando en Cobol y Natural sobre Plataforma Mainframe. Jueves, 15 de mayo de 2014. Tipos de Ficheros VSAM. Los ficheros VSAM (Virtual Storage Access Method) fueron un tipo de fichero muy específico creado en 1970 para tratar de mejorar el rendimiento de los ficheros secuenciales, que era la entidad que se usaba hasta entonces para almacenar información de forma masiva. En la actualidad, existen 4 tipos de ficheros VSAM: KSDS, RRDS, ESDS y LDS. 1º) Entry Sequenced Data Set (ESDS). Emplea dos subfich...
universocobol.com
Universo Cobol: Utilidad IEBCOPY para JCL
http://www.universocobol.com/2014/05/utilidad-iebcopy-para-jcl.html
Desarrollando en Cobol y Natural sobre Plataforma Mainframe. Jueves, 22 de mayo de 2014. Utilidad IEBCOPY para JCL. Ya hemos hablado en post anteriores sobre algunas de las Utilidades estándar para el tratamiento de JCL que vienen definidas en el sistema operativo ZOS. Otra de ellas es la denominada IEBCOPY, que nos puede ser muy útil para realizar el trabajo con miembros particionados (ficheros PDS) o Library (ficheros PDSE). SYSUT1 DD DSN=LIBPR.JJ00.PROCLIB,DISP=SHR. DISP=(NEW,CATLG,DELETE),. Es el mie...
universocobol.com
Universo Cobol: Declaración de CURSOR sobre una tabla DB2
http://www.universocobol.com/2013/11/declaracion-de-cursor-sobre-una-tabla.html
Desarrollando en Cobol y Natural sobre Plataforma Mainframe. Martes, 5 de noviembre de 2013. Declaración de CURSOR sobre una tabla DB2. Cuando queramos recuperar registros secuencialmente de una tabla DB2 no nos bastará con ejecutar simplemente una sentencia Fetch sobre la misma. Previamente, tendremos que haber declarado un CURSOR que nos permita realizar el acceso a la misma. Indicando cuáles son los campos que queremos que sean recuperados de la tabla DB2 en el momento de su acceso. Para especificar l...
universocobol.com
Universo Cobol: Utilidad JCL ICEMAN para realizar SORT (y 2)
http://www.universocobol.com/2015/05/utilidad-jcl-iceman-para-realizar-sort.html
Desarrollando en Cobol y Natural sobre Plataforma Mainframe. Jueves, 28 de mayo de 2015. Utilidad JCL ICEMAN para realizar SORT (y 2). Hace algunas semanas comenzamos a ver la funcionalidad de la utilidad JCL ICEMAN, herramienta empleada para la realización de SORT (ordenación) de registros de ficheros. Recordemos que, tal y como dijimos, se trata de la versión moderna de la utilidad clásica DFSORT. SORT FIELDS=(1,6,CH,A,8,25,CH,A),DYNALLOC=3390. Como vemos, la cláusula FIELDS del comando SORT viene acom...
universocobol.com
Universo Cobol: Utilidad IEFBR14 para JCL
http://www.universocobol.com/2013/07/utilidad-iefbr14-para-jcl.html
Desarrollando en Cobol y Natural sobre Plataforma Mainframe. Jueves, 18 de julio de 2013. Utilidad IEFBR14 para JCL. La Utilidad IEFBR14 ( Branch Register 14. Es una de las utilidades MVS de las que podemos beneficiarnos cuando estamos operando con Ficheros en un JCL. Estas utilidades son, básicamente, programas estándar que realizar funciones predefinidas por el Sistema Operativo. Casos típicos de uso:. BORRADO DE FICHERO DE SALIDA. DD001JJ DD DSN=JJ00.JJ0002CL.SALIDA1,. Se incluye la sentencia EXEC con...
universocobol.com
Universo Cobol: Creación de una Librería Cobol en TSO
http://www.universocobol.com/2013/09/creacion-de-una-libreria-cobol-en-tso.html
Desarrollando en Cobol y Natural sobre Plataforma Mainframe. Martes, 10 de septiembre de 2013. Creación de una Librería Cobol en TSO. Para la creación mediante TSO de una nueva Libería para albergar objetos Cobol hemos de realizar una serie de sencillos pasos. Con esta herramienta podremos disponer de todas las librerías que consideremos necesarias para tener ordenados nuestros objetos. Los pasos serían los siguientes:. 1º) Desde el Menú Principal de ISPF. Seleccionamos la opción 3 - Utilities. Creación ...
universocobol.com
Universo Cobol: Sentencia FETCH en una tabla DB2
http://www.universocobol.com/2013/11/sentencia-fetch-en-una-tabla-db2.html
Desarrollando en Cobol y Natural sobre Plataforma Mainframe. Viernes, 1 de noviembre de 2013. Sentencia FETCH en una tabla DB2. Cuando queramos extraer más de un registro de una tabla DB2 ya no nos será suficiente con emplear la sentencia SELECT (con la que únicamente se obtiene un registro). En cambio, tendremos que recurrir a la sentencia FETCH, que nos permitirá ir recuperando, de forma recurrente, registros de la tabla. S-OBSERVACIONES INDICATOR :I-OBS,. 2º) Posteriormente, tras la claúsula INTO.