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.

lunes, 26 de noviembre de 2012

El futuro de los ordenadores

De acuerdo al siguiente artículo de yahoo que puedes leer pinchando aquí se plantea si estamos ante el final de los PC's.

Según el artículo los ordenadores podrían llegar a ser sustituidos por otros gadgets (smartphones o tabletas) por las ventajas de estos últimos.

A pesar del auge de ciertos gadgets parece improbable, por lo menos en un futuro inmediato, que puedan llegar a sustituir a los ordenadores. Si a ello le añadimos que un ordenador con conexión a internet suele usarse para la descarga de películas y canciones, todavía parece más raro aún la sustitución del mismo por otro tipo de artilugios ya que, ¿dejarías un smartphone encendido toda la noche para descargarte una película con el riesgo de que se agote la batería a la mitad de la descarga? Creo que no. Lo mismo se podría  decir de una tableta. Esto último en lo referente al entorno doméstico. En el entorno laboral, el ordenador aún sigue ofreciendo una serie de características que le hacen, al menos por ahora, insustituible.

Por lo tanto, en el futuro inmediato que nos espera el ordenador no será sustituido por otros gadgets (smartphones o tabletas). Seguirán siendo complementarios.

lunes, 19 de noviembre de 2012

Libros informática en pdf

     He encontrado la siguiente página web con libros de informática en pdf:


     Espero que te sirva de utilidad y encuentres algún libro de tu interés.

viernes, 2 de noviembre de 2012

Cobol: Utilizar sentencias SQL: count

Si queremos realizar un select count(*), la sentencia sería:

              SELECT COUNT(*) INTO :NUM-REG :IND-NULL
              FROM {TABLA,}[WHERE CONDICIÓN]

Teniendo en cuenta lo siguiente:
  • Se deben definir NUM-REG e IND-NULL como PIC S9(04) COMP
  • A la hora de controlar el SQLCODE devuelto por esta sentencia SQL es muy importante la variable IND-NULL por lo siguiente:
               IF SQLCODE EQUAL ZEROES
                      IF IND-NULL EQUAL -1
                          MOVE ZEROES TO NUM-REG
                      END-IF
               ELSE
                   PERFORM ERROR-DB2
               END-IF

Esto es todo lo que hay que tener en cuenta sobre esta sentencia SQL.