Blog de Recursos AS400 - IBM i

2010, un año de numerosos anuncios para el entorno AS/400. Tanto es así que el día 17, en plena canícula del mes de agosto, IBM presentó los nuevos sistemas añadidos a la familia de servidores basados en el procesador POWER7 presentada en febrero. Según la información disponible en la web de IBM (España), éstos son los aspectos más destacados del anuncio:

 

NUESTRO i CAFÉ  — Las operaciones de E/S nativas de RPG admiten tres formatos de listas de claves: la tradicional KLIST, la estructura de datos de claves (%KDS) y una lista de valores. Una de las ventajas del formato lista de valores es que permite usar expresiones dentro de la lista de claves. De igual forma que una expresión puede asignar el valor de una variable numérica 5,0 a un valor numérico 6,0, también es posible usar claves cuyo tamaño no coincida con el de la definición externa. Esto puede sernos de gran utilidad.

El manual de consulta de ILE RPG explica que hay cuatro formas de especificar un argumento de búsqueda para operaciones de E/S nativas como CHAIN o SETLL. Tres de estas formas son los tres métodos distintos de especificar una lista de claves que acabamos de mencionar. Encontrará esta documentación en http://tinyurl.com/ljxa4y

Una de las opciones que explica el manual se denomina "lista de valores". Esto es lo que se dice en dicha página del manual:

"3. Una lista de valores, como "(a:b:c+2)". Cada elemento de la clave compuesta puede ser una expresión. Los tipos de datos deben coincidir con el campo de clave correspondiente, pero las longitudes y el formato de los datos no tienen por qué hacerlo."

Por ejemplo, esta podría ser una operación CHAIN que utiliza la sintaxis de lista de valores:

     chain (numcli: fechEnv)

En este ejemplo, en la lista de claves hay dos claves, numcli y fechEnv. La documentación afirma que los tipos de datos deben coincidir, pero que las longitudes y el formato no. Este comportamiento me resulta muy útil. Tengo archivos en lo que las longitudes de los campos no son iguales. Por ejemplo, el número GL es 5,0 en un archivo y 6,0 en el otro. Gracias a la forma en que IBM ha implementado las listas de claves de tipo "lista de valores" puedo utilizar la operación CHAIN directamente:

     chain (inputGL) GLMAEST;

En este ejemplo, inputGL es 5,0, pero la clave de GLMAEST es 6,0. No necesito hacer una copia en una variable temporal (como tendría que haber hecho con KLIST), RPG se encargará de ajustar la longitud del campo por mí. Se puede utilizar cualquier expresión para estos campos, por lo que funciona como EVAL, que me parece muy intuitiva. Con EVAL, cuando se asigna una variable a otra, los tipos de datos de las variables no tienen por qué coincidir (puede asignar un campo 6,0 en un campo 5,0, mientras el número quepa en este campo). Las expresiones también permiten realizar ciertas manipulaciones. Por ejemplo, puedo convertir un campo de tipo fecha de un formato a otro directamente en la lista de claves.

     setll (%dec(%date(campoEntrada:*EUR):*ISO)) Calendar;

Este código convierte un campo con formato DDMMAAAA al formato AAAAMMDD directamente en la lista de claves, lo que me evita tener que escribir un campo temporal. Además, tenemos algunos archivos de inventario en los que una "ubicación" se representa mediante un número de almacén (1A) y una posición (7A). Y tenemos otros en los que es un campo 8A. ¡No hay problema! Puedo hacer esto:

     chain (ALMACEN + POSICION) MiArch;

En este caso, los dos campos (ALMACEN y POSICION) se concatenan y luego la salida se utiliza como la primera clave de MiArch. De nuevo, esto me evita tener que escribir un campo temporal. Si quiere asegurarse de que los tamaños de los campos coincidan, puede usar %KDS o KLIST, que se comportan así. De hecho, con %KDS se puede indicar a RPG que cree la lista de claves a partir de la definición externa del archivo, por lo que no hay posibilidad alguna de error.

     D claves ds

     likered(GLMAEST: *KEY)
     ...
     claves.numgl = inputGL;
     chain %kds(claves) GLMAEST;

Si quiere que RPG le garantice que son de la misma longitud, este método funciona muy bien. Así que tiene esta posibilidad pero, personalmente, prefiero el método de la "lista de valores", que admite expresiones, a %KDS y sus valores estrictos. Me evita tener que escribir unas cuantas líneas de código y simplifica un poquito el programa.

En RPG puede hacerlo de las dos formas. Pruébelas y quédese con la que prefiera.
 

---

Revista ServerNEWS n.202 — Autor: Scott Klement

---

En el número 204 de ServerNEWS y con el título IBM rejuvenece las herramientas de desarrollo de los Power Systems, George N. Farr (1), actual director de producto para todo el mundo de herramientas y compiladores para IBM Power, nos ofrece un completo resumen de todos los cambios y novedades. Podéis leerlo directamente desde aquí:

 

El cuadradito de la parte superior derecha del visualizador permite pasar a la modalidad de pantalla completa. Parafraseando a Antonio Montía, "A nosostros, sus usuarios, para garantizar la calidad de nuestro trabajo, nos corresponde saber cómo y en qué han mejorado y cuáles son sus nuevas posibilidades. Éste es, precisamente, el objetivo de una revista profesional como la nuestra". El resto de temas de este número, como siempre, también son muy interesantes.

(1) George N. Farr es diplomado en informática y matemáticas por la Universidad York de Toronto. Ha trabajado con Power Systems de IBM como desarrollador, controlador de calidad, jefe de equipo, jefe de desarrollo y director de soluciones de herramientas y compiladores. Actualmente es el director de producto de herramientas y compiladores para Power. Es conferenciante habitual en congresos de Power y grupos de usuarios de todo el mundo y ha publicado numerosos artículos y libros sobre los lenguajes y entornos de programación de Power.

---