| Categoría
:Otros
Autor : Leandro Muñoz Ossa
Título : Uso Recursivo
del Comando DSPPGMREF
Descripción del truco:
Este truco ejecuta recursivamente el comando DSPPGMREF
( Visualizar Referencias Programas ).
Este Mandato proporciona una lista de los objetos del
sistema a los que hacen referencia los programas especificados.
El truco Consta de de 3 programas Cl\'s (CONVER000P,
CONVER001P, CODVER100P ).
5 programas Cobol ( CONVER000, CONVER001, VONVER002,
CONVER003, CONVER004) y una pantalla (CONVER000S).
El progama inicial es el CONVER000P el cual solicita
por pantalla los siguientes parámetros:
Nombre Programa: Sé digita el programa a Analizar.
Librería de Resultado: Sé digita la librería
donde se quiere guardar los archivos resultados del
proceso.
Archivo Resultado: Nombre del archivo que generara
el programa.
Archivo Log: Nombre del Archivo log de programas inexistentes
es decir programas que no se evaluaron porque no se
encontraron en la lista de librerias.
El programa CONVER000P devuelve como resultado todos
los programas llamados y archivos usados por el programa
especificado en el parámetro, además
de los programas y archivos usados por los programas
dentro del programa inicial (Esto se ejecuta REcursivamente
hasta llegar al ultimo programa referencia ).
Los campos representantitos del archivo resultado
son los siguientes:
WHLIB = Librería donde se encuentra ubicado
el programa
WHPNAM = Programa Evaluado
WHFNAM = Nombre del archivo o Programa usado
(al cual se hace referencia).
WHSNAM = Alias del archivo o Programa usado WHOTYP = Tipo de objeto ( *FILE
= Pantalla o Tabla / *PGM = Programa) WHRFNB = Numero de Formato de Registro.
0 = Programas y Pantallas
1 = Archivos de Datos
<> 0 Y <> 1 = Registros de Pantalla.
En el archivo Log, Se guardan los programas a los
cuales se hace referencia y no existen en la lista
de librerías.
Nota antes de ejecutar el programa CONVER000P debe
cargar la lista de librerías que usted desea
evaluar.
Puedes descargarte los fuentes en
formato .zip 
Fecha Junio 2006
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$
|
