I suggerimenti di MarkOne – n. 4
Index
Quando si è spento e acceso l’ultima volta il nostro IBM i? E quanto tempo ha impiegato per spegnersi ed accendersi?
In questo articolo vi suggerisco una semplice API e alcune istruzioni SQL pronte all’uso per estrarre dal sistema informazioni relative all’ultima operazione di spegnimento e accensione di IBM i.
Queste informazioni sono contenute in vari “angoli” del nostro sistema operativo (valori di sistema, messaggi dell’operatore di sistema, history log, …). Con poche istruzioni SQL le visualizziamo tutte insieme.
Consiglio (non solo in questo caso, ma in linea generale) di eseguire le istruzioni dal un client SQL “grafico”. Tutti abbiamo sicuramente a disposizione Esegui script SQL contenuto in IBM Access Client Solutions o IBM i Access. Oppure esistono tanti altri client SQL java-based (p.es. Squirrel SQL client, DBeaver, …).
ATTENZIONE! Le seguenti restrizioni si applicano alle istruzioni SQL scritte di seguito:
Innanzitutto eseguiamo l’API QWCCRTEC che produce uno spool QPSRVDMP con le informazioni dettagliate sulle varie fasi dello spegnimento e dell’accensione del sistema IBM i.
-->> informazioni sui passi di esecuzione dell'ultimo IPL
-- N.B. da IBM i 7.1 non è più necessario specificare il secondo parametro con la lunghezza della stringa del comando da eseguire
call qcmdexc('CALL QWCCRTEC');
Sempre nella stessa sessione di Esegui script SQL eseguiamo le seguenti 3 query.
ATTENZIONE: la funzione di tabella SPOOLED_FILE_DATA richiede IBM i 7.3 TR6. Se si vuole eseguire queste istruzioni su versioni precedenti bisogna togliere le parti di istruzione che usano tale funzione.
-->> Ultimo spegnimento
with
-- valore di sistema QABNORMSW
SV_QABNORMSW as
(select case when CURRENT_CHARACTER_VALUE = '1' then 'anomalo' else 'normale' end as SYSVAL
from SYSTEM_VALUE_INFO
where SYSTEM_VALUE_NAME = 'QABNORMSW'),
-- estrazione orario inizio PWRDWNSYS dallo spool di QWCCRTEC
PWRDOWN_START as
(select timestamp_format(substr(SPOOLED_DATA, 103, 17), 'MM/DD/YY HH24:MI:SS', 0) as PDSTART
from table(SYSTOOLS/SPOOLED_FILE_DATA('', 'QPSRVDMP')) where ucase(substr(SPOOLED_DATA, 87, 11)) = 'XPF PWRDWN'),
-- estrazione orario fine PWRDWNSYS dallo spool di QWCCRTEC
PWRDOWN_END as
(select timestamp_format(substr(SPOOLED_DATA, 103, 17), 'MM/DD/YY HH24:MI:SS', 0) as PDEND
from table(SYSTOOLS/SPOOLED_FILE_DATA('', 'QPSRVDMP')) where ucase(substr(SPOOLED_DATA, 87, 11)) = 'END PWRDWN'),
-- estrazione messaggio CPI0995 (immissione PWRDWNSYS) da history log (DSPLOG)
HSTLOG_CPI0995 as
(select timestamp(MESSAGE_TIMESTAMP, 0) as M1TIME,
trim(substr(MESSAGE_SECOND_LEVEL_TEXT, locate_in_string(MESSAGE_SECOND_LEVEL_TEXT, '. . . :', 1)+8)) as M1TEXT
from table(HISTORY_LOG_INFO((select PDSTART - 1 hours from PWRDOWN_START),
(select PDSTART + 1 hours from PWRDOWN_START))) as HL
where MESSAGE_ID = 'CPI0995'
order by MESSAGE_TIMESTAMP desc
fetch first 1 rows only)
-- query finale
select
SYSVAL as "Stato spegnimento",
M1TIME as "Immissione PWRDWNSYS", PDSTART as "Inizio spegnimento", PDEND as "Fine spegnimento",
M1TEXT as "Dettagli PWRDWNSYS"
from SV_QABNORMSW left join PWRDOWN_START on 1=1 left join PWRDOWN_END on 1=1 left join HSTLOG_CPI0995 on 1=1;
Se lo spegnimento era andato a buon fine si otterrà un risultato simile a:
oppure se lo spegnimento si è concluso in modo anomalo:
Uno spegnimento anomalo p.es. potrebbe verificarsi se si esegue il comando PWRDWNSYS *IMMED e per qualche anomalia presente nel sistema il processo di spegnimento non termina prima del numero di secondi specificato nel valore di sistema QPWRDWNLMT oppure per una caduta di alimentazione non protetta da UPS, ecc.
L’istruzione successiva invece ci mostra i dettagli dell’ultima accensione del nostro sistema IBM i:
-->> Ultima accensione:
with
-- valore di sistema QIPLSTS
SV_QIPLSTS as
(select case CURRENT_CHARACTER_VALUE
when '0' then 'pannello operatore'
when '1' then 'automatico dopo ripristino alimentazione'
when '2' then 'riavvio'
when '3' then 'ora prestabilita'
when '4' then 'remoto'
else 'N/A' end as IPLSTS
from SYSTEM_VALUE_INFO
where SYSTEM_VALUE_NAME = 'QIPLSTS'),
-- valore di sistema QIPLTYPE
SV_QIPLTYPE as
(select case CURRENT_CHARACTER_VALUE
when '0' then 'non presidiato'
when '1' then 'presidiato con DST'
when '2' then 'presidiato (debug)'
else 'N/A' end as IPLTYPE
from SYSTEM_VALUE_INFO
where SYSTEM_VALUE_NAME = 'QIPLTYPE'),
-- estrazione orario inizio IPL dallo spool di QWCCRTEC
IPL_START as
(select timestamp_format(substr(SPOOLED_DATA, 103, 17), 'MM/DD/YY HH24:MI:SS', 0) as ISTART
from table(SYSTOOLS/SPOOLED_FILE_DATA('', 'QPSRVDMP')) where ucase(substr(SPOOLED_DATA, 87, 8)) = 'XPF IPL'
fetch first 1 rows only -- solo il primo rek. In caso di IPL con applicazione PTF possono esserci due record consecutivi XPF IPL ), -- estrazione orario fine IPL dallo spool di QWCCRTEC IPL_END as (select timestamp_format(substr(SPOOLED_DATA, 103, 17), 'MM/DD/YY HH24:MI:SS', 0) as IEND from table(SYSTOOLS/SPOOLED_FILE_DATA('', 'QPSRVDMP'))
where ucase(substr(SPOOLED_DATA, 87, 11)) = 'END OF IPL'), -- orario avvio job SCPF (Start Control Program Function) SCPF_START as (select JOB_ENTERED_SYSTEM_TIME as SCPFSTART from table(JOB_INFO(JOB_STATUS_FILTER => 'ACTIVE', JOB_USER_FILTER => 'QSYS')) as Job
where JOB_NAME = '000000/QSYS/SCPF'),
-- messaggio operatore sistema con informazioni su area IPL
-- (il messaggio potrebbe essere stato rimosso quindi è meglio estrarre questa informazione dall'history log)
-- QSYSOPR_AREAIPL as
-- (select trim(MESSAGE_TEXT) as AREAIPL, timestamp(MESSAGE_TIMESTAMP, 0) as AREAIPL_TIME
-- from QSYS2/MESSAGE_QUEUE_INFO
-- where MESSAGE_QUEUE_NAME = 'QSYSOPR' and MESSAGE_ID = 'CPI0C04'),
-- estrazione messaggi da history log (DSPLOG)
HSTLOG as
(select MESSAGE_ID, timestamp(MESSAGE_TIMESTAMP, 0) as M1TIME,
MESSAGE_TEXT as M1TEXT1, MESSAGE_SECOND_LEVEL_TEXT as M1TEXT2
from table(HISTORY_LOG_INFO((select ISTART - 1 hours from IPL_START),
(select IEND + 1 hours from IPL_END))) as HL
where MESSAGE_ID in ('CPI0C04', 'CPF0998', 'CPI091D')),
-- estrazione messaggio CPI0C04 da history log: area IPL
HSTLOG_CPI0C04 as
(select trim(M1TEXT1) as M1TEXT1
from HSTLOG
where MESSAGE_ID = 'CPI0C04'
order by M1TIME desc
fetch first 1 rows only),
-- estrazione messaggio CPF0998 da history log: chiusura anomala
HSTLOG_CPF0998 as
(select M1TEXT1
from HSTLOG
where MESSAGE_ID = 'CPF0998'
order by M1TIME desc
fetch first 1 rows only),
-- estrazione messaggio CPI091D da history log: causa chiusura anomala
HSTLOG_CPI091D as
(select substr(M1TEXT1, locate_in_string(M1TEXT1, 'codice causa', 1)+13, 1) as CODICE,
substr(M1TEXT2,
locate_in_string(M1TEXT2, '&P ' concat substr(M1TEXT1, locate_in_string(M1TEXT1, 'codice causa', 1)+13, 1), 1)+7,
(locate_in_string(M1TEXT2, '&P ', locate_in_string(M1TEXT2, '&P ' concat substr(M1TEXT1, locate_in_string(M1TEXT1, 'codice causa', 1)+13, 1), 1)+1)-1) -
(locate_in_string(M1TEXT2, '&P ' concat substr(M1TEXT1, locate_in_string(M1TEXT1, 'codice causa', 1)+13, 1), 1)+7)
)
as DESCRIZIONE
from HSTLOG
where MESSAGE_ID = 'CPI091D'
order by M1TIME desc
fetch first 1 rows only)
-- query finale
select IPLSTS as "Tipo di IPL eseguito", IPLTYPE as "Tipo IPL da eseguire",
ISTART as "Inizio accensione",
SCPFSTART as "Data/Ora avvio Start Control Program Function",
IEND as "Fine accensione",
HSTLOG_CPI0C04.M1TEXT1 as "Area IPL",
case when HSTLOG_CPF0998.M1TEXT1 is null then 'No' else 'Sì' end as "IPL dopo chiusura anomala",
HSTLOG_CPI091D.CODICE concat ' - ' concat HSTLOG_CPI091D.DESCRIZIONE as "Causa chiusura anomala"
from SV_QIPLSTS, SV_QIPLTYPE, IPL_START, IPL_END, SCPF_START
left join HSTLOG_CPI0C04 on 1=1
left join HSTLOG_CPF0998 on 1=1
left join HSTLOG_CPI091D on 1=1;
Le informazioni di accensione potrebbero essere simili a:
Dopo uno spegnimento anomalo le informazioni della successiva accensione potrebbero essere simili a:
Infine con questa ultima istruzione visualizziamo la data/ora pianificata per la prossima accensione pianificata o dal menu POWER opz. 2 oppure tramite un job schedulato che esegue un PWRDWNSYS con parametro RESTART(*YES).
-->> Prossima accensione pianificata
-- accensione programmata in menu POWER
select 'Menu POWER' as "Tipo",
timestamp_format(substr(trim(CURRENT_CHARACTER_VALUE), 2), 'YYMMDDHH24MISS', 0) as "Data/ora prossima accensione"
from SYSTEM_VALUE_INFO
where SYSTEM_VALUE_NAME = 'QIPLDATTIM'
and CURRENT_CHARACTER_VALUE <> 'NONE'
union all
-- accensione schedulata con comando PWRDWNSYS … RESTART(YES)
select 'Job schedulato' as "Tipo",
timestamp_format(NEXT_SUBMISSION_DATE concat ' ' concat SCHEDULED_TIME, 'YYYY-MM-DD HH24:MI:SS', 0) as "Data/ora prossima accensione"
from SCHEDULED_JOB_INFO as JS
where ucase(COMMAND_STRING) like '%PWRDWNSYS%RESTART(*YES)%'
and STATUS = 'SCHEDULED'
order by 2;
Se la query non restituisce nessun record significa che non è stata pianificata nessuna accensione del sistema IBM i.
Se tramite il menu POWER è stato impostato l’accensione in data 2/12/2019 alle 1.30 si otterrà
Se invece si imposta un riavvio tramite un job schedulato per la data del 25/12/2025 alle 23.00 si otterrà:
Scarica lo script completo da https://gist.github.com/mk1tools/575e3ac809736e01b724928fc2c48597
Queste e molte altre istruzioni SQL prêt-à-porter sul blog MarkOneTools https://www.markonetools.it/sql-pret-a-porter/
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…