Rob,
I tried this:
Tue Apr 18 08:13:54 EDT 2017 ] Run All... SELECT X.JOB_NAME FROM TABLE(QSYS2.JOB_INFO(JOB_STATUS_FILTER => '*JOBQ', JOB_USER_FILTER => '*ALL')) X WHERE JOB_QUEUE_LIBRARY = 'QGPL' AND JOB_QUEUE_NAME = 'RPMOTMULT2'
SQL State: 42704 Vendor Code: -204 Message: [SQL0204] JOB_INFO in QSYS2 type *N not found. Cause . . . . . : JOB_INFO in QSYS2 type *N was not found. If the member name is *ALL, the table is not partitioned. If this is an ALTER TABLE statement and the type is *N, a constraint or partition was not found. If this is not an ALTER TABLE statement and the type is *N, a function, procedure, trigger or sequence object was not found. If a function was not found, JOB_INFO is the service program that contains the function. The function will not be found unless the external name and usage name match exactly. Examine the job log for a message that gives more details on which function name is being searched for and the name that did not match. Recovery . . . : Change the name and try the request again. If the object is a node group, ensure that the DB2 Multisystem product is installed on your system and create a nodegroup with the CRTNODGRP CL command. If an external function was not found, be sure that the case of the EXTERNAL NAME on the CREATE FUNCTION statement exactly matches the case of the name exported by the service program. Processing ended because the highlighted statement did not complete successfully Failed statements: 1
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Rob Berendt
Sent: Tuesday, April 18, 2017 8:02 AM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
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.
Someone figure out a way to tie these two queries together:
SELECT X.JOB_NAME
FROM TABLE(QSYS2.JOB_INFO(JOB_STATUS_FILTER => '*JOBQ',
JOB_USER_FILTER => '*ALL')) X
WHERE JOB_QUEUE_LIBRARY = 'ERPLXEC'
AND JOB_QUEUE_NAME = 'BPCSJOBQ';
SELECT Y.MESSAGE_ID, Y.MESSAGE_TEXT
FROM TABLE(QSYS2.JOBLOG_INFO('017044/DARREN/CST601J')) Y
WHERE Y.MESSAGE_TEXT LIKE '%ERPCSTROL1DARREN%';
You need to pass x.job_name from the first query into where you see '017044/DARREN/CST601J'
For more information see
http://ibm.biz/DB2foriServices
Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600 Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
From: Danny Hayes <Danny_Hayes@xxxxxxxxx>
To: "rpg400-l@xxxxxxxxxxxx" <rpg400-l@xxxxxxxxxxxx>
Date: 04/17/2017 04:17 PM
Subject: 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.
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>
I have an issue I thought one of you might have a solution for:
I have a job queue with 233,587 entries in it, all from me, it is on hold.
Each job has in its joblog the name of an order of some type.
I only want to run the job that has the one I care about, but it would
take me a couple of days to display each job and check its joblog to see
if it is the one.
I need some way to dump all of the joblogs into one bucket and then search
all for the one I want.
each joblog looks like this: CALL PGM(*LIBL/ASN0220CL)
PARM('ALB170401ALB053O0000' ' 0508000')
I want to find the one job that has ATL170408ATL050N0000 as the parameter.
Do you know of any method to accomplish this?
Thanks & Regards,
Danny Hayes
IT-Developer
Genuine Parts Company, APG IT
[APGIT_forward]
"This e-mail and any attachments, contain Genuine Parts Company
confidential information that is proprietary, privileged, and protected by
applicable laws. If you have received this message in error and are not
the intended recipient, you should not retain, distribute, disclose or use
any of this information and you should destroy this e-mail, any
attachments or copies therein forthwith. Please notify the sender
immediately by e-mail if you have received this e-mail in error."
midrange.com
