jueves, 18 de abril de 2013

Citas Informáticas 1

Ley de Alzheimer de la programación: si lees un código que escribiste hace más de dos semanas es como si lo vieras por primera vez. - Dan Hurvitz

Qué gran verdad!!! ¿A quién no le ha pasado eso alguna vez? Tras dos semanas, o incluso menos, necesitas varios minutos para repasar el código y recordar qué hacía eso con la sensación de "¿Pero yo he hecho esto?¿En serio?"

lunes, 15 de abril de 2013

Cobol: Lista de FILE STATUS (para VSAM)

Hemos visto los posibles FILE STATUS que puede devolver un fichero secuencial cuando éste es manejado en un programa cobol. Pero, ¿qué sucede con los VSAM o ficheros indexados?

Aquí os dejo un listado de FILE STATUS para VSAM: FILE STATUS (para VSAM)

Este listado es el más completo que he encontrado porque en este listado existen algunos códigos, como el 19, que no son contemplados en otros listados que he encontrado en otras páginas.

lunes, 1 de abril de 2013

Cobol: apuntes en pdf

He reunido algunos apuntes en pdf de cobol que he encontrado en internet. Adjunto enlaces:


Los encontrarás en la página HOST de este mismo blog (bajo el epígrafe de Apuntes encontrados en internet).

Espero que os sean de utilidad.

lunes, 11 de marzo de 2013

viernes, 1 de marzo de 2013

Cobol: manejo de ficheros VSAM

     He encontrado unos apuntes realmente interesantes acerca del manejo de ficheros VSAM y de longitud variable. El enlace de dichos apuntes es el siguiente: http://es.scribd.com/doc/36278564/CODIFICACION-COBOL-VSAM

     Son unos apuntes muy útiles en caso de tener que manejar ese tipo de ficheros en un programa cobol.

     Desde aquí quiero agradecer al autor de dichos apuntes, taurus22, por compartirlos.

miércoles, 20 de febrero de 2013

Concurso para elegir al 'mejor estudiante de Cobol'

Micro Focus y la consultora AnyHelp han convocado un concurso para elegir al ‘mejor estudiante de Cobol’.

El ganador recibirá una beca de trabajo remunerada y por una duración de seis meses en AnyHelp y, además, entrará en los procesos de selección que tiene Micro Focus para su sede en el Reino Unido, ya que la compañía británica está reclutando profesionales hispanohablantes para su centro internacional de atención a usuarios, ubicado en Belfast (Irlanda).

El concurso (I Concurso Visual Cobol) está dirigido a estudiantes de Informática que estén matriculados en cualquier Facultad o Escuela autorizada. Para participar en la convocatoria es preciso presentar un proyecto en lenguaje de programación Cobol orientado al entorno empresarial.

El plazo de presentación concluye el 11 de marzo y los premios se otorgarán en el propio Congreso RITSI.

Mucha suerte a los participantes.



jueves, 17 de enero de 2013

Libro recomendado del mes

     El libro que os voy a recomendar en esta ocasión es Programación con Visual Basic .NET de Fernando Charte (editorial Anaya).

     La pega que puede tener este libro es que está indicado para gente con un nivel medio o avanzado en Visual Basic. Lo utilicé cuando aprendí a programar en Visual Basic .NET pero para aprender ciertas cosas, lo más básico del Visual Basic .NET lo aprendí gracias a unos apuntes que me dieron mientras estudiaba y a la página web de EL Guille (dicha página la encontrarás en la sección Páginas de Interés de este mismo blog).

     Por lo tanto, este libro os lo recomendaría siempre que tengas ciertas nociones de Visual Basic .NET, dichas nociones las puedes adquirir a través de los diversas páginas existentes (como la mencionada anteriormente) o a través de los apuntes que hay colgados en internet.

     Cabe destacar que este libro incluye un CD-ROM con los ejemplos indicados en el libro.

miércoles, 2 de enero de 2013

Cobol: conversiones entre tipos de datos (1)

En una entrada anterior, cuyo título era Cobol: redefines (pinchar aquí para ver dicha entrada),  vimos cómo utilizar la cláusula redefines. En uno de los ejemplos indicados se utilizaba esta cláusula para convertir un alfanumérico en un numérico. Ésto es muy útil cuando tenemos datos alfanuméricos del tipo '00005', '00045', '00345' y '02345' porque al redefinirlos en un dato numérico del tipo PIC 9(05) tenemos que obtendríamos los siguientes datos numéricos: 00005 (o lo que es lo mismo 5), '00045' (o lo que es lo mismo 45), '00345' (o lo que es lo mismo 345) y '02345' (o lo que es lo mismo 2345).

Pero, ¿qué sucede si nos llega un alfanumérico como '1     '? Como se puede observar en ese alfanumérico, lo que nos estaría llegando es un 1 y cuatro espacios en blanco detrás de ese 1. Si redefinimos dicho alfanumérico en un numérico como el indicado anteriormente, PIC 9(05), tendríamos el valor 1 con valores inadecuados en las cuatro posiciones siguientes y esto podría resultar indeseable al realizar un tratamiento de dicho dato numérico. Pues bien, en esta entrada vamos a ver cómo solventar este caso.

Veamos el siguiente ejemplo: queremos transformar la cadena '10        ' en una variable numérica 00010 (o 10) de tipo PIC S9(5). Para ello haremos el tratamiento que se explica a continuación.

Tenemos las siguientes variables:

  W100-NUM-DIAS -> PIC X(10)
  variable alfanumérica que podrá venir informado como '10        ' o '360       '

  W100-NUM-DIAS-N -> PIC S9(5)
  variable numérica en la que guardaremos el valor anterior transformado

  W400-INDICE   -> PIC 9(02)
  W400-CONT-NUM -> PIC 9(01)
  W400-IND-NUM  -> PIC 9(01)
  W400-IND-MAX  -> PIC 9(01)

Y la siguiente constante:

  W300-M-1 PIC S9(1) VALUE -1.

El código a ejecutar para realizar dicha transformación sería el siguiente:

     MOVE 1                         TO W400-CONT-NUM

     PERFORM UNTIL W100-NUM-DIAS(W400-CONT-NUM:1) IS NOT NUMERIC
                          OR W400-CONT-NUM > 5
           ADD 1                       TO W400-CONT-NUM
     END-PERFORM

     MOVE W400-CONT-NUM             TO W400-IND-NUM
     ADD W300-M-1                         TO W400-IND-NUM
     MOVE 5                                   TO W400-IND-MAX
     MOVE ZEROES                          TO W100-NUM-DIAS-N

     PERFORM UNTIL W400-IND-NUM = ZEROES OR W400-IND-MAX = ZEROES
          MOVE W100-NUM-DIAS(W400-IND-NUM:1) TO
                   W100-NUM-DIAS-N(W400-IND-MAX:1)  
          ADD W300-M-1                TO W400-IND-NUM
          ADD W300-M-1                TO W400-IND-MAX
     END-PERFORM.

Este fragmento podría incluirse en un párrafo cuyo nombre podría ser, por ejemplo, TRANSFORMAR-ALFANUM-NUM.


viernes, 21 de diciembre de 2012

Canal Visual Basic .NET

Para todos los que trabajan con Visual Basic .NET (o lo estudian) os interesa conocer la página web llamada canal visual basic .net que podréis encontrar en la sección Páginas de interés de este mismo blog.

miércoles, 5 de diciembre de 2012

Concurso Master the Mainframe España 2012

El Concurso Master the Mainframe España 2012 es una iniciativa de IBM para acercar a los universitarios de todo el mundo a la tecnología mainframe.

Tal y como se indica en la introducción del concurso, y citaré textualmente:

Para participar no es necesario contar con experiencia en el mundo del mainframe.

El concurso se desarrolla durante ocho semanas (del 22 de Octubre al 21 de Diciembre), con una dedicación total de 30 horas, y se divide en tres etapas en las que se desarrollarán ejercicios de dificultad creciente, trabajando sobre servidores reales. Para poder completar los ejercicios los participantes reciben documentación e instrucciones precisas
Lo único que se necesita para participar es espíritu competitivo y deseos de pertenecer a la comunidad tecnológica de IBM System z.

¿Por qué participar? ¡Por los premios!

Parte 1: Un teclado y ratón Lenovo para los 15 primeros participantes en resolver el ejercicio.
Parte 2: Un eBook para los 6 participantes con las más altas valoraciones del ejercicio.
Parte 3: - Tercero, cuarto y quintos clasificados: Un Tablet Samsung
             - Segundo clasificado: Un thinkpad Lenovo
             - Primer clasificado: Asistencia en el laboratorio de IBM de 
               Poughkeepsie (NY, USA) a un seminario sobre tecnología 
               Mainframe, junto con los ganadores del concurso de USA y 
               Sudamérica, compartiendo experiencias con expertos y ejecutivos 
               de IBM. (Días 27 a 29 de Marzo de 2013)

Si estás interesad@, aquí tienes la información para saber cómo participar.