Visualiza una ptf (DSPAPTF)

Me ha pasado a veces que estoy buscando si tengo instalada una ptf pero, no se el código de producto, y tengo que ir buscando con DSPPTF producto a producto y perdiendo mucho tiempo para ello.

Una búsqueda en Internet me llevo a la utilidad XDSPPTF que sirve precisamente para eso, veo que no soy al único que le pasa, y que me ahorra tiempo.

Como el código no esta online, me llevo a crearme dicha utilidad que he llamado DSPAPTF.

Podéis bajaros el código del siguiente enlace Display Any PTF.

Visualizar día y hora del ultimo IPL

La utilidad LASTIPL visualiza el día y la hora del ultimo IPL (Initial Program Loader) realizado en el sistema. Tecleamos LASTIPL en la línea de mandatos y, al pulsar Intro, nos devuelve el día y la hora del ultimo arranque del subsistema QCTL:

The system was last IPL'D on 22/07/12 at 06:33:53.

Utilidad LIBSIZE

La utilidad LIBSIZE nos devuelve el número de objetos de una biblioteca y su tamaño.

Al ejecutar el mandato nos devuelve un mensaje en la linea de estado con la información de la biblioteca.

Library size MYLIBRARY:000000017235968 Bytes. Objects 0000000000006

Tiene la opción de imprimir el mensaje de salida, parámetro OUTPUT(*PRINT), para poder someterlo o planificar su ejecución; nos puede servir para comprobar el tamaño de una biblioteca en un momento concreto.

No se recomienda utilizar esta utilidad para substituir el inventario de objetos en disco incluido en el sistema operativo, ver entrada "Estadísticas espacio en disco".

Esta utilidad esta basada en el documento de IBM "CL Program to Retrieve Library Size and Number of Objects" que utiliza la API RTVLAPI.

Podéis bajar el código desde este enlace.

Recuperar atributos area de datos (RTVDTAARAA)

Hace poco me preguntaron si tenia, o conocía, alguna utilidad para recuperar los atributos de una área de datos. Una búsqueda en el iSeries Information Center, de IBM, me llevo a la API QWCRDTAA, esta normalmente se utiliza para recuperar el valor de una área de datos, pero también se puede utilizar para recuperar sus atributos.

Para ver su funcionamiento he creado la utilidad RTVDTAARAA (muchas A ¿no?)

Pasando el nombre del *DTAARA nos devolverá el tipo (*CHAR, *DEC, *LGL, *DDM), la longitud y el numero de posiciones decimales. Por ejemplo, si recuperamos los atributos del área de datos QUSRSYS/QRCLSTG, nos devolverá en las variables que le hemos pasado sus atributos, ademas graba el mensaje  CPF9897, en el log del trabajo, con el siguiente contenido: 

Data area QUSRSYS/QRCLSTG attributes. Type: *CHAR, Length: 1000, decimal pos.: 0000 

Podéis bajar el código desde este enlace.

WHO (Quien) esta abusando del sistema

El mandato WHO ¿Quién esta abusando del sistema? es una antigua utilidad de la TAATools, que ya existía, si mal no recuerdo, en el System/38.

Su utilidad es la de detectar rápidamente los trabajos con mas consumo de CPU. Al ejecutar este mandato nos muestra la salida del WRKACTJOB pero ordenando  los trabajos con un % de uso de CPU mayor a un 2% y ordenado por la columna "Elapsed CPU%"

Esta pantalla es la misma que si ejecutáramos el mandato WRKACTJOB con los siguientes parámetros:
WRKACTJOB CPUPCTLMT(2) SEQ(*CPUPCT)

Al ejecutar el mandato las estadísticas del "Work with Active Jobs" se reinician a cero, antes de mostrar el resultado (imprimiendo su salida a spool), para obtener el consumo real de los trabajos en ese instante; además, y por la misma razón, cambia la prioridad de ejecución de nuestra sesión para que el sistema responda más rápido a nuestra petición, al salir del mandato se revierte este ultimo cambio.

Podéis bajar el código desde este enlace.