Per leggere il contenuto di un file di spool esiste da decenni il comando CPYSPLF, che permette di scaricare il testo in un file fisico; questo file si può poi leggere con un programma ed estrarne i valori che interessano.
Ma, come spesso capita, l’SQL ha in serbo una soluzione migliore… Da alcuni anni IBM ha iniziato a distribuire la libreria SYSTOOLS, un piccolo “tesoro nascosto” che contiene numerose funzioni di utilità (specialmente nell’ambito delle comunicazioni HTTP, per pubblicare e consumare Web service). A questa pagina la documentazione IBM. https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_74/rzajq/rzajqsystools.htm
Tra le altre funzioni della SYSTOOLS, troviamo SPOOLED_FILE_DATA, una funzione di tipo UDTF (User Defined Table Function) grazie alla quale è possibile leggere direttamente con l’SQL il contenuto di un file di spool, senza altri comandi o file intermedi. I parametri sono tre: identificativo del job, nome del file di spool (se omesso si assime QPJOBLOG) e numero del file di spool (opzionale, se presenti nel job più file con lo stesso nome, viene considerato solo l’ultimo).
Vediamo un esempio pratico: da un prospetto generato dal comando DSPLIB estrapoliamo nome, tipo e dimensione degli oggetti elencati e li disponiamo in ordine di dimensione decrescente.
Questa è la stampa (estratto):
5770SS1 V7R3M0 160422 Visualizzazione della libreria 10/10/19 22:14:57 Pag. 1
Libreria . . . . . . . . . . . . . . . : MDUCA1
Tipo . . . . . . . . . . . . . . . . . : PROD
Numero di oggetti . . . . . . . . . . . : 204
Numero ASP libreria . . . . . . . . . . : 1
Unità ASP libreria . . . . . . . . . . : *SYSBAS
Gruppo ASP libreria . . . . . . . . . . : *SYSBAS
Creazione autor. . . . . . . . . . . . : *EXCLUDE
Testo descrittivo . . . . . . . . . . . : MDUCA (*CURLIB)
Oggetto Tipo Attributo Dim. Descrizione
CMDEXIT *PGM CLLE 114688 Exit program
FP001 *PGM RPGLE 172032 File Procedure Exit
FP002 *PGM RPGLE 188416 File Procedure Exit
ORDPRX01 *PGM RPGLE 200704 Exit program
ORDPRZ01 *PGM RPGLE 135168
ORDPRZ01B *PGM RPGLE 135168
SAVXSQL *PGM CLLE 98304
TESTFRA01 *PGM CLLE 90112 test
TESTR01 *PGM RPGLE 159744
TESTR02 *PGM RPGLE 143360
. . . .
XMLTEST *FILE PF 2142208
XSQL *CMD 8192 XSQL - Comando
XSQL$ *CMD 8192 XSQL Command
AUTH *DTAARA 8192 Authorized users
CHARS *DTAARA 8192
ECKEY *DTAARA 8192
FONDICHR *DTAARA 8192
BNDDIR001 *BNDDIR 8192 BndDir per Service program
TEST *BNDDIR 8192
Dimens. totale : 119808000
* * * * F I N E D E L L A L I S T A * * * * Questa è l’istruzione SQL che legge lo spool ed estrae le informazioni che ci interessano:
WITH a AS (
SELECT *
FROM TABLE (systools.spooled_file_data (
'188635/MDUCA/QPAD221221' , 'QPDSPLIB'
)) s
WHERE MOD(ordinal_position, 58) > 10
)
, b AS (
SELECT SUBSTR(spooled_data, 4, 10) obj,
SUBSTR(spooled_data, 16, 10) type,
SUBSTR(spooled_data, 42, 10) dim
FROM a
WHERE ordinal_position < (
SELECT MAX(ordinal_position) - 2 FROM a)
)
SELECT *
FROM b
WHERE type <> '*JRNRCV'
ORDER BY dim DESCSpiegazione: con la prima CTE, che produce la tabella “a”, otteniamo i dati del file di spool scartando le prime 10 righe di ogni pagina, che contengono le intestazioni di pagina e di colonne, e le righe dalla 58 a fine modulo. Per ogni pagina vengono quindi estratte le righe da 11 a 57.
Con la seconda CTE “b”, si estraggono le tre informazioni desiderate, che in questo report compaiono a posizioni fisse. Vengono scartate anche le ultime due righe del report, che non contengono dati significativi.
Infine, con la SELECT finale otteniamo l’elenco desiderato. Qui viene escluso solo un tipo di oggetti, ma ovviamente è possibile applicare filtri ed ordinamenti a piacere.
Vediamo un altro esempio di come possiamo estrarre dal joblog di un lavoro batch tutti i punti nei quali viene eseguito un comando di sistema ed il relativo timestamp di esecuzione. In questo modo sarà possibile monitorare la durata di comandi e programmi richiamati e indagare su eventuali probemi di prestazioni.
WITH a AS (
SELECT *
FROM TABLE (systools.spooled_file_data (
'633734/MDUCA/BATCH01' , 'QPJOBLOG'
)) s
WHERE MOD(ordinal_position, 57) > 4
)
, b AS (
SELECT ordinal_position,
SUBSTR(spooled_data, 1, 7) msg,
SUBSTR(spooled_data, 12, 15) type,
SUBSTR(spooled_data, 51, 15) time
FROM a
WHERE ordinal_position < (
SELECT MAX(ordinal_position) - 2 FROM a)
AND SUBSTR(spooled_data, 12, 15) = 'Comando '
)
SELECT b.*,
(SELECT SUBSTR(spooled_data, 58, 80) info
FROM a x WHERE SUBSTR(x.spooled_data, 38, 17) = 'Messaggio . . . :'
AND x.ordinal_position > b.ordinal_position
LIMIT 1)
FROM b
;Ecco il risultato:
Documentazione:
Funzione SPOOLED_FILE_DATA : https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_74/rzajq/rzajqudfspooldata.htm
Documentazione generale sulla SYSTOOLS: https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_71/rzajq/rzajqsystools.htm
Comando CPYSPLF: https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_73/cl/cpysplf.htm
Riceviamo e pubblichiamo ben volentieri questo "tip & trick" di Patrick Rizzi che presenta una tecnica che permette di intervenire…
Prendo spunto da una risposta di Michael Mayer sulle mailing list di Midrange.com a chi chiedeva come monitorare i messaggi…
Le imprese sono sempre più alla ricerca di strumenti che possano migliorare l'efficienza, la collaborazione e la gestione delle risorse.…
I primi di Aprile è uscita la "Spring Version" di ACS Access Client Solution, versione 1.1.9.5 Interessanti novità soprattutto in…
Se non vi bastava la ricca agenda delle sessioni del Common Europe Congress 2024, 3-6 Giugno Milano, ecco un altro…
Le funzioni di debug con Visual Studio Code sono disponibili da qualche tempo ma questa nuova versione 2.10.0 semplifica la…