Elenco Lavori Attivi

Un sistema alternativo e utile per essere utilizzato al bisogno in Programmi di monitoraggio del Sistema, è il seguente comando SQL che elenca tutti i lavori “utente” (NON di Sistema) che stanno “girando”:

SELECT 
       JOB_NAME, JOB_NAME_SHORT, JOB_USER, JOB_NUMBER, JOB_INFORMATION,
       JOB_STATUS, JOB_TYPE, JOB_TYPE_ENHANCED, JOB_SUBSYSTEM, JOB_DATE,
       JOB_DESCRIPTION_LIBRARY, JOB_DESCRIPTION, JOB_ACCOUNTING_CODE,
       SUBMITTER_JOB_NAME, SUBMITTER_MESSAGE_QUEUE_LIBRARY,
       SUBMITTER_MESSAGE_QUEUE, SERVER_TYPE, JOB_ENTERED_SYSTEM_TIME,
       JOB_SCHEDULED_TIME, JOB_ACTIVE_TIME, JOB_END_TIME,
       JOB_END_SEVERITY, COMPLETION_STATUS, JOB_END_REASON,
       JOB_QUEUE_LIBRARY, JOB_QUEUE_NAME, JOB_QUEUE_STATUS,
       JOB_QUEUE_PRIORITY, JOB_QUEUE_TIME, JOB_MESSAGE_QUEUE_MAXIMUM_SIZE,
       JOB_MESSAGE_QUEUE_FULL_ACTION, ALLOW_MULTIPLE_THREADS,
       PEAK_TEMPORARY_STORAGE, DEFAULT_WAIT, MAXIMUM_PROCESSING_TIME_ALLOWED,
       MAXIMUM_TEMPORARY_STORAGE_ALLOWED, TIME_SLICE, JOB_SWITCHES,
       ROUTING_DATA, CCSID, CHARACTER_IDENTIFIER_CONTROL,
       SORT_SEQUENCE_LIBRARY, SORT_SEQUENCE_NAME, LANGUAGE_ID, COUNTRY_ID,
       DATE_FORMAT, DATE_SEPARATOR, TIME_SEPARATOR, DECIMAL_FORMAT,
       TIME_ZONE_DESCRIPTION_NAME, MESSAGE_LOGGING_LEVEL,
       MESSAGE_LOGGING_SEVERITY, MESSAGE_LOGGING_TEXT,
       LOG_CL_PROGRAM_COMMANDS, STATUS_MESSAGE, INQUIRY_MESSAGE_REPLY,
       BREAK_MESSAGE, JOB_LOG_OUTPUT, JOB_LOG_PENDING, OUTPUT_QUEUE_PRIORITY,
       OUTPUT_QUEUE_LIBRARY, OUTPUT_QUEUE_NAME, SPOOLED_FILE_ACTION,
       PRINTER_DEVICE_NAME, PRINT_KEY_FORMAT, PRINT_TEXT, DEVICE_NAME,
       DEVICE_RECOVERY_ACTION, DDM_CONVERSATION, MODE_NAME, UNIT_OF_WORK_ID,
       CHAR(INTERNAL_JOB_ID) C_INTERNAL_JOB_ID
  FROM TABLE(QSYS2.JOB_INFO(JOB_STATUS_FILTER => '*ACTIVE',     
                            JOB_USER_FILTER => '*ALL')) 
 WHERE (JOB_TYPE NOT IN('ASJ', 'BCI', 'SYS', 'PJ'))
   AND LEFT(JOB_USER, 1) <> 'Q'
 ORDER BY JOB_USER, JOB_N00001

Result:

---
JOB_NAME                  JOB_TYPE  THREAD_ID  THREAD_TYPE  ORDINAL_POSITION  ENTRY_TYPE  PROGRAM_NAME  PROGRAM_LIBRARY_NAME  STATEMENT_IDENTIFIERS  MODULE_NAME  MODULE_LIBRARY_NAME  PROCEDURE_NAME  ACTIVATION_GROUP_NUMBER  ACTIVATION_GROUP_NAME  MI_INSTRUCTION_NUMBER
190936/USR001/QPADEV0003  INT             126  USER                       24  ILE         QRNXIO        QSYS                                     63  QRNXWSIO     QBUILDSS1            _QRNX_WS_EXFMT                        2  *DFTACTGRP
190936/USR001/QPADEV0003  INT             126  USER                       23  ILE         PGM001        LIBPGM                                74400  PGM001       QTEMP                PGM001                                2  *DFTACTGRP
190936/USR001/QPADEV0003  INT             126  USER                       19  OPM         PGM000        LIBPGM                                  600                                                                                                                       15
---

Nota sul comando SQL:

Possono verificarsi dei casi in cui il comando SQL “sembra” non funzionare o peggio ancora che alcuni dati che dovrebbe estrarre non vengano “trovati”.
Questo succede se lo strumento con cui viene eseguito il comando SQL (STRSQL nativo AS400, strumenti esterni via ODBC, JDBC, OLEDB, ecc.) riscontra dei problemi nella conversione dei valori presenti all’interno delle varie colonne estratte (spesso dovuti a CCSID incompatibili fra Sistemi).
In circostanze di questo genere è necessario individuare per tentativi quali colonne NON estrarre o tentare di estrarre effettuando la conversione a carattere con la funzione “Char(colonna)”.

Casi in cui può essere utile:

• Voglio sapere quanti lavori sono attivi
• Voglio sapere se un lavoro è attivo
• Voglio sapere se un Utente ha dei Lavori attivi
• Voglio vedere se un lavoro sta girando
• Voglio vedere se un lavoro è finito
• Voglio rendermi conto perché il Sistema è rallentato