|
Les envio la utileria para identar programas RPG nativo.
Cuando se ejecuta el programa, no es necesario que el
miembro a identar este compilado.
Antes que nada, necesitas crear los siguientes miembros
en el AS/400.
- CLPIND.
Este programa recibe los datos desde el PDM (Dar opcion
IN)
- RPGIND.
Una vez que el programa CLPIND checa el tipo RPG,
ejecuta al programa RPGIND, el cual toma el miembro
para identarlo.
- CLPRTV.
El programa RPGIND utiliza al programa CLPRTV, el
cual obtiene los nombres de los archivos que se utilizan
Por ultimo hay que crear dentro del PDM la siguiente
instruccion:
STRPDM opcion 3. Pulsar F16 para trabajar con las opciones
definidas por el usuario.
Pulsar ahora, F6=Crear.
Opcion : IN
Mandato: CALL PGM(QGPL/CLPIND) PARM(&L &F &N
&T)
Probar con cualquier programa RPG desde el PDM dando
la opcion IN.
Ver programa CLPIND
Ver programa RPGIND
Ver programa CLPRTV
Enviada por Fidel Reyes
Agosto 2004
|
