Categoría : Programación
Autor : Armando Estrada Bucio
Título : Referencias cruzadas Archivo/Programa/Archivo

Descripción del truco:
Hola Amigos:

¿Cuántas veces nos ha pasado, que por necesidad, debemos cambiar la estructura de algún fichero que por tener gran importancia en nuestra aplicación se usa en muchos de los programas que la forman?.

El problema es saber cuantos y cuales programas usan este importante fichero al que le vamos a modificar la estructura con objeto de revisar en que les afecta o simplemente para volver a compilarlos.

Esta ayuda, más que truco, nos permite crear dos reportes a los que llamo "Referencias cruzadas Fichero/Programa/Fichero", en el primer reporte podemos apreciar fácilmente el nombre del fichero y qué programas lo usan o actualizan y en el segundo veremos el nombre de programa y qué ficheros utiliza.

Así, si modificamos la estructura de algún fichero basta con localizar el nombre en el primer reporte para saber que programas debemos tocar.

O, si deseamos saber qué ficheros utiliza y cómo los afecta el programa "x" pues simplemente localizamos el programa en el segundo reporte y tendremos la lista de los ficheros que utiliza.

Bien, una vez sentadas las bases y si consideras que esta ayuda puede servirte de algo pasemos al grano.

Son varios pasos, pero sencillos, los que debemos seguir para instalar los programas que forman esta pequeña aplicación, veamos:

1. Vamos a construir una librería o biblioteca (como tú la conozcas) a la que llamaremos SOISA, puedes utilizar el nombre que mas te agrade, sin embargo para efectos de este instructivo la llamaremos SOISA, Utilizando el comando
   
   CRTLIB LIB(SOISA) TEXT('Documentación de aplicaciones')
   
   
2. Ahora vamos a crear cinco ficheros fuente físicos con el comando
   CRTSRCPF FILE(SOISA/QDDSSRC) TEXT('Programa fuente RPG)
   CRTSRCPF FILE(SOISA/QSDASRC) TEXT('Programa fuente RPG)
   CRTSRCPF FILE(SOISA/QRLUSRC) TEXT('Programa fuente RPG)
   CRTSRCPF FILE(SOISA/QRPGSRC) TEXT('Programa fuente RPG)
   CRTSRCPF FILE(SOISA/QCLSSRC) TEXT('Programa fuente RPG)
   
   Como podemos apreciar la idea es colocar todo en orden, las estructuras de ficheros en QDDSSRC, los programas fuente para pantallas en QSDASRC, los programas fuente Printer File o reportes en QRLUSRC, los programas fuente RPG en QRPGSRC y los programas fuente CL's pues en QCLSSRC. Si de poner orden se trata también podríamos crear una librería o biblioteca más donde guardar los ejectables (OBJ) pero dada la pequeña cantidad de programas que son tal vez no vale la pena, sin embargo tú decides.
   
3. En el fichero .ZIP que descargaste existen varios programas fuente once para ser exactos y deben ser guardados como sigue:
   
   Nombre Tipo Guardar en Descripción
   DOCPYA PF QDDSSRC Es el fichero que contendrá los nombres
   DOC01ACL CLP QCLSSRC Es el programa CL que inicia la aplicación
   DOC01ARP RPG QRPGSRC Es el programa que actualiza al fichero DOCPYA tomando el fichero texto que deja DOC01BCL
   DOC01ASC DSPF QSDASRC Es la pantalla del programa DOC01ARP
   DOC01BCL CLP QCLSSRC Es el comando que extrae los programas y crea un fichero texto
   DOC01CCL CLP QCLSSRC Es el programa que llama al programa para imprimir las referencias cruzadas Fichero/Programa
   DOC01CPF PRTF QRLUSRC Es el fichero Printer File para el reporte de referencias cruzadas Fichero/Programa
   DOC01CRP RPG QRPGSRC Es el programa que imprime el reporte de referencias cruzadas Fichero/Programa
   DOC01DCL CLP QCLSSRC Es el programa que llama al programa para imprimir las referencias cruzadas Programa/Fichero
   DOC01DPF PRTF QRLUSRC Es el fichero Printer File para el reporte de referencias cruzadas Programa/Fichero
   DOC01DRP RPG QRPGSRC Es el programa que llama al programa para imprimir las referencias cruzadas Fichero/Programa

4. Ahora solo resta compilarlos dejando los ejecutables en la misma librería (SOISA)

5. Para ejecutar la aplicación basta que desde la línea de comando teclees CALL DOC01ACL y listo, inicia el proceso con un prompt donde debemos indicar el nombre de la librería que deseamos transferir para obtener los reportes de referencias cruzadas. Observa que también te pregunta si deseas limpiar el fichero antes de transferir los programas de la librería que indicaste, esto es para permitir agregar más de una librería en los reportes de referencias cruzadas.

6. Como podrás apreciar esta ayuda es susceptible de mejorar, creando un menú por ejemplo, pero eso es labor que a ti te compete.

Finalmente si algo no quedó claro, tienes dudas o no te funciona no dudes en enviarme un e-mail siempre estaré dispuesto a apoyarte y si todo funciona bien por favor déjame saberlo bastará con e-mail mencionando en que ciudad y país te encuentras.

Armando Estrada Bucio
Soisa2002@prodigy.net.mx

Descargar fichero con fuentes
Fecha 29-09-2004

Tienes algún truco que quieras compartir con todos los profesionales de Recursos iSeries AS400?.Envianoslo y si resulta seleccionado te enviaremos un vale de Amazon por valor de 50$

Comentarios de usuarios