Cobol - Inicializar variables numéricas a nueves

Solemos estar acostumbrados a inicializar variables numéricas en Cobol de la siguiente manera:

     MOVE ZEROES        TO WS-VAR-NUM

Y en todas sus vertientes:

     MOVE ZEROS         TO WS-VAR-NUM
     MOVE 0                 TO WS-VAR-NUM

Pero, ¿qué pasa cuándo queremos inicializarla con un valor distinto de 0 (por ejemplo, 9)? Si nuestro objetivo es inicializarla con nueves, sólo tenemos que hacer lo siguiente:

     MOVE ALL '9'         TO WS-VAR-NUM

Seguro que te choca ver '9' en lugar de 9, pero es así y me ha funcionado. Pruébalo tú y nos cuentas.

Humor - Mail con adjuntos

Easytrieve

En http://www.consultoriocobol.com/p/y-mas.html encontrarás diferentes secciones y una de ellas está dedicada a easytrieve.

También he encontrado la entrada de un blog en donde se explica muy bien los conceptos básicos y necesarios del easytrieve. Pincha aquí para acceder a dicha entrada. 

Humor - Las claves

Humor - El kamasutra (versión Linux)

HOST - cómo tener un emulador HOST

Os dejo el siguiente link (http://www.hercules-390.eu/) en donde se explica como descargar y configurar un PC como emulador de HOST System/370, ESA/390 y z/Architecture Emulator.

Cobol: Utilizar cursor en un programa

En ocasiones tenemos que utilizar cursores en los programas cobol. Así que en esta entrada aprenderemos a declarar y utilizar los cursores en un programa cobol.

La declaración de un cursor no es más que definir una SELECT a una tabla. Dicha consulta puede devolvernos 0, 1 o más filas; todo depende de si existe en la tabla alguna/s fila/s que cumpla/n o no la cláusula WHERE definida.

Lo primero de todo es definir el cursor en la WORKING-STORAGE SECTION del programa cobol tal y como se indica a continuación:

          EXEC SQL

             DECLARE CURSOR CUR_TABLA FOR

              SELECT CAMPO1,

                         CAMPO2,

                         CAMPO3,

                         CAMPO4,

                         CAMPO5

                FROM TABLA1

               WHERE CAMPO1 = :TABLA1.CAMPO1

                   AND CAMPO2 > :TABLA1.CAMPO2

               ORDER BY CAMPO1, CAMPO2

          END-EXEC

También declararemos un switch:

          01 SW-FIN-CURSOR.

              05 SI-FIN-CURSOR             PIC X(01) VALUE 'S'.

              05 NO-FIN-CURSOR            PIC X(01) VALUE 'N'.

Hay tres operaciones básicas que podemos hacer con un cursor:

• Apertura del cursor: OPEN <Nombre_del_cursor>
• Lectura del cursor: FETCH <Nombre_del_cursor>
• Cierre del cursor: CLOSE <Nombre_del_cursor>

En el programa existirán 3 párrafos que realizarán dichas operaciones:

     APERTURA-CURSOR.

         SET NO-FIN-CURSOR TO TRUE

         MOVE ENT-CAMPO1   TO CAMPO1 OF TABLA1

         MOVE ENT-CAMPO2   TO CAMPO2 OF TABLA1

           EXEC SQL

              OPEN CUR_TABLA

           END-EXEC.

         IF SQLCODE NOT EQUAL ZEROES

             PERFORM FIN-ERR-DB2

         END-IF.

     LECTURA-CURSOR.

           EXEC SQL

              FETCH CUR_TABLA

                 INTO :TABLA.CAMPO1,

                            :TABLA.CAMPO2,

                            :TABLA.CAMPO3,

                            :TABLA.CAMPO4,

                            :TABLA.CAMPO5

           END-EXEC.

         EVALUATE SQLCODE

             WHEN ZEROES

                  CONTINUE

             WHEN +100

                  SET SI-FIN-CURSOR TO TRUE

             WHEN OTHER

                  PERFORM FIN-ERR-DB2

         END-EVALUATE.

     CIERRE-CURSOR.

           EXEC SQL

              CLOSE CUR_TABLA

           END-EXEC.

         IF SQLCODE NOT EQUAL ZEROES

             PERFORM FIN-ERR-DB2

         END-IF.

Nota: ENT-CAMPO1 y ENT-CAMPO2 serán dos variables previamente declaradas en el programa cobol y tienen que ser del mismo tipo que las variables CAMPO1 y CAMPO2 de la tabla TABLA1. Ambas variables deberán contener algún valor válido (espacios o 'CAD' si son alfanuméricos, ceros o 59 si son numéricos, ect).  También se podría haber asignado valores dichos valores directamente sin la utilización de variables auxiliares.

Cuando se realice el PROCESO en el programa cobol, tendremos algo como lo siguiente:

          PERFORM APERTURA-CURSOR

          PERFORM LECTURA-CURSOR

          PERFORM TRATAMIENTO-CURSOR

               UNTIL SI-FIN-CURSOR

          PERFORM CIERRE-CURSOR

En el párrafo TRATAMIENTO-CURSOR se ejecutará el código que se tenga que ejecutar con el objetivo de tratar la información leída del cursor y por último se ejecutará una lectura del cursor. Es decir, tendríamos algo como lo siguiente:

     TRATAMIENTO-CURSOR.

          <<Sentencias>>

          PERFORM LECTURA-CURSOR.

Esto ha sido todo, espero que te haya servido de ayuda.

Humor - Blogging

Blogging: lo que nos gustaría y lo que realmente es.

Jcl: Comprimir una librería

Podemos comprimir una librería de la siguiente manera:

1) Ir a la opción 3.4 del ISPF.

2) Aparece una pantalla en la que pondríamos la librería en cuestión. Pulsamos INTRO.

3) Tras pulsar nos situamos en una pantalla en la que aparece algo como:

     ----------------------------------------------------
                <<librería-indicada>>
    ***********End of Data Set list***********

4) Estando ahí (en lo indicado en el punto 3), sólo tenemos que poner Z al lado del nombre de la librería. Pulsamos INTRO y ya tendríamos la librería comprimida.

Hasta aquí todo muy fácil pero podemos enfrentarnos al hecho de comprimir una librería en la que no podemos hacer esto debido a que si lo hacemos aparece un mensaje de error que nos dice lo siguiente: Data set in use. Pues bien, llegados a este punto, ¿qué haríamos? Muy fácil, ejecutar el siguiente jcl:

//XXXXXXXX JOB (20,000),'COMPRIMI',NOTIFY=XXXXXX,                 

//             CLASS=T,MSGCLASS=X                                 

//************** COMPRIMIR LIBRERIA *************************

//COMPRIM EXEC PGM=IEBCOPY,REGION=1024K

//SYSPRINT DD  SYSOUT=*                          

//I        DD  DISP=SHR,DSN=EJEM.LIBR.COMP  

//SYSUT3   DD  SPACE=(CYL,(2,1))     

//SYSUT4   DD  SPACE=(CYL,(2,1))     

//SYSIN    DD  *                                       

     COPY OUTDD=I,INDD=I                              

En el DSN pondríamos la librería a comprimir. En nuestro ejemplo,  sería la librería EJEM.LIBR.COMPR

Si ejecutamos dicho jcl, terminaría correctamente y comprimiría la librería en cuestión.

Cobol: Utilizar cursor for update en un programa

En ocasiones tenemos que utilizar cursores en los programas cobol. En una entrada anterior ya vimos cómo se definían los cursores y cómo se manejaban (pinchar aquí para ver dicha entrada). 

También existen los cursores FOR UPDATE. Estos cursores se utilizan cuando queremos seleccionar una serie de filas de una tabla y modificar la información contenida en dichas filas. Así que en esta entrada aprenderemos a declarar y utilizar los cursores for update en un programa cobol.

La declaración de un cursor no es más que definir una SELECT a una tabla. Dicha consulta puede devolvernos 0, 1 o más filas; todo depende de si existe en la tabla alguna/s fila/s que cumpla/n o no la cláusula WHERE definida.

Lo primero de todo es definir el cursor en la WORKING-STORAGE SECTION del programa cobol tal y como se indica a continuación:

          EXEC SQL

             DECLARE CURSOR CUR_TABLA FOR

              SELECT CAMPO1,

                         CAMPO2,

                         CAMPO3,

                         CAMPO4

                FROM TABLA1

               WHERE CAMPO1 = :TABLA1.CAMPO1

               FOR UPDATE OF CAMPO2, CAMPO3, CAMPO4

          END-EXEC

También declararemos el mismo switch de la entrada anterior, es decir:

          01 SW-FIN-CURSOR.

              05 SI-FIN-CURSOR             PIC X(01) VALUE 'S'.

              05 NO-FIN-CURSOR            PIC X(01) VALUE 'N'.

Se mantienen las tres operaciones básicas que vimos en la anterior entrada:

• Apertura del cursor: OPEN <Nombre_del_cursor>
• Lectura del cursor: FETCH <Nombre_del_cursor>
• Cierre del cursor: CLOSE <Nombre_del_cursor>

En el programa existirán los 3 mismos párrafos vistos en la anterior entrada (APERTURA-CURSOR, LECTURA-CURSOR, CIERRE-CURSOR). Se incluirá un párrafo más para realizar la actualización de la información:

     ACTUALIZACION-CURSOR.

         EXEC SQL

              UPDATE TABLA1
                      SET CAMPO2 = :UPD-CAMPO2,
                              CAMPO3 = :UPD-CAMPO3,
                              CAMPO3 = :UPD-CAMPO4
                 WHERE CURRENT OF CUR_TABLA

           END-EXEC.

         IF SQLCODE NOT EQUAL ZEROES

             PERFORM FIN-ERR-DB2

         END-IF.

Nota: UPD-CAMPO2, UPD-CAMPO3 y UPD-CAMPO4 serán variables previamente declaradas en el programa cobol. Tienen que ser del mismo tipo que los campos CAMPO2, CAMPO3 y CAMPO4 de la tabla TABLA1. Las mencionadas variables deberán contener algún valor válido (espacios o 'CAD' si son alfanuméricos, ceros o 59 si son numéricos, ect).
De este modo no tendríamos que indicarle al UPDATE la clave del registro a actualizar, pues actualizaría el registro recuperado por el FETCH.

Cuando se realice el PROCESO en el programa cobol, tendremos algo como lo siguiente:

          PERFORM APERTURA-CURSOR

          PERFORM LECTURA-CURSOR

          PERFORM TRATAMIENTO-CURSOR

               UNTIL SI-FIN-CURSOR

          PERFORM CIERRE-CURSOR

En el párrafo TRATAMIENTO-CURSOR se ejecutará el código que se tenga que ejecutar con el objetivo de tratar la información leída del cursor y por último se ejecutará una lectura del cursor. Es decir, tendríamos algo como lo siguiente:

     TRATAMIENTO-CURSOR.

          <<Sentencias>>
          PERFORM ACTUALIZACION-CURSOR

          PERFORM LECTURA-CURSOR.

Esto ha sido todo, espero que te haya servido de ayuda.

Humor - Los programadores cobol

Dedicado a los programadores cobol.

Jcl: Cómo realizar búsquedas

Imagínate que quieres hacer una búsqueda masiva de algún elemento o mensaje en todos los programas cobol que hay en producción e incluso en las cadenas o copys de producción. Pues es tan fácil como lanzar (o submitir) en desarrollo el siguiente jcl:

//SEARCH EXEC PGM=ISRSUPC,PARM(SRCHCMP,'ANYC')
//NEWDD  DD DSN=LIBRERIA1,DISP=SHR
//               DD DSN=LIBRERIA2,DISP=SHR
//               DD DSN=LIBRERIA3,DISP=SHR
//OUTDD   DD SYSOUT=(X)
//SYSIN    DD *
   SRCHFOR 'CADENA-A-BUSCAR'
/*

Cabe destacar el área del NEWDD: ahí irán todas las librerías de producción que contengan programas cobol, copys, cadenas,... en las que queramos realizar la búsqueda. Cabe destacar que en función del cliente para el que estemos trabajando estas librerías serán distintas de un sitio a otro. Es decir, si estamos en un cliente X la librería de las cadenas se llamará de una forma pero en un cliente Y se llamará de otra forma. Y con el resto de las librerías pasa exactamente lo mismo. Por lo tanto, en función del cliente en el que estés, las librerías que pongas aquí variarán.

Otra cosa importante es el SRCHFOR porque a continuación pondrás entre comillas aquello que quieras buscar en las librerías indicadas en el NEWDD.

De manera que sólo tendrías que hacer un SUB, es decir, submitir o lanzar dicha cadena en desarrollo para saber qué elementos utilizan dicha cadena que quieras buscar.

Humor - Si los médicos trabajasen como los informáticos

Ésto es lo que sucedería si los médicos tuviesen que trabajar como los informáticos:

Jcl: Generar un fichero para exportar a EXCEL

En ocasiones tenemos que generar por jcl un fichero para exportar posteriormente a Excel.

Podemos hacer dos cosas:

1º) Generar el fichero sin cabecera
2º) Generar el fichero con cabecera

Optar por el primer punto es lo más fácil porque sólo tendríamos que preparar un programa que generase un fichero de salida cuya copy o estructura sería algo como lo siguiente:

     01 W-REG-SALIDA.
          05 W-CAMPO1         PIC X(10).
          05 W-FILLER1          PIC X(01) VALUE ';'.
          05 W-CAMPO2         PIC X(10).
          05 W-FILLER2          PIC X(01) VALUE ';'.
           :
           :
          05 W-CAMPO9         PIC X(10).
          05 W-FILLER9          PIC X(01) VALUE ';'.

Cuando se ejecutase el programa en cuestión tendríamos un fichero del tipo:

     CAMPO1;CAMPO2;.....;CAMPO9;

De manera que podríamos descargar dicho fichero como un txt, y pasarlo a Excel de una vez que lo tuviéramos descargado en el equipo como txt.

Aunque optar por la segunda opción no significa mayor dificultad ni complejidad  pero sí habría que tener en cuenta alguna cosa. Veamos este caso en profundidad.

En este caso también tenemos que tener un programa que genere un fichero de salida con una estructura similar a la que acabamos de ver para la primera opción. Pero en este caso tenemos que tener en cuenta la longitud del fichero, y ¿por qué? Muy fácil, la respuesta está en relación al fichero que generemos con la cabecera. Es decir, tras ejecutar el programa que genere el fichero de salida con la estructura antes vista (contiene los datos separados por puntos y coma) se ejecutará el siguiente paso:

//PASOCAB     EXEC PGM=SORT
//SORTIN    DD *
//SORTOUT DD DSN=<<FICHERO-CABECERA>>,
//                DISP=(,CATLG,DELETE)
//                SPACE=(TKK,(10,1),RLSE),
//                DCB=(RECFM=FB,LRECL=621,BLKSIZE=27945)
//SYSOUT   DD SYSOUT=*
//SYSIN      DD *
   SORT FIELDS=COPY
   OUTREC FIELDS=(C'NOMB-COL1;',C'NOMB-COL2;',...C'NOMB-COLN;')

En el paso de SORT que acabamos de ver se genera un fichero con la cabecera que posteriormente tendrá la Excel. Cabe destacar lo siguiente: en el OUTREC FIELDS tenemos que, para incluir una nueva cabecera para encabezar una determinada columna, se debe poner

             C'NOMBRE-CABECERA;'

Y aquí viene lo importante: te tienes que fijar con qué longitud se genera este fichero. La longitud con la que se genere este fichero te la tienes que apuntar. Si has leído con atención, el fichero de salida generado en el programa ejecutado con anterioridad al paso antes mostrado debe tener la misma longitud que el fichero de cabecera generado en el paso de SORT que acabamos de ver.

Llegados a este punto tenemos dos ficheros:

• Fichero de datos: generado por programa en el que tenemos la información requerida separada por puntos y comas, teniendo algo como lo siguiente CAMPO1;CAMPO2;.....;CAMPO9;
• Fichero de cabecera: generado mediante un paso de SORT (ver el paso de SORT incluido), teniendo algo como lo siguiente CAB1;...;CAB9;

Lo último que tenemos que hacer es unir ambos ficheros en uno solo mediante un paso de SORT como el siguiente:


//PASOFEX     EXEC PGM=SORT
//SORTIN    DD DSN=<<FICHERO-CABECERA>>,DISP=SHR
//                 DD DSN=<<FICHERO-DATOS>>,DISP=SHR
//SORTOUT DD DSN=<<FICHERO-EXPORTAR-EXCEL>>,
//                 DISP=(,CATLG,DELETE)
//                 SPACE=(TKK,(10,1),RLSE),
//                 DCB=(RECFM=FB,LRECL=621,BLKSIZE=27945)
//SYSOUT   DD SYSOUT=*
//SYSIN      DD *
   SORT FIELDS=COPY

El resultado es un fichero en el que la primera línea es la cabecera (CAB1;...;CAB9;) y el resto de filas son los datos (CAMPO1;...;CAMPO9;). En este punto podríamos descargar el fichero resultante como un txt, y pasarlo a Excel de una vez que lo tuviéramos descargado en el equipo como txt.

En lugar de separar cada uno de los campos con el símbolo ; también existe otra variante que consiste en separar los campos mediante tabuladores. Para realizar esto tendríamos que definir el símbolo tabulador (X'05') de manera que en el programa cobol que generase el correspondiente fichero de datos tendríamos que tener una estructura como la siguiente:

     01 W-REG-SALIDA.
          05 W-CAMPO1         PIC X(10).
          05 W-FILLER1          PIC X(01) VALUE X'05'.
          05 W-CAMPO2         PIC X(10).
          05 W-FILLER2          PIC X(01) VALUE X'05'.
           :
           :
          05 W-CAMPO9         PIC X(10).

          05 W-FILLER9          PIC X(01) VALUE X'05'.

Esto ha sido todo por hoy. Espero que os haya resultado de utilidad.