La culpa fue del spectrum

La culpa fue del spectrum

jueves, 27 de septiembre de 2012

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. 


  

viernes, 20 de julio de 2012

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.


sábado, 31 de marzo de 2012

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.







Conduce entre la niebla

La culpa fue del spectrum