Bienvenidos a Iseries Venezuela

Las mejores prácticas, recursos, tips, enlaces, videos y artículos para informáticos relacionados con el Iseries y el As/400 lenguajes de programación RPG, ILE RPG y SQL.

The best practices, resources, tips, links, videoes and articles for computer related to the Iseries and the As/400 languages of programming RPG, ILE RPG and SQL.

Monday, November 11, 2013

Comando SETOBJACC para reducir tiempos de procesamiento en el ISERIES




El comando SET Object Access  (SETOBJACC) puede cargar un archivo de base de datos, un índice de base de datos o un programa en un pool de memoria principal. La agrupación o pool  de almacenamiento puede ser una memoria privada, la memoria del trabajo que se está ejecutando, o una de las memorias comunes del sistema. El principal uso del comando es  proporcionar un mejor rendimiento de las aplicaciones para los trabajos que tienen acceso a un archivo de base de datos en un orden aleatorio o en una serie  de jobs que acceden al mismo archivo. Si la memoria es lo suficientemente grande para contener todos los datos, una vez que se carga el objeto, todos los accesos de lectura a los archivos se hacen sin una operación de lectura al disco, lo que elimina la mayor parte del tiempo de  procesamiento de acceso para ese archivo. Como resultado, se pueden realizar  mejoras dramáticas en tiempo de ejecución de trabajo. 

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

Wednesday, October 2, 2013

Conceptos de Trigger para Iseries y As/400




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 

Friday, August 30, 2013

Construir La clave de Lectura Desde una Estructura de Datos

 








Supongamos tenemos un archivo llamado: SISTEMAS que contiene
El inventario de Sistemas, Módulos y Programas del Departamento de Sistemas
Declaramos  una estructura de datos:

D CLAVEFILE DS  likerec(Sistemas:*key)
D SistemaID                  2A
D ModuloID                   2A
D ProgramaID              2A

Con la palabra clave LIKEREC establecemos que la DS va a ser una clave de acceso al archivo SISTEMAS
Una vez que los campos de la estructura de datos tienen los valores de acceso que necesitamos podemos realizar la siguiente operación:

En este ejemplo especificamos que usamos los tres primeros campos de la estructura de datos para armar la clave de lectura

  
Chain %KDS(CLAVEFILE:3)  sistemas;

También podemos hacer esto:
En este ejemplo especificamos que usamos los dos primeros campos de la estructura de datos para armar la clave de lectura

  SetLL %KDS(CLAVEFILE : 2 ) Sistemas;


¿y qué hago con esto?

Esta función es particularmente útil cuando recibimos por parámetro string de data de otras aplicaciones  y nos toca “desglosar”  en campos separados los datos recibidos para  luego armar claves totales y parciales necesarias para acceder a su vez a otros archivos o tablas.

Esto puede verse como una manera de restituir la declaración de  KLIST del RPG III. Para aquellos que puedan añorar la programación tradicional y no desean colocar en RPG FREE un chain con varias claves en el código del programa tal como esto:
Chain (clave1:clave2:clave3:clave4) pueden utilizar esta función
 Pueden utilizar el %KDS como otra alternativa de programación



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