Monitoreo de errores en programas RPG. Primera Parte. (1/4)

En un programa CLP es muy fácil monitorear los mensajes de error. Utilizando el comando MONMSG(códigodeerrror) y especificando el código de error que se requiere monitorear, se puede con facilidad tomar el control del programa enviando el mensaje de error correspondiente y direccionado la ejecución del programa a la instrucción donde se requiere continuar sin que se produzca un mensaje de error en pantalla que incomode al usuario o que coloque en alerta al operador del sistema.
En RPG el asunto es un poco más complicado. Existen tres maneras de monitorear los mensajes de error.

1-La primera de ellas está relacionada con el monitoreo sobre errores producidos en la operación sobre un archivo.
a.- INFDS
b .-Uso de la Extensión (E) en el código de operación.

2-La segunda se relaciona con errores propios de la ejecución de alguna instrucción de RPG

3-La tercera es la más efectiva y sustituye a las anteriores pero está disponible únicamente para RPG IV e ILE-RPG

Monitoreo de Errores de Archivos. (primera parte)

INFDS(NOMBREDS)

La palabra clave INFDS te permite definir, en el programa RPG, el nombre de una estructura de datos que contiene la información asociada con un archivo. El nombre de la estructura de datos que se utilizará para tal fin se especifica en el parámetro de la palabra INFDS. Si INFDS es especificada en más de un archivo, cada estructura de datos asociada debe tener un nombre único.
Una INFDS debe ser definida para cada archivo para recoger la información relacionada con los errores de excepción disponibles para el programa.

La INFDS tiene la siguiente información.
• File Feedback (longitud 80)
• Open Feedback (longitud 160)
• Input/Output Feedback (longitud126)
• Device Specific Feedback (longitude variable)
• Get Attributes Feedback (longitude variable)

Para este artículo vamos a trabajar con el FILE FEEDBACK. La información contenida en las primeras 80 posiciones para monitorear los errores de archivos a tiempo de ejecución es, en general, más que suficiente para extraer la causa del error en el proceso de manipulación del archivo dentro del programa.

El Registro está Bloqueado

A veces tenemos un problema cuando varios usuarios tratan de acceder al mismo registro, al mismo tiempo. ¿Hay alguna manera de saber si el registro está bloqueado sin tener que esperar que el tiempo máximo limite (timeout)?

Cuando un registro esta bloqueado en RPG IV, este permanece bloqueado hasta que uno de los siguientes eventos ocurre:
-El registro es actualizado
-El registro es eliminado
-Otro registro es leido en el archivo
-Un Settl o SetGT es ejecutado contra el archivo
-
El mensaje que nos da el programa cuando vamos al Log de mensajes del Job es algo como esto:

Record 148 in use by job 365563/USER/QPADEV000D.

Esta información es guardada en el Program Status Data Structure SDS, en las posiciones 91-170.

A continuación un pseudocódigo para detectar si el registro está siendo bloqueado y como extraer la información que nos interesa para enviar un mensaje al usuario.

Definimos la Program Status Data Structure

D SDS
D JobName 91 170

* JobName contiene la información del Job que está bloqueando el registro

* El Indicador 99 nos indica si el registro al que queremos acceder está bloqueado.

C Clave Chain Archivo 9899

C if *In99 (* si está bloqueado*)

Buscar la primera ‘/’ del campo JobName

C eval PosInicial = %scan('/' : JobName: 1)
c

** Extraemos la información del campo JobName

c eval Usuario = %subst(JobName:PosInicial + 1)


** Armamos el mensaje de salida
c eval Mensaje = 'El usuario ' + Usuario +
C ' está bloqueando el registro'

** Luego Mostramos por pantalla el Mensaje

C Endif

Si te pareció interesante, reenvialo 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

Establecer Relaciones de la Tablas de Datos

Pregunta:

Te comento que estoy ha cargo de un sistema informático en un Centro de Rehabilitación, quiero encontrar la forma de generar un gráfico para determinar las relaciones de los archivos físicos (algo similar a lo que se puede hacer en SQL Server u Oracle) talvez conoces la forma de realizarlo o existe alguna herramienta en el AS400 ?

Saludos. Jaime Maza, Ecuador.

Respuesta:

La mayoria de los programadores o diseñadores no crean base de datos sino una colección de archivos que en ningun momento especifican al AS400 cuales son las relaciones entre ellos. Al crear archivos manualmente via DDS (fisicos, lógicos creados manualmente al compilar el fuente SEU) no hay manera de informarle al DB2 del AS400, cómo es la relación entre ellos.

Existe una herramienta que se llama Erwin para generar las relaciones entre archivos y construir la base de datos en el AS400, pero los archivos deben haber sido diseñados bajo los estándares de modelos relacionales de base de datos.
El DB2 del AS400 controla el cumplimiento de estos estándares.

El procedimiento para generar bases de datos DB2 es:

1.-Modelar en Erwin las base de datos del AS400 desde windows,
2.-Luego esta información generada por Erwin es transferida al AS400,
3.-Finalmente los administradores de la base de datos del AS400 activan, en el AS400 un procedimiento que genera en forma automática una base de datos controlada por el manejador DB2, las tablas son creadas con comandos SQL en el AS400(create table etc) en base a la información recibida desde windows con el modelo Erwin.

Si no estan diseñados de esa manera, el AS400 no tiene manera, que yo sepa, de "adivinar" la relaciones entre ellos.

Si los sistemas han sido comprados a un proveedor, el proveedor debe darte las relaciones de los archivos de la base de datos.

Este tema es dominado con mayor profundidad, por gente que se dedica a Administrar la Base de Datos en el AS400.

Pueden haber proveedores que te vendan herramientas programadas por ellos para que puedas ver las relaciones entre las tablas, sin embargo estas herramientas deben ser alimentadas manualmente, al crear los archivos, bien sea con meta lenguajes o al momento de crear la Base de datos para que el AS400 pueda almacenar las relaciones de los modelos entidad-relacion de la base de datos y luego tu puedas tener una "vista" de las relaciones entre archivos.

Por ejemplo, en este link: http://aquafold.com/es/index-db2-iseries.html puedes ver un proveedor que hizo una herramienta para visualizar base de datos en el as400, pero como siempre, basada en que los archivos fueron construidos con DB2.

Hasta ahora no conozco otra manera de obtener la información que estas solicitando. Si me llega alguna otra información sobre este tema te la hago llegar.

Si alguno de los lectores del blog, conoce alguna información adicional o específica que pueda proveer de mayor beneficio al tema que estamos publicando nos la puede hacer llegar bien sea a través de comentarios a este articulo o al correo: rpg.iseries@gmail.com luego, publicaremos el autor de la nota y el contenido de la misma.

Si te pareció interesante, reenvialo 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