Una de las buenas prácticas para el buen manejo del Gestor de desarrollo de programas del AS400 es hacer uso de las opciones personalizadas en el PDM. Aquellas que podemos crearlas nosotros mismos y que nos ahorra tiempo y hace más eficiente nuestro desarrollo.
Esto lo logramos creando en nuestra librería personal el archivo de opciones (QAUOOPT) el cual lo posee toda librería QGPL en el sistema AS400. Solo tendremos que copiarla a nuestra librería personal y agregar las opciones a nuestro gusto.
Este archivo tiene una opción para su mantenimiento. Mediante la opción 9 desde el menú principal del STRPDM.
Gestor de desarrollo de programas (PDM) AS/400 Seleccione una de las opciones siguientes: 1. Trabajar con bibliotecas 2. Trabajar con objetos 3. Trabajar con miembros 9. Trabajar con opciones definidas por el usuario |
O desde las opciones 1 ó 2 ó 3, pulsando la tecla de función F16=Opciones usuario
Trabajar con opciones definidas por usuario Archivo . . . . . : QAUOOPT Miembro . . . . . : QAUOOPT Biblioteca . . . : MILIBRERIA Situar en . . . . : Teclee opciones, pulse Intro. 2=Cambiar 3=Copiar 4=Suprimir 5=Visualizar Opc Opción Mandato RQ RUNQRY QRYFILE((&L/&N)) RCDSLT(*YES) SB SBMJOB CMD(CALL PGM(&L/&N)) JOB(&N) JOBQ(QBATCH) SD STRDBG PGM(&N) UPDPROD(*YES) OPMSRC(*YES) SP WRKSPLF UP UPDDTA FILE(&L/&N) WA WRKACTJOB SBS(QBATCH) WO WRKOBJ OBJ(&L/&N) WU WRKUSRJOB WY WRKSYSSTS Mandato ===> F3=Salir F4=Solicitud F5=Renovar F6=Crear F9=Recuperar F10=Entrada mandatos F24=Más teclas |
Desde este menú podremos Editar, Copiar, Suprimir, Visualizar y Crear opciones, las que se registrarán en el archivo QAUOOPT, el cual tiene la siguiente estructura:
Tipo Long AlmacenaPosiciónntermedioCampo Cabecera Campo Datos Campo Alm.Int Alm.Int Utiliz Columna OPTION CHAR 2 2 1 Ambos OPTION Texto de campo . . . . . . . . . . . . . : BENUTZERDEFINIERTE AUSWAHL Identificador Juego Caracteres . . . . . : 273 COMMAND CHAR 250 250 3 Ambos COMMAND Texto de campo . . . . . . . . . . . . . : BEFEHL Identificador Juego Caracteres . . . . . : 273 |
En el campo OPTION se debe colocar 2 caracteres que identifiquen la opción.
En el campo COMMAND se debe colocar el comando a ejecutar, pero con valores que el sistema identificará como parámetros.
Entre los valores tenemos:
&N
Nombre elemento - &N se sustituye por el nombre del elemento de
la lista junto al que se tecleó la opción.
&L
Nombre biblioteca - Si está trabajando con bibliotecas, &L se
sustituye por QSYS. Si está trabajando con objetos o miembros,
&L se sustituye por el nombre de la biblioteca que contiene
estos objetos o miembros.
Para conocer los demás valores solo pulsar F1 en el campo MANDATO de cualquiera de las pantallas de las opciones.
Una vez que ya tenemos nuestro archivo de opciones preparado, dentro del PDM pulsar F18= Cambiar valores por omisión, para indicar al sistema que tome el archivo de opciones de nuestra librería personal.
Cambiar valores por omisión Teclee elecciones, pulse Intro. Biblioteca de objetos . . . *SRCLIB Nombre, *CURLIB, *SRCLIB Sustituir objeto . . . . . . N Y=Sí, N=No Compilar por lotes . . . . . N Y=Sí, N=No Ejecutar por lotes . . . . . N Y=Sí, N=No Salvar val omisión sesión . Y Y=Sí, N=No Opción Salvar/Restaurar . . 1 1=Individual, 2=Todos Descripción de trabajo . . . QBATCH Nombre, *USRPRF, F4 para lista Biblioteca . . . . . . . . *LIBL Nombre, *CURLIB, *LIBL Cambiar tipo y texto . . . . N Y=Sí, N=No Archivo de opciones . . . . QAUOOPT Nombre Biblioteca . . . . . . . . MILIBRERIA Nombre, *CURLIB, *LIBL Miembro . . . . . . . . . . QAUOOPT Nombre Modalid pantalla completa . N Y=Sí, N=No Más... F3=Salir F4=Solicitud F5=Renovar F12=Cancelar |
O ejecutar el comando:
==> CHGPDMDFT USER(MIUSUARIO) FILE(MILIBRERIA/QAUOOPT)
Nota: si actualizas la tabla estando dentro de cualquiera de las opciones del PDM y no funciona la opción que creaste o cambiaste, salir del PDM y entrar nuevamente con STRPDM para que el sistema cargue nuestra tabla de opciones personalizada. De esta manera, si deseo realizar un comando RUNQRY al archivo Clientes, bastará colocarme en el fuente y ejecutar la opción RQ.
Trabajar con Miembros utilizando PDM Archivo . . . . . QPFSRC Biblioteca . . MILIBRERIA Situar en . . . . . . Teclee opciones, pulse Intro. 2=Editar 3=Copiar 4=Suprimir 5=Visualizar 6=Imprimir 7=Redenominar 8=Ver descripción 9=Salvar 13=Cambiar texto 14=Compilar 15=Crear módulo... Opc Miembro Tipo Texto RQ CLIENTES PF Parámetros o mandato ===> F3=Salir F4=Solicitud F5=Renovar F6=Crear F9=Recuperar F10=Entrada mandatos F23=Más opciones F24=Más teclas |
Con esto podremos resumir el uso de los comandos que mas usamos haciendo uso de solo 2 letras:
Si deseamos borrar todos los archivos del spool registraremos en nuestro archivo de opciones la opción
Opción Mandato
DE DLTSPLF FILE(*SELECT)
Ver mis trabajos activos.
Opción Mandato
WU WRKUSRJOB STATUS(*ACTIVE)
Buen trabajo y gracias por ponerlo a toda la comunidad
ResponderEliminarexcelente!
ResponderEliminar