Algunos códigos fuentes simples y útiles en RPGLE-FREE

 

 

 

 

 

 

 

Algunos códigos fuentes simples y  útiles en RPGLE-FREE

Para ejecutar comandos:

En la hoja D, declaramos:

d clpstm          s            300

d@runsyscmd       pr                  extpgm('QCMDEXC')

d cmd                          200a   options(*varsize) const

d cmdlen                        15p 5 const

Monitoreamos la sentencia para que el programa no falle estrepitosamente en caso de que haya un error de ejecución del comando.

En este ejemplo estamos haciendo un chkobj de un objeto. Si el objeto no existe, el error que arroja el sistema operativo es CPF9801 con La sentencia monitor y la operación  on-error, enviamos el mensaje al usuario sin que el programa deje de estar operativo.

monitor;

        clpstm = 'chkobj obj(' + %trim(libreria) +

                 '/' +  %trim(archivo) +

                ') objtype(*file)';

                @runsyscmd(clpstm : %size(clpstm));

                on-error;

                  Dsp_error = 'Archivo solicitado no existe';

    endmon;

Simplificando la Validando de Fechas

En la hoja D:

d  Wrk_Fecha        s               D   datfmt(*eur)

En el Ejemplo trabajamos la fecha en formato *EUR (DD.MM.AAAA), por lo que a nivel de programación esperamos que el usuario haya colocado la fecha en  formato *Eur o que la fecha venga de un archivo generado con ese formato. Sin embargo, cabe destacar que este ejemplo es aplicable a cualquier formato con el que se desee trabajar.

Detectamos que la fecha es inválida pero no especificamos la razón (si es por el día, el mes o el año) cada programador puede refinar el código si así lo desea.

monitor;                               

  Wrk_fecha = %date(Fecha:*EUR);       

  on-error;                             

  dsp_error = 'Fecha  Inválida';

Endmon;

SQL Embebido - Sentencia USING y algo mas...

 

 

          SQL EMBEBIDO

          Sentencia USING

Cuando hacemos SQL dinámicos  requerimos construir dinámicamente la instrucción SELECT para extraer los registros que necesitamos de la base de datos. Muchas veces  las condiciones de selección son cambiantes  porque los valores de búsqueda son distintos dependiendo del proceso. En el programa, utilizamos variables  que contienen el valor de búsqueda de uno o varios campos dentro de las tablas de datos.  Las variables en el algoritmo de programación van teniendo valores  cambiantes y no es posible  colocar en Hard Code (código duro)  la sentencia SELECT del SQL. La sentencia “USING” permite solucionar este inconveniente.

 

Supongamos que tenemos que generar un reporte de inventario para varias filiales de una corporación. Tenemos en la base de datos una tabla de empresas filiales:

01= filia1  02= filial2  03 = filial3

En RPG FREE

1.-Declaramos las variables de trabajo para construir la sentencia dinámica

D Varsql1         s           1000a    Inz(*Blanks)

D V_Sql1          s           1000a

2.-Construimos la sentencia dinámica.

 (Como no sabemos la compañía que hay listar  colocamos = ?

exec sql set :V_SQL1 =       

  'select *    '||           

  'from INVENTARIO   '||         

  'Where CIA = ? '    ||  

  'order by CIA';        

3.-Ejecutamos el PREPARE

exec sql Prepare varsql1 From :v_sql1;

4.-Declaramos el Cursor.

exec  sql Declare c1 dynamic Scroll Cursor for varsql1

5.-Ejecutamos el OPEN del Cursor

 exec sql open c1 using :Var_CIA;

En este punto, se entiende que serán procesados aquellos registros de la base de datos

Cuyo valor en el campo compañía sea igual al valor del contenido de la variable: Var_CIA

 

6.- Ejecutamos el Fetch que sea requerido

exec sql fetch next from c1 into :Filler

 

                                          

 

Un caso menos obvio en su programación es el %LIKE% para armar la sentencia SQL. (Like = que contenga algo parecido a este texto)

Para utilizar el %LIKE%  es necesario primero construir el contenido de la variable que será aplicada en el USING en forma adecuada. Es decir en este caso la variable:  Var_Cía no debería contiene un valor numérico o alfabético sino que es el resultado de la concatenación de varios elementos que hacen posible para el SQL interpretar lo que se está pidiendo procesar.

Por ejemplo, supongamos que queremos buscar una dirección que tenga la palabra MADRID. En este caso requerimos el uso del LIKE de la siguiente manera:

Utilizamos una variable que llamaremos CIUDAD bien sea que el usuario la introduzca por pantalla o que la manipulemos en el programa.

CIUDAD = MADRID

Vamos a denominar a la variable colocada en la sentencia USING como: QRY_CIUDAD

Hacemos lo siguiente:

QRY_CIUDAD = ‘%’ + %trim(CIUDAD) + ‘%’

La sentencia SQl la podemos construir normalmente:

exec sql set :V_SQL1 =

                    'select ESTADO, CIUDAD, Descri '||

                    'from libsuarez/ciudades '||

                    'Where ciudad like  ? '    ||

                    'order by ciudad';

Cuando abrimos el cursor podemos colocar

exec sql open c1 using :QRY_CIUDAD;

 

 

Si te pareció interesante, reenvíalo a un amigo haciendo click en el sobrecito que está al final del artículo. El conocimiento es valioso, compártelo.


Autor: Ing. Liliana Suárez

Errores en SQL EMBEBIDO. Estructura de Datos SQLCA

 

Cuando una sentencia SQL en un programa tipo SQLRPGLE  falla, no se producen los clásicos errores CPFXXXX. El programa, no genera un mensaje de error, no falla sino que simplemente muestra o no muestra información, procesa o no  procesa la data.  Esto es desconcertante puesto que a simple vista parece que nada sucede  y sin embargo el programa no funciona. ¿Qué podemos hacer para saber que está ocurriendo internamente?

SQLCA es una estructura de datos conformada por un conjunto de variables que son actualizadas automáticamente luego de ejecutarse cada sentencia SQL independientemente de que la sentencia SQL haya sido exitosa o fallida.

No es necesario declarar esta estructura de datos, puesto que es generada automáticamente por el sistema operativo dentro del código compilado del programa a tiempo de compilación. El programador solo debe consultar en su programa el valor de los campos de esta estructura de datos para establecer si la sentencia SQL fue exitosa o no.

Hay tres campos claves que deberían ser revisados por el programador luego de cada sentencia SQL:

SQLCODE

Este campo permite determinar si fue posible ejecutar exitosamente la sentencia:

Cuando su valor es cero la sentencia fue completada con éxito.

Cuando su valor es 100, la sentencia fue completada exitosamente pero no se encontraron

registros en la base de datos que cumplieran con la condición establecida en las condiciones del SQL definidas por el programador.

Si los valores son menores a cero, quiere decir, en líneas generales, que la sentencia SQL está mal construida.

En este enlace pueden ver los distintos valores del campo SQLCODE y su significado:

http://publib.boulder.ibm.com/infocenter/dzichelp/v2r2/index.jsp?topic=%2Fcom.ibm.db2z9.doc.codes%2Fsrc%2Ftpc%2Fdb2z_sqlcodes.htm

 

SQLSTT (En las guías y textos la referencian a veces como: SQLSTATE)

Es una variable alfanumérica de cinco posiciones.

Devuelve un error cuando hay problemas con la data o con violaciones de reglas de restricción e integridad en la base de datos.

 

Hay algunos programadores que prefieren utilizar el SQLSTT y otros el SQLCODE. Dependiendo de qué tan precisos quieren ser de acuerdo a la naturaleza del error pueden indistintamente elegir una u otra variable de control de errores. El SQL STT es más exacto cuando se trata de errores de base de datos. Pueden ver en el siguiente enlace las equivalencias entre los números de error arrojados por el SQLCODE y el SQLSTATE.

http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=%2Frzala%2Frzalaccl.htm

SQLER3

Esta variable retorna el número de filas encontradas/actualizadas en la sentencia SQL.

Si quieres saber el resultado de un SELECT o cuantas filas fueron modificadas luego de ejecutar un UPDATE en tu programa, esta variable guarda ese valor.  

Un ejemplo de la utilidad de esta variable es la verificación de su valor luego de un select * into :variable when condición. Si el select devuelve más de una fila, se produce un error puesto que no es posible hacer INTO a una variable cuando el resultado del select son varias filas. Con la variable SQLER3 puedes preguntar las filas que resultaron de tu consulta. Hay otras maneras o variables que DB2 suministra para esta verificación, pero como estamos trabajando en este artículo con la estructura de datos SQLCA me limito, por ahora, a este ejemplo.

 

Si te pareció interesante, reenvíalo a un amigo haciendo click en el sobrecito que está al final del artículo. El conocimiento es valioso, compártelo.


Autor: Ing. Liliana Suárez