¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
Recursos iSeries AS400. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Últimas noticias del iSeries AS400
Referencias cruzadas Archivo/Programa/Archivo

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

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

Symtrax
Dossiers técnicos iSeries y AS400
- Dossier de seguridad
- Alta disponibilidad.
¿Buscas trabajo ?
Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.
Nuestros links preferidos
- Tendencias tecnologías de la información
Expertos en materías relacionadas con las tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400 es una web de: Poliedric, s.c.p. CIF:G63005011 Urgell 143 1º1ª 08036 - Barcelona - Tel.+34.902.361.344