Consultorio Cobol

JCL Avanzado II. Operaciones aritméticas con OUTREC.

2012-05-09T08:00:00.000+02:00

Este es un ejemplo de como podemos operar con la información de un fichero usando la opción OUTREC del programa SORT.

//SORT001 EXEC PGM=SORT
//SORTIN DD DSN=nombre.fichero.entrada1,DISP=SHR
//SORTOUT DD DSN=nombre.fichero.salida1,
// DISP=(,CATLG,DELETE),SPACE=(CYL,(500,100))
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(I,L,Ti,O,D,TO=Tf,LENGTH=L)

I – Inicio. Posición donde empieza el campo.
L – Longitud máxima del campo.
Ti - Tipo de dato inicial:
     CH - Alfanumérico
     ZD - Numérico
     BI - Hexadecimal (campos COMP)
     PD - Empaquetado con o sin signo(campos COMP-3)
O - Operador:
     ADD - Suma
     SUB - Resta
     MUL - Multiplicación
     DIV - División
D – Dato de la operación
Tf - Tipo de dato final
L - Longitud del campo convertido

La razón por la que incluimos el tipo de dato inicial y final es que, si no lo hacemos, perderemos el formato del campo.
En lugar de indicar SORT FIELDS=COPY podríamos indicar cualquier tipo de ordenación.

Ejemplo 1: Añadir uno al saldo del fichero de empresas.

----+----1----+----2----+----3----+----4----+
000000002EMPRESA CAFETERIA NOVELTY 00110000
000000001EMPRESA LANAS MARUJA      00220000
000000004EMPRESA ASESORIA ASOCIA   00100000
Fórmula:
SORT FIELDS=COPY
OUTREC FIELDS=(1,35,36,8,ZD,ADD,+1,TO=ZD,LENGTH=8)

Resultado 1:

----+----1----+----2----+----3----+----4----+
000000002EMPRESA CAFETERIA NOVELTY 00110001
000000001EMPRESA LANAS MARUJA      00220001
000000004EMPRESA ASESORIA ASOCIA   00100001

Como podéis ver en el último campo todas las cantidades se ven incrementadas en 1.

Si quisiésemos cambiar el formato hay que tener en cuenta que la longitud del fichero de salida cambiaría.

Ejemplo 2:Añadir 5 al saldo del fichero de empresas y convertirlo a COMP-3.

----+----1----+----2----+----3----+----4----+
000000002EMPRESA CAFETERIA NOVELTY 00110000
000000001EMPRESA LANAS MARUJA      00220000
000000004EMPRESA ASESORIA ASOCIA   00100000
Fórmula:
SORT FIELDS=COPY
OUTREC FIELDS=(1,35,36,8,ZD,ADD,+5,TO=PD,LENGTH=5)

Resultado 2:

----+----1----+----2----+----3----+----4----+
000000002EMPRESA CAFETERIA NOVELTY
FFFFFFFFFCDDDCEC4CCCCECDCC4DDECDEE40010544444
000000002547952103165359910565533800100C00000
---------------------------------------------
000000001EMPRESA LANAS MARUJA
FFFFFFFFFCDDDCEC4DCDCE4DCDEDC4444440020544444
000000001547952103151204194110000000200C00000
---------------------------------------------
000000004EMPRESA ASESORIA ASOCIA
FFFFFFFFFCDDDCEC4CECEDDCC4CEDCCC4440000544444
000000004547952101252699101263910000100C00000

La operación se aplica al campo inmediatamente anterior indicado en el OUTREC. En ambos ejemplos veis que por un lado hemos indicado que queremos sacar en salida la información de la posición 1 ocupando 35, y después de la 36 ocupando 8, para la cual se aplica la operación "sumar 1".

Podéis probar con todas las operaciones : )

JCL Avanzado I. Incluir condiciones IF THEN

2012-05-07T08:00:00.000+02:00

Actualizado: Paso para comprobar si un fichero existe y otro modo de incluir condiciones IF/ELSE.

Os dejo otra pequeña utilidad para que un jcl ejecute un paso o no en función de una condición.
Vamos a aplicar las condiciones para hacer que un jcl ejecute un paso u otro en función de si un fichero tiene datos o está vacío

Lo primero que hacemos es verificar que el fichero tiene datos o no:

//**=======================================================*
//** PASO01 - COMPRUEBA SI EL FICHERO TIENE DATOS O ESTÁ VACIO
//**=======================================================*
//PASO01   EXEC PGM=IDCAMS
//IN       DD DSN=nombre.fichero.prueba1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  PRINT INFILE(IN) COUNT(1)
  IF MAXCC=12 THEN SET MAXCC=4
/*
Lo segundo es incluir la condición en el paso para que se ejecute en función de éste:

//**=======================================================*
//** PASO02 - REALIZA EL PASO SI SE CUMPLE LA CONDICIÓN
//**=======================================================*
//PASO02   EXEC SORTD,COND=(4,EQ,PASO01)
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=nombre.fichero.prueba1,DISP=SHR
//SORTOUT  DD DSN=nombre.fichero.prueba2,
//            DISP=(,CATLG),
//            SPACE=(CYL,(100,100),RLSE)
//SYSIN    DD *
  SORT FIELDS=COPY
Posibles resultados:

- Si existe y tiene datos --> El primer paso dice que todo es correcto (MAXXCC=0) y se ejecuta el segundo paso.
- Si existe pero está vacío --> El primer paso da un MAXXCC=4 y no se ejecuta el siguiente paso
- Si no existe --> El jcl abenda dando un FLUSH

Si lo que quieres es lo contrario, es decir, que ejecute el paso solo cuando el fichero esté vacío, pon: COND=(0,EQ,PASO01) en vez de COND=(4,EQ,PASO01).

NOTAS:
- Si se quiere aplicar la condición a más pasos posteriores únicamente añadir el COND=(X,EQ,PASO01) en cada paso.
- Ojo con poner correctamente el nombre del paso en el COND=(0,EQ,PASO01). Puede ser cualquier nombre pero debe coincidir con el que hace la validación de fichero vacío.

Otra manera de incluir condiciones IF/ELSE:
Vamos a construir un paso de JOB que comprueba si un fichero existe.
OJO! No estamos comprobando si lleva datos, sólo si existe.

//**=======================================================*
//** PASO01 - COMPRUEBA SI EL FICHERO EXISTE
//**=======================================================*
//PASO01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT ENTRIES (nombre.fichero.prueba1) ALL
IF LASTCC NE 0 THEN DO
    SET MAXCC=4
    END
/*
//**********************************************************
//**CONDICION PARA EJECUTAR EL SIGUIENTE PASO
//**SOLO SI EL FICHERO EXISTE*
//**********************************************************
//CONDIC1 IF (PASO01.RC > 0) THEN
//* NO EJECUTA BLOQUE CONDIC1 PORQUE EL FICHERO NO EXISTE
//CONDIC1 ELSE
//*******************************************************
//** PASO 02 A EJECUTAR. POR EJEMPLO UN SORT:
//*******************************************************
//PASO02 EXEC SORTD
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=nombre.fichero.prueba1,DISP=SHR
//SORTOUT DD DSN=nombre.fichero.prueba2,
//           DISP=(,CATLG),
//           SPACE=(CYL,(100,100),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
/*
//CONDIC1 ENDIF

En primer lugar utilizamos el programa IDCAMS para comprobar si el fichero existe con la instrucción LISTCAT. Si el fichero no existe, el Return Code (RC) será 4.

Lo siguiente que hacemos es crear un paso CONDIC1 con la sentencia IF, donde preguntamos si el RC del PASO01 es mayor que cero. Si es mayor que cero significa que el fichero no existe, por lo que no haremos nada. En otro caso, ejecutamos los siguientes pasos del JOB.

OJO! Todas las partes de un mismo IF deben ir precedidas del mismo nombre de paso. En nuestro ejemplo CONDIC1.
Todo IF debe terminar con un ENDIF.
La sentencia ELSE no es obligatoria.

Viaje al cerebro de un banco

2012-05-04T13:03:00.002+02:00

Debido a la inaguración de BBVA de uno de los centros de proceso de datos más avanzados del mundo, SER Reporteros le dedica unos minutos de su espacio para describirnos como es un CPD por dentro.

Este CPD es el primer centro de Europa y el cuarto del mundo en recibir la doble certificación Tier IV (en diseño y construcción) que verifica que cuenta con los niveles máximos de fiabilidad y seguridad.

El nuevo CPD de BBVA está en Tres Cantos (Madrid), Tiene 20.000 metros cuadrados. Aloja equipos con hasta 10.000 procesadores de alta gama, frente a los 4800 del antiguo centro. Desde este centro se gestionan 44 millones de operaciones diarias.

Escuchar reportaje SER Reporteros

Utilidades REXX III: eliminar ficheros XXX.*

2012-04-25T08:00:00.000+02:00

En esta ocasión os traemos una utilidad en REXX para el caso de querer borrar todos los ficheros que empiecen por una determinada cadena.
Por ejemplo, queremos borrar todos los ficheros que se encuentren migrados de la aplicación APL y cuya nomenclatura sería algo así:
APL.NOMBRE.FICHERO

Podríamos ir uno por uno, pero según la cantidad de ficheros que haya podría llevarnos su tiempo...

No vamos a entrar en lo que significa el código REXX, pues se trata de desribir el uso de la utilidad, y no el código en sí. Quizás algún día nos metamos con el REXX pero de momento ya tenemos bastantes frentes abiertos!!

El código al completo debemos agradecérselo a los compañeros de www.ibmmainframes.com que son los que lo han compartido.
Gracias!!

JCL:

//STEP0020 EXEC PGM=IKJEFT01,DYNAMNBR=256,
//         PARM='NOMBREPGM SCAN DASD TAPE MIGR'
//* PARM VALUES - SCAN - LIST ONLY
//*             - RUN - PROCESS REQUESTS - DELETE OR HSM
//*             - DASD - LIST/DELETE DASD DATASETS
//*             - MIGR - LIST/DELETE MIGRATED DATASETS
//*             - TAPE - LIST/DELETE TAPE DATASETS
//*             - RCALL - LIST/RECALL SELECTED DATASETS
//*             - ARCH - LIST/MIGRATE SELECTED DATASETS TO ML1
//*             - ARCH2 - LIST/MIGRATE SELECTED DATASETS TO ML2
//SYSEXEC DD DSN=MI.LIBRERIA.REXX,DISP=SHR
//SYSOUT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//DATASETS DD *
P390A.BORRAR.**
/*
//EXCLUDE DD *
P390A.BORRAR.ESTENO
/*

Como veis el JOB incluye varias opciones:
Opción 1:
SCAN --> Lista en la salida (SYSOUT) los nombres de los ficheros encontrados.
RUN --> Ejecuta la acción elegida en opción 2 para los ficheros seleccionados (puede ser eliminar, migrar o "desmigrar").

Opción 2:
DASD --> Indica ficheros DASD
MIGR --> Indica ficheros migrados
TAPE --> Indica ficheros en cinta
RCALL --> Hace un RCALL de los ficheros seleccionados (los "desmigra")
ARCH --> Migra los ficheros seleccionados a ML1
ARCH2 --> Migra los ficheros seleccionados a ML2

En DATASETS indicaremos el prefijo de los ficheros a tratar. En nuestro caso P390A.BORRAR.**
Si quisiésemos mantener alguno de los ficheros (no queremos que se eliminen) lo indicaríamos en EXCLUDE con el nombre completo. En nuestro caso hemos indicado:
P390A.BORRAR.ESTENO

Al inicio del paso veréis que hemos indicado como parámetro (PARM) el nombre de nuestro programa REXX (NOMBREPGM). Además como opciones hemos indicado SCAN para que sólo nos liste los ficheros, y DASD, TAPE y MIGR para que liste los ficheros en esos estados.
En el SYSEXEC hemos indicado la librería donde se encuentra nuestro programa (MI.LIBRERIA.REXX).

Un ejemplo de lo que mostraría por SYSTPRT sería:

Podemos ejecutar una segunda vez con la opción RUN en lugar de SCAN y veríamos en el SYSTPRT:

Habiéndose borrado los ficheros que indica.

Lo hemos probado y podemos decir que funciona a la perfección. Esperamos que os sea útil.

Programa:

/* REXX ** INVOKE CSI VIA BATCH REXX PROCESS
** LIST OR DELETE ALL ENTRIES FOR GIVEN DSN PATTERNS
ALSO TO FILTER BY DASD TAPE OR MIGR */
ARG RUNTYP UNIT
IF RUNTYP <> "RUN" THEN RUNTYP = "SCAN"
IF POS('MIGR',UNIT) > 0 & POS('RCALL',UNIT) > 0 THEN DO
   SAY " "
   SAY "RECALL AND HDELETE BOTH SPECIFIED FOR MIGRATED DATASETS"
   SAY "EXIT REURN CODE 16 *** EXIT RETURN CODE 16 "
   EXIT(16)
END
"EXECIO * DISKR EXCLUDE ( STEM EXC. FINIS"
DO A = 1 TO EXC.0
    IF POS('*',EXC.A) > 0 THEN DO       EXCLDIT.A = STRIP(SUBSTR(EXC.A,1,POS('*',EXC.A)-1))
      GEN.A = "Y"
    END
    ELSE DO       EXCLDIT.A = STRIP(EXC.A)
      GEN.A = "N"
    END
END
"EXECIO * DISKR DATASETS ( STEM CAT. FINIS"
DO KCNT = 1 TO CAT.0
KEY = SUBSTR(CAT.KCNT,1,44)
MODRSNRC = SUBSTR(' ',1,4)
CSIFILTK = SUBSTR(KEY,1,44)
CSICATNM = SUBSTR(' ',1,44)
CSIRESNM = SUBSTR(' ',1,44)
CSIDTYPS = SUBSTR(' ',1,16)
CSICLDI = SUBSTR('Y',1,1)
CSIRESUM = SUBSTR(' ',1,1)
CSIS1CAT = SUBSTR(' ',1,1)
CSIRESRV = SUBSTR(' ',1,1)
CSINUMEN = '0002'X
CSIFLD1 = 'VOLSER '
CSIFLD2 = 'DEVTYP '
CSIOPTS = CSICLDI || CSIRESUM || CSIS1CAT || CSIRESRV
CSIFIELD = CSIFILTK || CSICATNM || CSIRESNM || CSIDTYPS || CSIOPTS
CSIFIELD = CSIFIELD || CSINUMEN || CSIFLD1 || CSIFLD2
WORKLEN = 4096
DWORK = '00001000'X || COPIES('00'X,WORKLEN-4)
RESUME = 'Y'
CATNAMET = SUBSTR(' ',1,44)
DNAMET = SUBSTR(' ',1,44)
DO WHILE RESUME = 'Y'
ADDRESS LINKPGM 'IGGCSI00 MODRSNRC CSIFIELD DWORK'
RESUME = SUBSTR(CSIFIELD,150,1)
USEDLEN = C2D(SUBSTR(DWORK,9,4))
POS1=15
DO WHILE POS1 < USEDLEN
   IF SUBSTR(DWORK,POS1+1,1) = '0'
    THEN DO
         CATNAME=SUBSTR(DWORK,POS1+2,44)
         IF CATNAME <> CATNAMET THEN
           DO
             CATNAMET = CATNAME
           END
         POS1 = POS1 + 50
         END
    DNAME = SUBSTR(DWORK,POS1+2,44)
    PRO = "Y"
    DO ZZ = 1 TO EXC.0
      EXCLDLN = LENGTH(EXCLDIT.ZZ)
      IF GEN.ZZ = "N" THEN DO
        IF STRIP(DNAME) = STRIP(EXCLDIT.ZZ) THEN PRO = "N"
      END
      ELSE DO
        IF STRIP(LEFT(DNAME,EXCLDLN)) = STRIP(EXCLDIT.ZZ) THEN PRO = "N"
      END
    END
    IF SUBSTR(DWORK,POS1+1,1) = 'C' THEN DTYPE = 'CLUSTER '
     ELSE
      IF SUBSTR(DWORK,POS1+1,1) = 'D' THEN DTYPE = 'DATA '
     ELSE
      IF SUBSTR(DWORK,POS1+1,1) = 'I' THEN DTYPE = 'INDEX '
     ELSE
      IF SUBSTR(DWORK,POS1+1,1) = 'A' THEN DTYPE = 'NONVSAM '
     ELSE
      IF SUBSTR(DWORK,POS1+1,1) = 'H' THEN DTYPE = 'GDS '
     ELSE
      IF SUBSTR(DWORK,POS1+1,1) = 'B' THEN DTYPE = 'GDG '
     ELSE
      IF SUBSTR(DWORK,POS1+1,1) = 'R' THEN DTYPE = 'PATH '
     ELSE
      IF SUBSTR(DWORK,POS1+1,1) = 'G' THEN DTYPE = 'AIX '
     ELSE
      IF SUBSTR(DWORK,POS1+1,1) = 'X' THEN DTYPE = 'ALIAS '
     ELSE
      IF SUBSTR(DWORK,POS1+1,1) = 'U' THEN DTYPE = 'UCAT '
     ELSE
      DTYPE = ' '
      POS1 = POS1 + 46
      NUMVOL = C2D(SUBSTR(DWORK,POS1+4,2))/6
      POS2 = POS1+8
      DO I=1 TO NUMVOL
        VOLSER.I = SUBSTR(' ',1,6)
      END
      DO I = 1 TO NUMVOL
        VOLSER.I = SUBSTR(DWORK,POS2,6)
        POS2 = POS2 + 6
      END
      IF NUMVOL > 1 THEN MVL = '+'
        ELSE
        MVL = ' '
      DEVTY1 = SUBSTR(DWORK,POS2,4)
      DEVTY2 = C2X(DEVTY1)
      IF SUBSTR(DEVTY2,5,2) = '20' THEN DELDEV = 'DASD'
        ELSE
          IF SUBSTR(DEVTY2,5,2) = '80' THEN DELDEV = 'TAPE'
            ELSE
              DELDEV = 'XXXX'
      IF DELDEV = 'DASD' THEN MIGLEV = ' ML1'
        ELSE
          MIGLEV = ' ML2'
      IF DNAMET <> DNAME THEN
      DO
        DNAMET=DNAME
        DNAM2 = STRIP(DNAME)
        IF DTYPE = 'GDG' | DELDEV = 'XXXX' THEN PRO = 'N'
        IF PRO = "Y" THEN DO
          IF VOLSER.1 = 'MIGRAT' THEN
            DO
             IF POS('MIGR',UNIT) > 0 | POS('RCALL',UNIT) > 0 THEN DO
               IF RUNTYP = "RUN" THEN
               DO
                 IF POS('MIGR',UNIT) > 0 THEN DO
                   SAY " HDEL FOR "DNAM2
                       " HDELETE '"DNAM2"'"
                 END
                 ELSE IF POS('RCALL',UNIT) > 0 THEN DO
                   SAY " HRECALL FOR "DNAM2
                       " HRECALL '"DNAM2"'"
                 END
              END
          ELSE
            SAY COPIES(' ',8) DTYPE DNAME VOLSER.1 MVL MIGLEV
          END
        END
        ELSE IF VOLSER.1 <> 'MIGRAT' THEN
          DO
           IF DTYPE = 'CLUSTER' & POS('DASD',UNIT) > 0 THEN DO
             IF RUNTYP = "RUN" THEN DO
                " DELETE '"DNAM2"'"
             END
             ELSE
               SAY COPIES(' ',8) DTYPE DNAME VOLSER.1 MVL DELDEV
             END
          ELSE DO
            IF DELDEV = 'TAPE' & POS('TAPE',UNIT) > 0
             THEN
             DO
               IF RUNTYP = "RUN" THEN
                 DO
                    " DELETE '"DNAM2"' NOSCRATCH "
                 END
               ELSE
                 SAY COPIES(' ',8) DTYPE DNAME VOLSER.1 MVL DELDEV
            END
           IF DELDEV = 'DASD' & POS('DASD',UNIT) > 0 ,
            & VOLSER.1 <> 'MIGRAT' THEN
            DO
             IF RUNTYP = "RUN" THEN
              DO
               " DELETE '"DNAM2"'"
              END
             ELSE
              SAY COPIES(' ',8) DTYPE DNAME VOLSER.1 MVL DELDEV
            END
           IF DELDEV = 'DASD' & POS('ARCH',UNIT) > 0 ,
            & VOLSER.1 <> 'MIGRAT' THEN
            DO
             IF SUBSTR(UNIT,POS('ARCH',UNIT)+4,1) = '2'
              THEN ML = "ML2"
              ELSE ML = ""
             IF RUNTYP = "RUN" THEN
              DO
               SAY COPIES(' ',8) DTYPE DNAME VOLSER.1 MVL DELDEV
                   " HMIG '"DNAM2"'" ML
              END
             ELSE
               SAY COPIES(' ',8) DTYPE DNAME VOLSER.1 MVL DELDEV
            END
         END
       END
    END
    POS1 = POS1 + C2D(SUBSTR(DWORK,POS1,2))
END
END
END
END

Respuestas de la semana

2012-04-23T08:00:00.001+02:00

Revisando las búsquedas que llevan a la gente a visitar el Consultorio Cobol, se nos ocurrió crear un artículo semanal en respuesta a esas búsquedas que puede que no hayan encontrado solución a su problema.
Contestaremos a aquellas cuestiones que no necesiten de un artículo entero para ser explicadas, es decir, que la solución se pueda dar en un par de frases.
Vamos con las de esta semana : )

Pregunta 1:
se puede validar una variable numerica y alfanumerica en cobol
Respuesta 1:
En cobol se puede comprobar si una variable contiene solo números (es numérica) o no con la siguiente sentencia:
01 WX-VARIABLE-NUM PIC 9(4) VALUE 1234.
...
IF WX-VARIABLE-NUM IS NOT NUMERIC
DISPLAY 'ERROR'
END-IF

Nota: la validación de IS NUMERIC e IS NOT NUMERIC es válida sólo para campos numéricos o numéricos comprimidos, es decir, PIC 9(X) y PIC 9(X) COMP-3.

Pregunta 2:
quitar numeracion amarrilla cobol
Respuesta 2:
Los números amarillos que aparecen a izquierda y derecha de un programa cobol se puden quitar escribiendo en la linea de comandos (Command ===>) los siguiente:
Primero escribimos NUM STD COB y pulsamos intro. Veréis que el código se mueve hacia la izquierda.
Luego escribimos UNNUM y pulsamos intro. Veréis que el código se vuelve a centrar y los números han desaparecido.

Pregunta 3:
indexed by in cobol como incrementar
Respuesta 3:
Cuando un índice en cobol está definido en una cláusula INDEXED BY, la manera de incrementarlo sería:
SET WI-INDICE UP BY 1
Esto sería para incrementarlo en 1, si le indicamos otro número se incrementaría en esa cantidad.

Pregunta 4:
cargar campos de longitud variable con load bmc vachar position
Respuesta 4:
Supongamos que tenemos un fichero de longitud variable (VB) donde el VARCHAR es el último campo del fichero, de tal modo que es el que hace que la longitud varíe.
Supongamos ahora que con ese fichero queremos hacer una LOAD a la tabla correspondiente. Pueden pasar dos cosas:

1- En la tabla, el campo VARCHAR no es el último:
En este caso tendremos que formatear el fichero con un OUTREC, para colocar el VARCHAR de modo que coincida con la posición en la tabla DB2. Para ello podemos pasar el fichero de VB a FB y después hacer el OUTREC (por ejemplo).
2- En la tabla, el campo VARCHAR también es el último:
Si la LOAD directamente del fichero VB no funciona, podemos pasarlo a FB y funcionará.

Para pasar de VB a FB podemos hacerlo por JCL o, más a lo bestia, hacer una copia y cuando nos pregunte si queremos copiar los atributos del fichero original le diremos que no, que se los queremos indicar (opción 2 de la imagen). Cambiaremos el Record Format de VB a FB, el Record Length a la longitud del fichero con el VARCHAR al máximo, y el Block size a algo coherente con la longitud.

No dudéis en enviarnos vuestras dudas directamente al correo del consultorio o a través del formulario de contacto.

Trasladar COBOL a las "nubes"

2012-04-20T13:19:00.004+02:00

Una nueva plataforma de desarrollo anunciada por la startup Heirloom Computing permitirá a las empresas mover las aplicaciones legacy (sistema heredado ) escritas en el venerable pero aún viable lenguaje COBOL, que generalmente se encuentra en mainframes, a una variedad de servicios de computación en la nube.

El sistema compila aplicaciones COBOL, así como las escritas para CICS de IBM, en código fuente Java. ELPaaS proporciona un ambiente de ejecución para las aplicaciones, las cuales pueden entonces correr sin ningún cambio en varias plataformas de servicio de nube, como Cloud Foundry de VMware, OpenShift de Red Hat y CloudBees, presumiendo que son ‘amigables con Java’, sostuvo Charles Krahling, vicepresidente ejecutivo de Ventas de Heirloom Computing.

La versión gratuita de ELPaaS se encuentra disponible para los desarrolladores individuales y tiene soporte y opciones de herramientas limitadas. Una edición estándar, disponible mediante suscripción, añade más herramientas, un SLA, un mejor desempeño de I/O y soporte para aplicaciones escritas para CICS.

Se encuentra disponible para “equipos que están desplegando aplicaciones de propósito general en la nube”.

La edición de gama alta Enterprise Edition soporta aplicaciones de “misión crítica” que requieren un alto nivel de desempeño de I/O.

“Cualquier cosa que le dé nueva vida a las aplicaciones legacy encontrará una audiencia atenta en las viejas organizaciones TI”, sostuvo Frank Scavo, presidente de investigación TI de la firma consultora Computer Economics.

Aunque cuesta mucho dinero mantener un mainframe, las aplicaciones COBOL que corren en ellos pueden ser muy estables y necesitan poco soporte, señaló Scavo. Por tanto, “muchos usuarios de COBOL tienen pocos incentivos para hacer la gigantesca inversión que se requiere para volver a escribir estas aplicaciones, solo para librarse del mainframe”.

Generalmente, las empresas mantienen las aplicaciones pero hacen outsourcing de las operaciones del mainframe con un tercero, sostuvo Scavo.

“El éxito no está garantizado”, agregó Scavo. “Los usuarios de mainframes son marcadamente conservadores. Se van a necesitar algunos casos de éxito para que en verdad los CIO de los mainframes lleguen a tomarlo en consideración”.

Nosotros, como usuarios de mainframe, somos también personas "marcadamente conservadoras", así que seremos suceptibles hasta ver un par de casos de éxito en grandes instalaciones.

Noticia cioperu.pe

Caja Sur: integración en BBK

2012-04-16T08:00:00.000+02:00

Desde el lunes 19 de marzo todos los sistemas de información de CajaSur operan ya sobre la Plataforma Tecnológica de BBK 'Besaide', que será además el sistema tecnológico común sobre el cual operarán todas las entidades que forman Kutxabank.

Culmina de esta manera un proceso de integración tecnológica y gestión del cambio que comenzó hace 15 meses y que se ha desarrollado en consonancia con los plazos y resultados estimados. La integración tecnológica de ambas organizaciones se da, por tanto, por concluida.

El proceso de integración ha consistido en la incorporación de los sistemas de CajaSur en la plataforma 'Besaide', así como en el desarrollo de módulos específicos que responden a las necesidades particulares de la entidad con sede principal en Córdoba. La integración engloba al conjunto de la soluciones tecnológicas de CajaSur y a todos sus canales de distribución: Oficinas, Banca por Internet, Portales, Autoservicio (Cajeros, Comercios, Venta de entradas) y Banca por Teléfono.

'Besaide' ofrece cobertura completa de las aplicaciones 'Core' del negocio bancario, tanto para clientes particulares como para empresas. Es, según CajaSur, un "todo" desarrollado con una arquitectura de aplicaciones que permite la reutilización de procesos, cubre la totalidad de las funciones y la operativa y está automatizada para todos los productos, servicios y canales.

Estaremos al tanto de como avanzan el resto de integraciones que se están produciendo en el panorama financiero español.

Noticia lainformacion.com

Wiseri.com: RRHH 3.0

2012-04-09T08:00:00.000+02:00

Desde hoy podéis ver en el blog un enlace a las ofertas de empleo de Wiseri.com relacionadas con cobol.

Se trata por un lado de un proyecto de colaboración, y por otro de ofrecer a nuestros lectores un acceso rápido a las ofertas de empleo del mundillo.

Wiseri no es un portal de empleo como los demás y la diferencia principal radica en que SI hay alguien al otro lado:

expertos en cada categoría realizan la selección de candidatos por cada oferta, lo que denominan wisors.

Vía Acerca de:

De esta manera el modelo garantiza a la empresa que varios profesionales con amplia experiencia serán quienes han revisado al candidato. Además, el profesional que esté seleccionando le ofrecerá al candidato en todo momento su valoración respecto a su candidatura. Con ello, si el wisor piensa que debe potenciar algún tipo de conocimiento o área este podrá decírselo para que mejore de cara a futuros procesos e incluso para llegar a ser wisor él mismo.

Podéis encontrar más información en su blog y no dejéis de visitar Wiseri.com : )

Blog Wiseri

Micro Focus: Conferencia de Desarrolladores 2012

2012-03-16T08:00:00.000+01:00

Micro Focus (LSE: MCRO.L), proveedor de aplicaciones de modernización, testing y soluciones de gestión, organizará la Conferencia Mundial de Desarrolladores de 2012, entre los días 16 y 18 de abril en Dallas, Texas, con la temática: El fututo inmediato es la nube.

El Cobol también camina por el sendero del cloud computing y ese será otro de los puntos clave de la Conferencia. Se darán a conocer casos de éxitos de migración de aplicaciones Cobol a la Nube, se tratará el futuro de estas aplicaciones, se valorarán las perspectivas de clientes y analistas.

Micro Focus estará presente en el evento junto a Microsoft con el que presentará sesiones conjuntas, practicas, demos, casos de clientes, así como compartir las novedades de la comunidad Cobol a nivel mundial.

La inscripción es totalmente gratuita y entre otras cosas tratará:

- El futuro del desarrollo de las aplicaciones COBOL
- Entender cómo enfrentar los retos del desarrollo de aplicaciones de gestión
- Perspectivas de clientes y Analistas en torno al COBOL, la nube y .NET
- Llevar las aplicaciones a la nube
- Visión del producto y Roadmaps de nuestro centro de desarrollo
- Sesiones técnicas, demos, panel de clientes
- Incluye sesión y demo en español

Inscripción en el evento

Desde el Consultorio Cobol, agradecemos la invitación recibida, pero por desgracia desplazarnos a Dallas nos es imposible. Esperemos que algún año caiga en Europa y allí estaremos : )

Noticia Diario Ti

COBOL/CICS vol.2: acceso a ficheros.

2012-03-02T08:00:00.000+01:00

En este artículo veremos un programa CICS que recoge información de la pantalla y actualiza un fichero VSAM. Al igual que en el ejemplo anterior, se trata de un programa conversacional, es decir, el código se ejecutará de principio a fin sin devolver el control al CICS en ningún momento (salvo al finalizar la ejecución).

En el artículo COBOL/CICS vol.1: primer contacto vimos como crear una transacción CICS y asociarla a nuestro programa, por lo que no volveremos a explicarlo.
En esta ocasión veremos como definir un fichero VSAM en CICS para que pueda ser utilizado por nuestro programa. El sistema será el mismo que para definir un programa.

Utilizaremos la transacción CEDA para definir el fichero.
Escribiremos CEDA DEFINE FILE
La información a rellenar será:
File
Group
DSNAme
Add = yes
BRowse = yes
DELete = yes
READ = yes
UPDATE = yes

Una vez definido, tendremos que instalarlo:
CEDA INSTALL FILE(FILE1)
Se debe rellenar el campo Group

Ahora si consultamos la transacción CEMT veremos que ya aparece nuestro fichero:
CEMT I FILE(FILE1)

Ya tenemos el fichero listo para usar.

Antes de meternos a ver el programa, vamos a ver las instrucciones CICS de acceso a fichero que vamos a utilizar.

STARTBR: Apertura del fichero

      EXEC CICS STARTBR
                FILE ('FILE1')
                RIDFLD (WX-CODIGO)
                KEYLENGTH (WX-LONG-CLAVE)
                GTEQ
                RESP (WX-RESP)
      END-EXEC.

Donde:
FILE1 es el nombre que le hemos dado a nuestro fichero en CICS.
RIDFLD es el campo clave del fichero.
KEYLENGTH es la longitud de la clave.
GTEQ indica mayor o igual.
RESP indicamos la variable donde guardaremos el código de respuesta.

DELETE: borra un registro del fichero

    EXEC CICS DELETE
              RIDFLD (WX-CODIGO)
              FILE ('FILE1')
              NOHANDLE
    END-EXEC.

Nota: si usamos NOHANDLE el código de respuesta lo tendremos en EIBRESP

WRITE: graba un registro

     EXEC CICS WRITE
               FILE ('FILE1')
               RIDFLD (WX-CODIGO)
               LENGTH (WX-LONG-REG)
               FROM (REG-VSAMKSDS)
               NOHANDLE
     END-EXEC.

Donde:
LENGTH es la longitud del registro
FROM es el nivel 01 que define la estructura del fichero

READ: lectura directa

     EXEC CICS READ
               RIDFLD (WX-CODIGO)
               FILE ('FILE1')
               INTO (REG-VSAMKSDS)
               LENGTH (WX-LONG-REG)
               NOHANDLE
     END-EXEC.

Donde:
INTO es el nivel 01 que define la estructura del fichero.

READNEXT: lectura del fichero

     EXEC CICS READNEXT
               INTO (REG-VSAMKSDS)
               RIDFLD (WX-CODIGO)
               FILE ('FILE1')
               KEYLENGTH (WX-LONG-CLAVE)
               RESP (WX-RESP)
     END-EXEC.

UPDATE: indica lectura con intención de actualizar

     EXEC CICS READ
               RIDFLD (WX-CODIGO)
               FILE ('FILE1')
               INTO (REG-VSAMKSDS)
               LENGTH (WX-LONG-REG)
               UPDATE
               NOHANDLE
     END-EXEC.

Nota: con UPDATE bloqueamos el registro para que no se pueda acceder a él mientras tanto

REWRITE: actualiza un registro

     EXEC CICS REWRITE
               FILE ('FILE1')
               LENGTH (WX-LONG-REG)
               FROM (REG-VSAMKSDS)
               NOHANDLE
     END-EXEC.

ENDBR: cierre del fichero

     EXEC CICS ENDBR
               FILE ('FILE1')
               RESP (WX-RESP)
     END-EXEC.

La semana que viene continuaremos el artículo con el código completo del programa y su ejecución. Esta no hay tiempo para más!

Nuevo CPD de Mapfre en Alcalá de Henares

2012-01-28T11:15:00.003+01:00

El nuevo CPD almacenará en 2013, cuando entre en funcionamiento, los datos de los siete millones de clientes de Mapfre. Esta instalación contará con un ratio de seguridad Tier III+ y dará empleo a 70 personas.

El nuevo centro de datos será el punto central de la infraestructura TIC de Mapfre desde el mismo momento en que entre en funcionamiento, en el año 2013, y contará con un ratio de seguridad Tier III+, lo que garantiza una fiabilidad de sus sistemas superior al 99,98 por ciento.

Estas instalaciones de última generación sustituirán al actual CPD de Seguro Directo España, ubicado actualmente en Majadahonda (Madrid). El nuevo centro de datos triplicará el espacio de almacenamiento de datos del centro actual y se une a otros centros que el grupo asegurador tiene en otros países del mundo, como Estados Unidos o Brasil.

Noticia ComputerWorld

CONSULTIRAS 35: "Comer en el trabajo"

2012-01-10T20:00:00.000+01:00

CONSULTIRAS 34: "El Gimnasio"

2011-12-28T08:00:00.000+01:00

Seamos sinceros con nosotros mismos, el gimnasio no va a cambiar lo que somos, simplemente nos cansará y nos hará gastar dinero, así que por favor, si queréis impresionar a alguien, hacerle caso a la siguiente consultira:

CONSULTIRAS: "Especial Navidad"

2011-12-21T08:00:00.001+01:00

Desde el Consultorio Cobol queremos desearos una FELIZ NAVIDAD.

De Cobol a Cobol .NET

2011-12-16T08:14:00.000+01:00

Microsoft ha llegado a un acuerdo tecnológico con Acciona Transmediterranea por el que esta compañía migrará su sistema actual de venta de billetes a una plataforma construida sobre Windows Azure. Concretamente, la solución propuesta por Microsoft, cuyos servicios de consultoría se encargarán de la integración, pasa por llevar a cabo la migración de la aplicación actual, basada en tecnologías mainframe de IBM, a Windows Azure mediante reingeniería del código Cobol actual a código COBOL .NET.

Según ha informado la propia compañía en un comunicado, el acuerdo permitirá mejorar el servicio prestado a los clientes de la operadora marítima, ya que obtendrán “una mejora sustancial del time to market en el desarrollo de nuevos servicios y aplicaciones”, gestionando los picos de demanda de un modo más eficiente. Con todo ello, Acciona Transmediterránea reducirá sus costes de operación y de manejo, “además de obtener mayores facilidades para encontrar recursos con las competencias adecuadas para trabajar con dichas tecnologías”.

“Este acuerdo supone un importante hito para Microsoft, daWindows Azure Acciona Transmediterraneada la relevancia que Acciona Trasmediterránea tiene en el negocio de los operadores marítimos”, explicó Rafael Sanz, director de Servicios de Microsoft Ibérica, tras dar a conocer el caso. “El hecho de que confíen su sistema de misión crítica de venta de billetes a Windows Azure, no sólo demuestra la capacidad y calidad de nuestros servicios de cloud computing, sino que además deja muy claras las ventajas que este modelo proporciona: un gran ahorro de costes y mayor flexibilidad para desarrollos futuros”.

Noticia ComputerWorld

CONSULTIRAS 33: "Crisis..."

2011-12-14T08:00:00.000+01:00

Crisis, palabro que actualmente está muy de moda (de más me parece a mi), todo el mundo tiene o está en crisis, pero cada uno a su manera...

Ejemplo 7: ficheros VB (longitud variable)

2011-12-12T08:00:00.000+01:00

En este ejemplo vamos a crear un programa que lee de un fichero de entrada de longitud fija y escriba en un fichero de salida de longitud variable.

JCL:

//******************************************************
//******************** BORRADO *************************
//BORRADO EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL FICHERO.DE.SALIDA
SET MAXCC = 0
//******************************************************
//*********** EJECUCION DEL PROGRAMA PRUEBA3 ***********
//P001 EXEC PGM=PRUEBA7
//SYSOUT DD SYSOUT=*
//ENTRADA DD DSN=FICHERO.DE.ENTRADA,DISP=SHR
//SALIDA DD DSN=FICHERO.DE.SALIDA,
//           DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(50,10)),
//         DCB=(RECFM=VB,LRECL=107,BLKSIZE=0)
/*

En este caso volvemos a utilizar el IDCAMS para borrar el fichero de salida que se genera en el segundo paso. Se trata de un programa sin DB2, así que utilizamos el EXEC PGM.
Para definir el fichero de entrada "ENTRADA" indicaremos que es un fichero ya existente y compartido al indicar DISP=SHR.
En la SYSOUT veremos los mensajes de error en caso de que los haya.
El fichero de salida se definirá como variable al indicar RECFM=VB, la longitud del fichero será la máxima que pueda tener (pues cada registro medirá diferente) indicada en LRECL=107.
Si sumamos las posiciones de la variable que define el fichero de salida en el programa, REG-SALIDA, veremos que suman 103. La razón de que se indique 107 en el JOB es que para los ficheros de longitud variable, el sistema reserva las 4 primeras posiciones para guardar la longitud, de ahí los 107 (103+4). Veremos más propiedades de los ficheros de longitud variable en otro artículo.

Fichero de entrada:
----+----1-
0000155501
0000155502
0000155503
0000255504
0000255505
0000355506
0000455507

Campo1: código de cliente
Campo2: código de producto

PROGRAMA:

IDENTIFICATION DIVISION.
PROGRAM-ID. PRUEBA7.
*=======================================================*
*     PROGRAMA QUE LEE DE FICHERO FB Y
*     ESCRIBE EN FICHERO VB
*=======================================================*
*
ENVIRONMENT DIVISION.
*
CONFIGURATION SECTION.
*
SPECIAL-NAMES.
     DECIMAL-POINT IS COMMA.
*
INPUT-OUTPUT SECTION.
*
FILE-CONTROL.
*
     SELECT ENTRADA ASSIGN TO ENTRADA
              STATUS IS FS-ENTRADA.
     SELECT SALIDA ASSIGN TO SALIDA
                   STATUS IS FS-SALIDA.
*
DATA DIVISION.
*
FILE SECTION.
*
* Fichero de entrada de longitud fija (F) igual a 11.
FD ENTRADA RECORDING MODE IS F
            BLOCK CONTAINS 0 RECORDS
            RECORD CONTAINS 10 CHARACTERS.
01 REG-ENTRADA PIC X(10).
*
* Fichero de salida de longitud variable (V).
FD SALIDA RECORDING MODE IS V
           BLOCK CONTAINS 0 RECORDS.

* Utilizando el depending on hacemos que el último campo

* tome diferentes longitudes dependiendo de REG-LONG
01 REG-SALIDA.
05 REG-CLIENTE PIC 9(5).
05 REG-LONG    PIC 9(4) COMP-3.
    05 REG-PRODUCTO.
       10 PRODUCTO PIC X OCCURS 1 TO 95 TIMES
                DEPENDING ON REG-LONG.
*
WORKING-STORAGE SECTION.
* FILE STATUS
01 FS-STATUS.
    05 FS-ENTRADA            PIC X(2).
       88 FS-ENTRADA-OK          VALUE '00'.
       88 FS-FICHERO1-EOF          VALUE '10'.
    05 FS-SALIDA         PIC X(2).
       88 FS-SALIDA-OK          VALUE '00'.
*
* VARIABLES
01 WB-FIN-ENTRADA           PIC X(1) VALUE 'N'.
    88 FIN-ENTRADA                    VALUE 'S'.
*

01 WI-PRODUCTO              PIC 9(3) COMP-3.
01 WX-CLIENTE-ANT           PIC 9(5).
*
01 WX-REGISTRO-ENTRADA.
    05 WX-ENT-CLIENTE        PIC 9(5).
    05 WX-ENT-PRODUCTO       PIC X(5).
*
01 WX-REGISTRO-SALIDA.
    05 WX-SAL-PRODUCTO       PIC X(5) OCCURS 19 TIMES.
*
************************************************************
PROCEDURE DIVISION.
************************************************************
* |     0000 - PRINCIPAL
*--|------------------+----------><----------+-------------*
* 1| EJECUTA EL INICIO DEL PROGRAMA
* 2| EJECUTA EL PROCESO DEL PROGRAMA
* 3| EJECUTA EL FINAL DEL PROGRAMA
************************************************************
00000-PRINCIPAL.
*
     PERFORM 10000-INICIO
*
     PERFORM 20000-PROCESO
       UNTIL FIN-ENTRADA
*
     PERFORM 30000-FINAL
     .
************************************************************
* |     10000 - INICIO
*--|------------+----------><----------+-------------------*
* | SE REALIZA EL TRATAMIENTO DE INICIO:
* 1| Inicialización de Áreas de Trabajo
* 2| Primera lectura de SYSIN
************************************************************
10000-INICIO.
*
     INITIALIZE WX-REGISTRO-SALIDA

     PERFORM 11000-ABRIR-FICHERO

     PERFORM LEER-ENTRADA

     IF FIN-ENTRADA
        DISPLAY 'FICHERO DE ENTRADA VACIO'

        PERFORM 30000-FINAL
     END-IF

   MOVE WX-ENT-CLIENTE TO WX-CLIENTE-ANT
   MOVE ZEROES         TO WI-PRODUCTO
     .
*
************************************************************
*   11000 - ABRIR FICHEROS
*--|------------------+----------><----------+-------------*
* Abrimos los ficheros del programa
************************************************************
11000-ABRIR-FICHEROS.
*
     OPEN INPUT ENTRADA
         OUTPUT SALIDA
*
     IF NOT FS-ENTRADA-OK
        DISPLAY 'ERROR EN OPEN DE ENTRADA:'FS-ENTRADA
     END-IF

     IF NOT FS-SALIDA-OK
        DISPLAY 'ERROR EN OPEN DE SALIDA:'FS-SALIDA
     END-IF
     .
*
************************************************************
* |     20000 - PROCESO
*--|------------------+----------><------------------------*
* | SE REALIZA EL TRATAMIENTO DE LOS DATOS:
* 1| Realiza el tratamiento de cada registro recuperado de
* | la ENTRADA
************************************************************
20000-PROCESO.
*
     IF WX-ENT-CLIENTE EQUAL WX-CLIENTE-ANT
*Para un mismo cliente, guardamos sus codigos de producto
PERFORM 21000-GUARDAR-PRODUCTO
     ELSE
*Al cambiar de cliente, escribimos el registro con
*los productos del cliente anterior
        PERFORM 22000-INFORMAR-SALIDA

        PERFORM ESCRIBIR-SALIDA
*Inicializamos las variables de trabajo
        MOVE ZEROES         TO WI-PRODUCTO
MOVE SPACES TO WX-REGISTRO-SALIDA
*Guardamos el siguiente cliente que vamos a tratar
MOVE WX-ENT-CLIENTE TO WX-CLIENTE-ANT
*Guardamos el codigo de producto del siguiente cliente
PERFORM 21000-GUARDAR-PRODUCTO

     END-IF

     PERFORM LEER-ENTRADA
     .
*
************************************************************
*    21000-GUARDAR-PRODUCTO
*--|------------------+----------><----------+-------------*
* GUARDAMOS EL CODIGO DE PRODUCTO PARA UN MISMO CLIENTE
* EN LA TABLA WX-REG-SALIDA
************************************************************
21000-GUARDAR-PRODUCTO.
*
     ADD 1 TO WI-PRODUCTO

     MOVE WX-ENT-PRODUCTO
       TO WX-SAL-PRODUCTO(WI-PRODUCTO)
     .
*
************************************************************
*    22000-INFORMAR-SALIDA
*--|------------------+----------><----------+-------------*
* INFORMAMOS LOS CAMPOS DEL FICHERO DE SALIDA
* 1 * COMO HEMOS CAMBIADO DE CLIENTE, REG-CLIENTE SERA EL
*     ALMACENADO EN WX-CLIENTE-ANT
* 2 * CALCULAMOS LA LONGITUD DE REG-PRODUCTO MULTIPLICANDO
*     EL NÚMERO DE PRODUCTOS ALMACENADOS POR SU LONGITUD (5)
* 3 * MOVEMOS LOS CODIGOS GUARDADOS EN WX-REGISTRO-SAL
*     A REG-PRODUCTO
************************************************************
22000-INFORMAR-SALIDA.
*
*1*
MOVE WX-CLIENTE-ANT TO REG-CLIENTE
*2*
COMPUTE REG-LONG = WI-PRODUCTO * 5
*3*
        MOVE WX-REGISTRO-SALIDA(1:REG-LONG)
          TO REG-PRODUCTO
     .
*
************************************************************
*    LEER ENTRADA
*--|------------------+----------><----------+-------------*
* Leemos del fichero de entrada
************************************************************
LEER-ENTRADA.
*
     READ ENTRADA INTO WX-REGISTRO-ENTRADA

     EVALUATE TRUE
        WHEN FS-ENTRADA-OK
             CONTINUE

        WHEN FS-ENTRADA-EOF
             SET FIN-ENTRADA TO TRUE

        WHEN OTHER
             DISPLAY 'ERROR EN READ DE ENTRADA:'FS-ENTRADA
     END-EVALUATE
     .
*
************************************************************
*    - ESCRIBIR SALIDA
*--|------------------+----------><----------+-------------*
* ESCRIBIMOS EN EL FICHERO DE SALIDA LA INFORMACION GUARDADA
* WX-REGISTRO-SALIDA
************************************************************
ESCRIBIR-SALIDA.
*
     WRITE REG-SALIDA

     IF FS-SALIDA-OK
        INITIALIZE WX-REGISTRO-SALIDA
     ELSE
        DISPLAY 'ERROR EN WRITE DEL FICHERO:'FS-SALIDA
     END-IF

     .
*
************************************************************
* |     30000 - FINAL
*--|------------------+----------><----------+-------------*
* | FINALIZA LA EJECUCION DEL PROGRAMA
************************************************************
30000-FINAL.
*
*Escribimos la información del último cliente
     PERFORM 22000-INFORMAR-SALIDA
     PERFORM ESCRIBIR-SALIDA
*Cerramos ficheros
     PERFORM 31000-CERRAR-FICHEROS

     STOP RUN
     .
*
************************************************************
* |     31000 - CERRAR FICHEROS
*--|------------------+----------><----------+-------------*
* | CERRAMOS LOS FICHEROS DEL PROGRAMA
************************************************************
31000-CERRAR-FICHEROS.
*
     CLOSE ENTRADA
           SALIDA

     IF NOT FS-ENTRADA-OK
        DISPLAY 'ERROR EN CLOSE DE ENTRADA:'FS-ENTRADA
     END-IF

     IF NOT FS-SALIDA-OK
        DISPLAY 'ERROR EN CLOSE DE SALIDA:'FS-SALIDA
     END-IF
     .

Fichero de salida:
----+----1----+----2----+
00001 ¬555015550255503
FFFFF005FFFFFFFFFFFFFFF
0000101F555015550255503
-------------------------
00002   5550455505
FFFFF000FFFFFFFFFF
0000201F5550455505
-------------------------
00003 ¬55506
FFFFF005FFFFF
0000300F55506
-------------------------
00004 ¬55507
FFFFF005FFFFF
0000400F55507

Gestión de aplicaciones de Banco Popular

2011-12-09T07:00:00.000+01:00

VASS y Banco Popular mantienen un acuerdo de colaboración por el que la aplicación SCM del Banco Popular gestiona el ciclo de vida de sus aplicaciones Host y Distribuido. A través de SCM se realiza una media de 300 pases diarios a los entornos de Test, Preproducción y Producción, automatizando los pasos de compilación y despliegue de más de 250 aplicaciones informáticas.

El sistema SCM del Banco Popular se integra con otras aplicaciones críticas: BMC Remedy - los cambios en el código pueden originarse debido incidencias reportadas en Remedy; Gestión de Proyectos - integración con la herramienta de gestión de proyectos del Banco Popular; el sistema SCM integra y despliega el código fuente almacenado en el gestor de versiones de CA Technologies, CA Software Change Manager, en el entorno distribuido (Harvest) y mainframe (Endevor).

Hay que tener en cuenta que las naturalezas (o tecnologías) del software automatizado por SCM incluyen: Java/J2EE ejecutándose en un servidor de aplicaciones IBM Websphere, IBM WebSphere Multichannel Bank Transformation Toolkit (BTT), Eclipse RCP, Cobol-CICS-DB2, Microsoft BizTalk, Teleproceso, y Ficheros sueltos y estáticos Web. Además, a través del sistema SCM se gestiona el trabajo de las factorías de software, permitiendo que empresas externas tengan acceso al sistema de manera simplificada.

El objetivo es que SCM gestione el 100% de las tecnologías desarrolladas en el Banco Popular

Noticia Computing

CONSULTIRAS 32: "Tomadura de pelo"

2011-12-07T10:04:00.001+01:00

Cuidado cuando vayas a pedir un aumento de sueldo, no te vayan a tomar el pelo...

Apertura del nuevo CPD del Santander

2011-12-02T07:00:00.000+01:00

El Ayuntamiento de Medio Cudeyo aprobó el mes pasado la concesión de la licencia de apertura al Centro de Procesamiento de Datos (CPD) de Banco Santander, cuya inauguración oficial está prevista para el próximo 16 de diciembre, tal y como anunció el propio presidente de la entidad, Emilio Botín.

En cuanto comience a operar, el CPD de Cantabria será el centro más avanzado de los cinco que Banco Santander tendrá en el mundo, después de haber inaugurado ya sus bases en Madrid, Londres, México y Brasil. Todos juntos contarán con suficiente capacidad para realizar más de tres billones de transacciones anuales, más de 10.000 transacciones de negocio por segundo y un billón de comunicaciones anuales a sus clientes.

La red informática del banco mantiene conectadas las setenta entidades financieras que posee el Santander repartidas por treinta países de todo el mundo, que suman 14.000 sucursales, 20.000 servidores de procesos y 220.000 ordenadores de sobremesa. El flujo de datos anual que se transfieren entre ellas alcanza un volumen de unos 4,5 millones de gigabites de una información especialmente sensible, cuyo tratamiento contribuirá a agilizar el CPD de Medio Cudeyo.

Una vez se encuentre a pleno rendimiento, se estima que el Centro de Procesamiento de Datos de Cantabria generará 250 empleos fijos, la mayor parte de ellos correspondiente a trabajadores de alta cualificación.

Noticia Diario Montes

CONSULTIRAS 31: "La voz de la experiencia..."

2011-11-30T09:02:00.001+01:00

Seguramente, a muchos de vosotros también os han hecho esta pregunta...

La maldición de la Razón

2011-11-25T14:23:00.001+01:00

A veces uno no sabe si es culpa del entrevistador o del entrevistado...Lo que está claro es que el resultado de la entrevista es bastante curioso.

Pregunta 1 - ¿Ha habido en la historia reciente fechas que, por su peculiaridad, hayan ocasionado problemas en los sistemas informáticos?
Respuesta 1 - Fue muy relevante lo que ocurrió el 9 del 9 de 1999. Los bancos utilizaban unos ficheros conocidos como «cobol». Los informáticos, al configurar ese fichero, tenían que poner cuatro nueves. Se dio entonces la coincidencia de que a esos cuatro nueves les seguían los otros cuatro que componían la fecha. ¿Qué ocurrió? Que el programa no seguía leyendo el archivo. Los gastos o ingresos de los clientes anteriores o posteriores al 9 del 9 de 1999 no quedaban registrados. Se produjeron colapsos. En todo caso, en cuanto al 11 del 11 de 2011, no hay nada que haga pensar que tenga una significación especial.
Crítica 1 - Si para la representación de una fecha se utilizan 4 dígitos, el 9 del 9 de 1999 sería 9999. En muchas instalaciones un valor con todo nueves venía a representar un valor desconocido (nulo).. Pero cuando una respuesta comienza con "los bancos utilizaban unos ficheros conocidos como «cobol»", no se puede esperar gran cosa.

Pregunta 2 - Hace precisamente 11 años se hablaba del célebre «efecto 2000». ¿Llegó a ocurrir algo?
Respuesta 2 - Sí que afectó a muchísimos softwares. Imagínate un listado de facturas. El programa, al ordenarlas por fecha, sólo comparaba los dos últimos digitos. Así, una factura del 2000 era más antigua que otra, por ejemplo, de 1978. Eso hizo mucho daños a los algoritmos que ordenaban las fechas.
Crítica 2 - Alguna tenía que acertar...

Pregunta 3 - ¿Se produjeron problemas también con la entrada del euro?
Respuesta 3 - Fue otro colapso, esta vez en 2002. Había que cambiar todas las operaciones de pesetas a euros. Así que, de trabajar con dos decimales se pasó a trabajar con céntimos. En la conversión podías toparte con tres decimales.
Crítica 3 - ¿De trabajar con dos decimales se pasó a trabajar con céntimos? ¿Eso es algún tipo de explicación? Se ve que sabe por donde van los tiros, pero la explicación deja que desear...

"Profesional, muy profesional", como diría un célebre gallego...

Entrevista Razón

CONSULTIRAS 30: "CV Espectacular"

2011-11-23T08:00:00.000+01:00

Normalmente, eres tu quien lucha por que uan empresa le contrate, intentando hacerle ver que eres perfectamente válido para el puesto de trabajo ofertado. Pero esto no siempre es así, cuando tienes un CV espectacular, son las propias empresas las que deberían de pelearse por contar contigo en sus filas...

(Pinchad en la imagen para verla más grande)

Windows y mainframes

2011-11-18T08:00:00.000+01:00

A partir del próximo 16 de diciembre, los mainframes zEnterprise de IBM, englobados en su familia System z, soportarán también aplicaciones Windows, junto con la compatibilidad de los sistemas operativos z/OS, AIX y Linux.

Esta nueva capacidad se incluye tanto dentro del modelo z196, como del equipo z114, que a partir de ahora, permitirán a las empresas gestionar también aplicaciones Windows desde una única arquitectura.

De acuerdo con IBM, “este anuncio constata la vitalidad que sigue teniendo el mundo del mainframe dentro de un mercado tan competitivo y dinámico como es el de los servidores”. Y es que, aún sigue siendo una pieza fundamental de negocios como la banca, los seguros, las administraciones centrales o los grandes retailers, entre otros. Aunque la heterogeneidad de las plataformas que existen en la actualidad, también exigen una adaptación al mundo del mainframe si quiere seguir siendo competitivo.

IBM respalda su negocio zEnterprise invirtiendo 1.500 millones de dólares en I+D, según asegura la propia compañía.

Noticia Computing

CONSULTIRAS 29: "La Máquina..."

2011-11-16T08:00:00.000+01:00

En la mayoría de los puestos de trabajo, existen lugares donde poder hacer un descanso y tomarse un café. Café que en muchos casos sale de una máquina de dudosa procedencia, ¿ese líquido marrón es producto de haber pasado agua caliente por ese polvo que antes eran granos de café? o por el contrario ¿simplemente es producto de haber pasado agua caliente por los conductos que llevan en la máquina mucho antes de que tu nacieras? Sea lo que fuere, la verdad se esconde detrás de un muro de metal y unos botoncitos, ¿alguién tiene el valor de preguntar que es lo que está bebiendo?, yo desde luego no.