Re: Joblogs for jobs in jobq: Not sure this is the right group, but if not I am sure Mr Gibbs will point me to the right one.

QSYS2.JOB_INFO UDTF.... That's the one I was looking for and missed!

Thanks, Rob.

Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power

 
 





From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> on behalf of Rob Berendt <rob@xxxxxxxxx>
Sent: Tuesday, April 18, 2017 8:12 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Joblogs for jobs in jobq: Not sure this is the right group, but if not I am sure Mr Gibbs will point me to the right one.
 
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'
      ;

Doesn't really end the job, just shows you the command you would use to
end the job.
Now, if you then want to pass that command into your own QCMDEXC function
that's up to you...


Rob Berendt