Directorio de enlace y llamada al módulo desde el RPGLE

Directorio de Enlace

Los directorios de enlace sirven para agrupar módulos o programas de servicio con la ventaja de que a la hora crear el programa no sea necesario indicar uno por uno los módulos o programas de servicio que forman el programa.
Ahora continuando con el ejemplo veremos como creamos un directorio de enlace para nuestro programa de servicio.

Primero escribe WRKBNDDIR *ALL verás que te aparecen varios Directorios de Enlace, si nunca nadie los ha creado en tu máquina, solo verás los del sistema dentro de la biblioteca QSYS.

Ahora tecleamos CRTBNDDIR y pulsamos F4, escribimos nombre para el directorio de enlace, biblioteca donde queremos ubicarlo y una descripción que nos sirva para saber que agrupa.

CRTBNDDIR BNDDIR(PRUEBAS/FUNCIONES) TEXT('PGM DE SERVICIO')

Una vez creado añadiremos todos los programas de servicio que tengamos creados o creemos en un futuro. Para hacer esto utilizaremos WRKBNDDIRE

Tecleamos  WRKBNDDIRE BNDDIR(PRUEBAS/FUNCIONES)

                                                                              
 Directorio de Enlace:   FUNCIONES      Biblioteca:   PRUEBAS             
                                                                          
 Teclee opciones, pulse Intro.                                            
   1=Añadir   4=Eliminar                                                  
                                                                          
                                                                     --------Creación---------
 Opc     Objeto         Tipo        Biblioteca     Fecha          Hora    

No hay ningún programa de servicio, ni tampoco ningún módulo asociado a este directorio de enlace.

Para añadirlo hacemos lo siguiente, pulsamos 1, objeto FUNFECHA, tipo *SRVPGM, biblioteca donde tenemos el programa de servicio.

  Teclee opciones, pulse Intro.                                               
   1=Añadir   4=Eliminar                                                      
                                                                              
                                                                                  --------Creación---------  
 Opc     Objeto              Tipo                Biblioteca     Fecha          Hora        
  1      FUNFECHA       *SRVPGM     PRUEBAS                                   
                                                                         

Al pulsar intro ya veremos lo siguiente

                                                                              
 Teclee opciones, pulse Intro.                                                
   1=Añadir   4=Eliminar                                                      
                                                                              
                                                                                     --------Creación---------  
 Opc     Objeto               Tipo              Biblioteca         Fecha          Hora        
                                                                              
         FUNFECHA       *SRVPGM     PRUEBAS        15/09/12       16:22:20    


Bien ya tenemos un directorio de enlace llamado FUNCIONES donde iremos añadiendo todos los programas de servicio que realicemos.

Uso desde un RPGLE o SQLRPGLE

Ahora ya solo nos queda ver como se le dice al programa, que vamos a compilar con la opción 14 (CRTBNDRPG), que enlace con los módulos del programa de servicio.

En la hoja H añadimos estas dos líneas

H   BNDDIR('*LIBL/FUNCIONES')    
H   DFTACTGRP(*NO) ACTGRP(*CALLER)

En la primera indicamos que busque el directorio de enlace que hemos creado para nuestros programas de servicio.
En la segunda le indicamos que el programa no se ejecuta en el grupo de activación por omisión DFTACTGRP(*NO), esto es necesario para poder usar el directorio de enlace. Con ACTGRP le indicamos el grupo de activación que vamos a usar en mi caso siempre es *CALLER ya que siempre me interesa que se ejecuten en el grupo de activación del programa llamador.

En la hoja D definimos el procedimiento.

D  FUNDMYAISO     PR           8P 0
D                                                6P 0

También definimos las dos variables que vamos a usar.

D FECHA8                S              8P 0
D FECHA6                S              6P 0       INZ(010112)

Ahora dentro del código del programa lo usamos de la siguiente forma.

FECHA8=FUNDMYAISO(FECHA6);

Si todo es correcto FECHA8 contendrá el valor 20120101. 


  

Crear un programa de servicio (ILERPG)

Crear un programa de servicio

Un programa de servicio es un programa que agrupa funciones que vamos a llamar desde distintos programas de forma dinámica como si fueran una función del sistema del tipo %CHAR, etc...

Para crear un programa de servicio utilizaremos el mandato CRTSRVPGM, que a continuación vamos a ver en detalle.

Parámetro SRVPGM, aquí ponemos el nombre de nuestro programa de servicio, en este caso vamos a llamar PRUEBA.

Parámetro MODULE, aquí el nombre del módulo, o módulos que van a formar el programa de servicio. En este caso FUNDMYAISO.

Parámetro EXPORT  *SRCFILE tal como viene por defecto

Parámetro SRCFILE (BIBLIOTECA/QSRVSRC) siendo biblioteca la biblioteca donde guardes tus fuentes y QSRVSRC el archivo que el sistema propone para guardar los fuentes del enlazador. Ambos se pueden cambiar al gusto del programador.

Parámetro SRCMBR *SRVPGM tal como viene por defecto.

Parámetro TEXT texto para identificar que hace este programa de servicio.

Si ahora pulsamos intro nos dará un error, si indagamos en la causa nos encontraremos con que el miembro prueba no existe el archivo QSRVSRC.

Esto quiere decir que cuando hemos indicado *SRVPGM en el parámetro SRCMBR le estábamos indicando que existe un miembro llamado como el programa, donde hemos guardado la información de enlace para el programa de servicio. Esto se llama Fuente del enlazador.

Crear un miembro Fuente del Enlazador

Un fuente de enlazador contiene la lista de los procedimientos exportados de un programa de servicio, cada programa de servicio debe de tener el suyo.

Para este caso nuestro miembro enlazador se llamará PRUEBA y sera del tipo BND.

Son miembros que no se compilan y que se limitan a contener los módulos exportados de cada programa siguiendo la siguiente estructura

 STRPGMEXP  PGMLVL(*CURRENT) SIGNATURE('PRUEBA') 

                                                 

 EXPORT     SYMBOL(FUNDMYAISO)                   

                                                 

 ENDPGMEXP                                        

Aquí iremos añadiendo lineas EXPORT por cada módulo que añadamos al programa de servicio, antes lógicamente de hacer el CRTSRVPGM.

Para no tener problemas a la hora de modificar el programa de servicio es recomendable respetar el orden, si añado un nuevo módulo siempre se debe hacer por el final.

Creamos el programa de servicio (ahora si)

 Ahora si ejecutamos CRTSRVPGM pulsamos F4 y lo cumplimentamos de esta forma.

                     Crear Programa de Servicio (CRTSRVPGM)                    
                                                                               
 Teclee elecciones, pulse Intro.                                               
                                                                               
 Programa de servicio . . . . . .   PRUEBA        Nombre                       
   Biblioteca . . . . . . . . . .     PRUEBA      Nombre, *CURLIB              
 Módulo . . . . . . . . . . . . .   FUNDMYAISO    Nombre, genérico*, *SRVPGM...
   Biblioteca . . . . . . . . . .     PRUEBA      Nombre, *LIBL, *CURLIB...    
               + para más valores                                              
                                                                               
 Exportar . . . . . . . . . . . .   *SRCFILE      *SRCFILE, *ALL               
 Exportar archivo fuente  . . . .   QSRVSRC       Nombre, QSRVSRC              
   Biblioteca . . . . . . . . . .     PRUEBA      Nombre, *LIBL, *CURLIB       
 Exportar miembro fuente  . . . .   *SRVPGM       Nombre, *SRVPGM              
 Texto descriptivo  . . . . . . .   PRUEBA PGM DE SERVICIO                     
                                                                               
Pulsamos intro y ahora si nos debe de crear el programa de servicio en la biblioteca PRUEBA, formado por un solo módulo que se llama FUNDMYAISO.

Con WRKSRVPGM podemos trabajar con todos los programas de servicio.

Solo añadir que al ser un programa de servicio cuando modifiquemos el módulo FUNDMYAISO, lo compilaremos como módulo y después haremos un UPDSRVPGM del programa PRUEBA para actualizar el programa de servicio. Todos los programas que usen ese FUNDMYAISO empezarán a usar la nueva versión con los cambios. 

En la próxima entrada veremos como podemos usar un programa de servicio desde cualquier programa ile compilado con la opción 14 del PDM es decir con CRTBNDRPG.

Crear y usar procedimientos (funciones) en ILERPG

Hace ya mucho que el ILE apareció, casi tanto como años llevo programando en RPG y ya son algunos.

Aunque siempre he tenido interés por utilizar las ventajas del ILE, he de reconocer que  he tenido varios problemas para aprovecharlos, uno de ellos es la utilización de programas de servicio. Puede costar hacerse con su funcionamiento, aquí intentare explicar como podemos crear funciones que iremos añadiendo a un programa de servicio y después usaremos desde nuestros programas como si fueran funciones que ya incorpora el lenguaje, por ejemplo %char, %len, etc...

En esta entrada voy a ir construyendo un pequeño módulo que transforme una fecha recibida en un campo numérico de formato día, mes, año (010212) a un formato *ISO año, mes, día.  (20120201).

Definición de la hoja H.

En la hoja H además de las definiciones que se utilicen normalmente hay que añadir NOMAIN

Hoja D

Aquí primero definimos el prototipo de la función.

D FUNDMYAISO    PR     8P 0

                                       6P 0

Después definimos el comienzo del procedimiento (función).

D FUNDMYASIO    B

Ahora la interfaz de entrada del procedimiento, aquí definimos los parámetros de entrada si los tiene.

D FUNDMYAISO    PI      8P 0
               eFECHA6         6P 0

Aquí defino la variable donde voy a guardar el valor que devuelvo en la función. 

D FECHA8             S       8P 0

Código en FREE RPG, si alguien esta en una versión que permite usarlo, que lo use, es maravilloso.

/FREE

FECHA8=%DEC('20'+%SUBST(%EDITC(eFECHA6:'X'):5:2)+

                %SUBST(%EDITC(eFECHA6:'X'):3:2)+

                %SUBST(%EDITC(eFECHA6:'X'):1:2):8:0);

RETURN FECHA8;

/END-FREE

Definimos el final del procedimiento (función) todo el código deber de ir antes de esta línea.
P                 E

Este código es muy mejorable, faltan por controlar opciones, pero nos sirve perfectamente para explicar lo que quiero.

Salvamos el fuente y compilamos con la opción 15 (CRTRPGMOD) del PDM, para crear el módulo ILE.

Si nos compila de forma correcta tendremos un objeto que se llamará FUNDMYAISO del tipo *MODULE.

En la próxima entrada crearemos el programa de servicio que contiene este módulo.

Acceder al AS400 desde Libre Office usando JDBC. (parte 2)

Vamos a continuar con la segunda parte donde vamos a configurar una conexión.

Abrimos una nueva base de datos de libreoffice

Y elegimos conectar con una base de datos existente (JDBC)

En la siguiente pantalla introducimos la ip de nuestro AS400 y la clase que tenemos que usar dejándolo tal como esta aquí.

Ahora el usuario para conectarnos, aquí como medida de seguridad es interesante usar un usuario sin capacidad de conectarse de forma interactiva.

 

Le marcamos la opción de que requiere contraseña y pinchamos en conexión de prueba para que nos solicite contraseña y comprobemos que se conecta.

  

Si la conexión no es correcta no veremos esta ventana, tendremos que revisar contraseña, y dirección ip del servidor. 

Si todo es correcto seguiremos pulsando siguiente hasta completar el proceso y ver una ventana como esta.  

Aquí ahora nos saldrán las bibliotecas que por defecto se cargan en el perfil de usuario que usamos para conectarlos. A partir de ahí en consultas podrías crearte con los asistentes las consultas que necesitaras. Yo prefiero utilizar directamente el editor sql para crear la consulta y salvarla tal como se puede ver en la siguiente imagen.

 

La consulta la salvas con el nombre que consideres apropiado por ejemplo pedidos del cliente fulano.
Salvas la base de datos de libreoffice.

Después enlazas una hoja de cálculo con la base de datos, abres la hoja de cálculo y pulsas F4

Ahora te aparecerán todas las bases de datos de libreoffice que tengas y tendrar que elegir la que quieres y dentro de ella la consulta que quieres. Como se pude ver en nuestro ejemplo sería i5, consultas, consulta1

Una vez eliges la consulta te pedirá usuario y contraseña (el mismo que hemos usado antes) y te mostrará los registros, pulsas sobre el botón datos en texto y te pasará los datos a la hoja de cálculo.


Si no te aparece la base de datos que grabaste cuando pulsas F4, revisa la ubicación que le diste al grabar y añádela desde opciones, libreoffice base, base de datos.

Todo esto se puede aplicar tanto a windows (xp y 7) como a linux (debian, ubuntu, opensuse, fedora...)

Bueno, creo que ya hemos terminado, espero que os sirva de utilidad y para demostrar el potencial del software libre.

Acceder al AS400 desde Libre Office usando JDBC.

Hace ya unos meses que deje de usar Open Office, en su lugar estoy usando Libre Office, no es que ahora mismo uno sea mejor que otro, simplemente creo que el futuro está en Libre Office, Oracle después de espantar a todos los interesados en Open Office a terminado donándolo a la fundación apache no se bien para qué.
Pero entrando ya en materia,  voy a explicar como configurar Libre Office para acceder a una tabla de nuestro AS400 utilizando JDBC, por supuesto todo esto es valido para Open Office.

Descargar jtopen

Jtopen es la versión de código abierto del toolbox que IBM incluye con Iseries Access. Consigue que acceder desde cualquier aplicación java al AS400 sea sencillo, o más sencillo de lo que muchos piensan.
La última versión en la 7.4, la descargamos si no la tenemos ya. Si tienes una versión anterior ya descargada también es valida.

Configurar libreoffice para usar jtopen

Arrancamos libre office, vamos a configurarlo para que use Jtopen.

Pulsamos en herramientas, y luego en libreoffice elegimos java (la última de las que aparecen desplegadas)

Después pulsamos en el botón ruta de clase y en la ventana que nos aparece pulsamos agregar paquete  y navegamos hasta la ubicación de la carpeta donde tengamos descomprimido el zip del jtopen.
Buscamos jt400.rar y lo seleccionamos. Pulsamos Aceptar.

Nos aparece el mensaje de advertencia para que nos acordemos de que hay que cerrar libreoffice para que se apliquen los cambios.

Con esto ya tenemos configurado nuestro libreoffice para usar jtopen, en la siguiente entrada crearemos la conexión.

Convertir Listados AS400 a PDF

Hay muchas formas de convertir un listado de AS400 pdf, todos pasan por crear impresoras o colas virtuales donde todo lo que mandemos se convertirá a pdf.

Para la gente bien, los que tienen máquinas modernas y euros para comprar productos esta claro que lo mejor es el infoprint server de la propia IBM, este permite muchas posibilidades no solo convierte a pdf sino que te lo manda por correo electrónico, te lo deja en recurso del ifs, etc...

Para los pobres, los que tenemos máquinas antiguas y que solo tendremos acceso al infoprint server cuando sea gratis (no se si en la actualidad ya lo es) hay otras alternativas más o menos elegantes que yo he tenido el gusto o la necesidad de probar.

Una es configurar una sesión de impresora con Client Access y redirigirla a una impresora virtual creada con pdfcreator en windows. Esto requiere de paciencia para que los listados queden bien según sean de un tamaño u otro, hay que realizar unas cuantas pruebas, si además te encuentras listados muy, muy raros como es el caso de la empresa donde estoy puede llegar a desquiciarte. Como ventaja tenemos que pdfcreator tiene bastantes opciones y permite fusionar documentos pdf cosa que es muy útil para algunos usuarios. Además pdfcreator es software libre con lo cual costo 0.

Como curiosidad encontré también un software que se llama PDFing que instalado en un pc permite crear una cola remota que convierta en pdf todo lo que envíes a ella. Aparentemente funciona bastante bien, pero la versión completa hay que pagarla y además no es software libre con lo cual no sabemos si hace algo más.

Mi opción favorita es la de instalar en un linux el tn5250 y utilizar la configuración de impresora para generar una impresora virtual que convierta a pdf. Esto lo rediriges a una carpeta en el propio linux o un recurso compartido que tengas montado en él y ya la tienes. Funciona bastante bien, aunque en mis pruebas hay algunos listados que bloqueaban la impresora y tenía que volver a arrancarla. No se si es normal o bien por el tipo de listado ya que en listados "normales" realizados con prtf nunca me da el problema. El único inconveniente que le encuentro es que a mucha gente linux todavía le causa respeto y no se atreven con él.

Para instalarlo la cosa es sencilla, casi todas las distribuciones medianamente serias lo llevan como paquete, yo que para estas cosas uso debian, simplemente ejecuto como root

aptitude install tn5250

Después creamos una carpeta donde queramos guardar los pdf que generemos

mkdir /home/pdf

Esta carpeta será la que luego compartiremos para que toda la red pueda ver los pdfs.

Ahora editamos .tn5250rc en la carpeta del usuario que lo queremos usar (yo como editor uso nano que es muy simple y sencillo)

nano .tn5250rc

Dentro escribimos lo siguiente

host=ip AS400

map=284

env.DEVNAME=nombre dispositivo impresora

outputcommand=scs2pdf>/home/pdf/pdf400-$$.pdf

La última línea el $ lo sustituirá por el número de trabajo de linux (si no recuerdo mal) quedando que todos los archivos se llamarán pdf400-número aleatorio. pdf.

Para arrancarlo desde una línea de comandos escribimos

lp5250d

Esto arrancará la impresora en nuestro AS400.

Si se utiliza en un servidor linux, y este esta programado para que se reinicie periódicamente o bien el que se reinicia es el AS400 (la verdad es que ninguno de los dos lo necesita), para esos casos siempre podemos programar una tarea que ejecute el comando utilizando cron. Pero esto ya es otra historia.

Instalar DEBIAN 5.0 LENNY EN CITRIX XENSERVER

Instalar Debian en un xenserver puede convertirse en un poco complejo si, como es mi caso no llevas mucho tiempo trabajando con un citrix xenserver.

Yo como recomienda ctitrix quería instalarlo desde la plantilla que incluye, la ventaja de usar las plantillas es evidente pero el problema de esta plantilla es que busca el arranque desde una ruta muy especifica para xen (ruta /netboot/xen), ruta que por cierto las imágenes normales de instalación no tienen.

Esto ocasiona que al arrancar la maquina virtual muestre un error y no comience la instalación. En este momento se puede buscar información en la web para ver como solucionar el problema, encontré un enlace donde te dan la información para descargar una imagen utilizando Jigdo, pero lamentablemente esa imagen ya no esta disponible de forma completa y el proceso nunca llega a completarse.

En los comentarios una de las opciones que recomiendan es instalar desde url, y efectivamente esto puede funcionar buscando un servidor que tenga la ruta que arriba comento, pero el problema es que la web que recomiendan http://mirrors.cn99.com/debian no parece una web muy recomendable, tampoco es una web oficial del proyecto debian por lo que no me gustaba la idea de instalar desde ahí.

La solución que encontré fue realizar la instalación por url utilizando un servidor que tenga la ruta apropiada. En mi caso fue un mirror alemán, concretamente este:

http://ftp.de.debian.org/debian/dists/stable/main/installer-i386/current/images/netboot/xen/

Como podéis ver tiene la ruta adecuada.

Para instalar solo hay que indicarle http://ftp.de.debian.org/debian y la plantilla se encarga de comenzar la instalación, a partir de ese momento hacemos una instalación en modo texto y la completamos de forma normal.