OVERRIDE de Archivos en ILE-RPG

                                                                                     

Tradicionalmente se realiza el Override de archivos en un programa CLP que luego llama a un  programa RPG.

Este RPG entonces realiza las operaciones pertinentes y al terminar la ejecución del programa RPG entonces el programa CLP debe realizar, en algún momento,  un DLTOVR(*ALL) para continuar con el resto de los comandos.

Ahora es posible realizar con ILE-RPG y con ILE-RPG Free el override del archivo dentro del programa RPG en la hoja F junto con la declaración del archivo.

Se utilizan las Keywords: EXTFILE y EXTMBR para especificar el archivo y el miembro sobre el cual se hace override.

Si se omite el EXTMBR el sistema operativo asume el primer miembro del archivo.

En el ejemplo que tienen a continuación, declaro un archivo con un EXTFILE cuyo contenido está en un campo constante que indica la librería (LDMED43) y el archivo (IN102L10X)

fIN102L10x uf   e           k disk    rename(IN102r:in102rx)

f                                     USROPN               

f                                     Extfile(ARCHIVO102)  

d*Declaración de constantes.

d ARCHIVO102      c                   const('LDMED43/IN102L10X')

El archivo debe ser USROPN para que funcione este sistema.

Al Principio del programa haces un OPEN IN102L10X y antes de Finalizar

Realizas el CLOSE IN102L10X

Con este procedimiento ya no es necesario realizar un CLP que lo único que hace es el override a los archivos de los programas en RPG, que son invocados posteriormente.

Autor: Ing. Liliana Suárez.


Si te pareció interesante el artículo reenvíalo a un amigo, haciendo click en el sobrecito que está al final del artículo. El conocimiento es valioso, compártelo.