Thanks. We battled it out on the RPG list and came up with

SELECT X.JOB_NAME, msg_timestamp, msg_text,
'ENDJOB JOB(' concat x.job_name concat ') LOGLMT(0)' as cmdtxt
FROM TABLE(QSYS2.JOB_INFO(JOB_STATUS_FILTER => '*JOBQ',
JOB_USER_FILTER => '*ALL')) X
,lateral (select y.message_timestamp
from table(qsys2.joblog_info(x.job_name)) y
where y.message_text like '%ERPCSTROL1DARREN%') L1 (msg_timestamp)
,lateral (select y.message_text
from table(qsys2.joblog_info(x.job_name)) y
where y.message_text like '%ERPCSTROL1DARREN%') L2 (msg_text)
WHERE JOB_QUEUE_LIBRARY = 'ERPLXEC'
AND JOB_QUEUE_NAME = 'BPCSJOBQ'
;

But your's is quite nice also.

Rob Berendt

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.