==== Liste des travaux actifs ====

SELECT SUBSYSTEM, SUBSY00001, MEMOR00001, JOB_NAME, INTER00001,\\
AUTHORIZATION_NAME, JOB_TYPE, FUNCTION_TYPE, FUNCTION, JOB_STATUS,\\
RUN_P00001, THREA00001, SERVE00001\\
from table(QSYS2.Active_Job_Info())

=== Avec les infos de déclenchements ===

SELECT ( SELECT SUBSTR(HOST_NAME, 1, 8)\\
FROM QSYS2.SYSTEM_STATUS_INFO ) as Machine,\\
JOB_S00001 as SBS,\\
SUBSTR(JOB_NAME, 1, 6) AS JNbr,\\
SUBSTR(SUBSTR(JOB_NAME, 8, POSSTR(SUBSTR(JOB_NAME, 8), '/')-1), 1, 10) AS JUser,\\
SUBSTR(SUBSTR(SUBSTR(JOB_NAME, 8), POSSTR(SUBSTR(JOB_NAME, 8), '/')+1), 1, 10) AS Job,\\
JOB_TYPE as Type,\\
SUBSTR(SUBMI00001, 1, 6) AS SBNbr,\\
SUBSTR(SUBMI00001, 8, POSSTR(SUBSTR(SUBMI00001, 8), '/')-1) AS SBUser,\\
SUBSTR(SUBSTR(SUBMI00001, 8), POSSTR(SUBSTR(SUBMI00001, 8), '/')+1) AS SBJob,\\
JOB_A00002 as DebDat, SERVE00001 as SrvTyp\\
FROM TABLE(QSYS2.JOB_INFO(JOB_USER_FILTER=>'*ALL'))\\
where  JOB_STATUS = 'ACTIVE'\\
Order by JOB_A00002


==== Split Jobname des MSGW, LCKW & DSC ====

SELECT SUBSTR(JOB_NAME,1,6) AS JOB_NUMBER,\\
SUBSTR(SUBSTR(JOB_NAME,8,POSSTR(SUBSTR(JOB_NAME,8),'/')-1), 1, 10) AS JOB_USER,\\
SUBSTR(SUBSTR(SUBSTR(JOB_NAME,8),POSSTR(SUBSTR(JOB_NAME,8),'/')+1), 1, 10)  AS JOB_NAME\\
FROM TABLE (QSYS2.ACTIVE_JOB_INFO())\\
where job_status in ('MSGW', 'LCKW', 'DSC') 

==== Autres informations ====

  * [[http://www.inprointernational.com/ibmmod.htm#INDEX_Heading|Modules IBM]]