WikASi - Un peu de tout sur le i

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())

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

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')

• Modules IBM