Cobol: Lista de errores en excel

     Cuando un programa Cobol utiliza DB2, ficheros, IMS o DLI se pueden producir una serie de errores en la utilización de dichos elementos. También existen otro tipo de errores como los errores de usuario o los del sistema.

     Ahora os podeis descargar desde la sección de Descargas HOST existente en este mismo blog un archivo comprimido (.zip) que contiene una hoja excel con diferentes tipos de errores como por ejemplo errores DB2, errores de usuario, errores VSAM, errores de sistema, errores IMS y tabla de códigos de retorno DLI. El nombre del archivo es Lista de errores HOST en Excel.

     Espero que os sirva de utilidad.

Dónde estudiar ciclo formativo

Si queréis saber dónde estudiar un ciclo formativo, sólo tenéis que pinchar aquí para acceder a la entrada del blog titulado Blog de Formación Profesional. 

Espero que sirva de utilidad a todos los que queráis estudiar un ciclo formativo de FP.

FP en informática

Os recomiendo la siguiente página acerca de la FP de informática, muy interesante para todos los que quieran estudiar informática en FP:

          http://www.fp-informatica.es/

JCL: Eliminar bloques de filas mediante SORT

     Si de un fichero queremos eliminar las, por ejemplo, 100 primeras filas (dicho fichero tiene N+100 filas) supone que debemos copiar desde la fila 101. Para ello ejecutaremos un paso de SORT como el siguiente:

          //SORT01 EXEC PGM=SORT
          //SORTIN    DD DSN=FICH.PRUEBA.ENTRADA,DISP=SHR
          //SORTOUT DD DSN=FICH.PRUEBA.SALIDA,DISP=(,CATLG,DELETE),
          //                   SPACE=(CYL,1,1,RLSE),
          //                   DCB=(RECFM=FB,BLKSIZE=6144,LRECL=64)
          //                   UNIT=SYSDA
          //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
          //SYSOUT     DD SYSOUT=*
          //SYSIN        DD *
              OPTION SKIPREC = 100
              SORT FIELDS=COPY

O como el siguiente:

          //SORT01 EXEC PGM=SORT
          //SORTIN    DD DSN=FICH.PRUEBA.ENTRADA,DISP=SHR
          //SORTOUT DD DSN=FICH.PRUEBA.SALIDA,DISP=(,CATLG,DELETE),
          //                   SPACE=(CYL,1,1,RLSE),
          //                   DCB=(RECFM=FB,BLKSIZE=6144,LRECL=64)
          //                   UNIT=SYSDA
          //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)
          //SYSOUT     DD SYSOUT=*
          //SYSIN        DD *
              SORT FIELDS=COPY
                 SKIPREC = 100

Fíjate en lo marcado en azul, ya que eso es lo que hace que se ignoren las 100 primeras filas y se empiece a copiar a partir de la 101.

Estudiar Ingeniería Informática

     Si estáis pensando en estudiar ingeniería informática, os recomiendo la siguiente página web: http://www.gradomania.com/

     Si pincháis en el link anterior, veréis la siguiente pantalla:

     En Ingeniería y Arquitectura están detalladas todas las carreras relacionadas con la ingeniería y la arquitectura. Si hacéis clic en Ingeniería  en Informática, aparecerá un listado de todas las universidades españolas que ofrecen dicha titulación.

     Pero si lo preferís, en caso de que esteis interesados en saber si una  determinada universidad imparte la titulación de ingeniería informática, podéis ir a la sección Universidades (situada a la izquierda de la anterior pantalla) y hacer clic en la comunidad autónoma a la que pertenezca dicha universidad. Tras hacer clic aparece un listado de las universidades existentes en la comunidad autónoma elegida, de ese listado no tenéis más que hacer clic en la universidad que prefiráis y ver si imparte dicha titulación.

JCL: Copiar bloques de filas mediante SORT

     Si de un fichero queremos copiar las, por ejemplo, 100 primeras filas (dicho fichero tiene N+100 filas), ejecutaremos un paso de SORT como el siguiente:

          //SORT01 EXEC PGM=SORT
          //SORTIN    DD DSN=FICH.PRUEBA.ENTRADA,DISP=SHR
          //SORTOUT DD DSN=FICH.PRUEBA.SALIDA,
          //                     DISP=(,CATLG,DELETE),
          //                     SPACE=(CYL,1,1)
          //SORTWK01 DD SPACE=(CYL,(1,1),RLSE)
          //SYSOUT     DD SYSOUT=*
          //SYSIN        DD *
              OPTION STOPAFT = 100
              SORT FIELDS=COPY

O como el siguiente:

          //SORT01 EXEC PGM=SORT
          //SORTIN    DD DSN=FICH.PRUEBA.ENTRADA,DISP=SHR
          //SORTOUT DD DSN=FICH.PRUEBA.SALIDA,
          //                     DISP=(,CATLG,DELETE),
          //                     SPACE=(CYL,1,1)
          //SORTWK01 DD SPACE=(CYL,(1,1),RLSE)
          //SYSOUT     DD SYSOUT=*
          //SYSIN        DD *
              SORT FIELDS=COPY
               STOPAFT = 100

Fíjate en lo marcado en azul, ya que eso es lo que hace que se copien las 100 primeras filas.

JCL: Obtener fichero en claro mediante SORT

     Los ficheros pueden contener campos numéricos en hexadecimal. Si los editamos no veremos números sino caracteres extraños. Si quisiéramos ver el valor de dichos campos tendríamos que ejecutar el comando HEX ON. Si ese fichero con campos numéricos en hexadecimal tuviéramos que enviarlo a un usuario, y no quisiéramos que viera esos caracteres extraños, deberíamos ponerlo en claro. Ese fichero que se ha generado en claro es el que se envía puesto que los campos numéricos se ven con números y no con caracteres extraños. ¿Y cómo se pone un fichero en claro? Muy fácil. Se hace con un simple paso de SORT como el siguiente:

          //SORT01 EXEC PGM=SORT
          //SORTIN    DD DSN=FICH.PRUEBA.ENTRADA,DISP=SHR
          //SORTOUT DD DSN=FICH.PRUEBA.SALIDA,
          //                     DISP=(,CATLG,DELETE),
          //                     SPACE=(CYL,1,1)
          //SORTWK01 DD SPACE=(CYL,(1,1),RLSE)
          //SYSOUT     DD SYSOUT=*
          //SYSIN        DD *
              SORT FIELDS=COPY
              OUTREC FIELDS=(1,10,
                                         11,8,
                                         19,2,BI,M11,LENGTH=4,
                                         21,2,BI,M11,LENGTH=4,
                                         23,2,
                                         25,2,
                                         27,3,PD,M11,LENGTH=5,
                                         30,5,PD,M11,LENGTH=9,
                                         35,26,
                                         61,8)

     Lo que está marcado en rosa es para campos alfanuméricos (PIC X(-)). Como verás, todos tienen dos números: el primero indica la posición donde empieza el campo en el fichero FICH.PRUEBA.ENTRADA y el segundo indica la longitud del campo.

     Lo que está marcado en morado son campos numéricos de tipo:
          S9(4)COMP

     Lo que está marcado en azul es un campo numérico de tipo:
          S9(3)V9(2)COMP-3

     Lo que está marcado en verde oscuro es un campo numérico de tipo:
         S9(9)COMP-3

     Como observarás, al inicio de todas las filas que hacen referencia a campos numéricos empiezan con dos números: el primero indica la posición donde empieza el campo en el fichero FICH.PRUEBA.ENTRADA y el segundo indica la longitud del campo.

     Con el anterior paso de SORT, a partir de un fichero con campos numéricos en hexadecimal llamado FICH.PRUEBA.ENTRADA, generamos un fichero en claro llamado FICH.PRUEBA.SALIDA en el que los campos numéricos no se visualizan en hexadecimal sino que se representan mediante números.