× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Ideally, you'd use one of the API's related to getting the jobs.  My suggestion was a bit cruder (but, quicker). Not suited for production use but a one-timer? Sure.

CRTPF QTEMP/P198 RCDLEN(198)
WRKJOBQ <your jobq> OUTPUT(*PRINT)

CPYSPLF QPRTSPLQ P198 MBROPT(*REPLACE)

Then, you can iterate through it picking out the job info to feed the DB2 service.

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

 
 





From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> on behalf of Danny Hayes <Danny_Hayes@xxxxxxxxx>
Sent: Monday, April 17, 2017 2:45 PM
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.
 
Roger,

So you are suggesting I do this for 232,000 jobs?  Or do you have some way to get all 232,000 jobs to spool other than by manually entering each individual job in the job queue?

Thanks,
Danny

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Roger Harman
Sent: Monday, April 17, 2017 5:09 PM
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.

Not fully tested.....

I didn't see a DB2 service for job queue entries, but you can display it to *print.

Copy the spool file to a PF
Use the PF as a CTE (picking out the job info) for this DB2 service:
TABLE(QSYS2.JOBLOG_INFO(<job name>'))  where MESSA00008 like '%<your parm here>%'

A little brute force but it should work.

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




From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> on behalf of Danny Hayes <Danny_Hayes@xxxxxxxxx>
Sent: Monday, April 17, 2017 1:16 PM
To: rpg400-l@xxxxxxxxxxxx
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.
   
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."
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l


RPG400-L Info Page - midrange.com
lists.midrange.com
To unsubscribe from RPG400-L, get a password reminder, or change your subscription options enter your subscription email address:

or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


midrange.com -- RPG400-L mailing list archive
archive.midrange.com
midrange.com RPG400-L mailing list archive


Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link:  http://amzn.to/2dEadiD

 http://g-ec2.images-amazon.com/images/G/01/social/api-share/amazon_logo_500500._V323939215_.png

Amazon.com: Online Shopping for Electronics, Apparel, Computers, Books, DVDs & more
amzn.to
Online shopping from the earth's biggest selection of books, magazines, music, DVDs, videos, electronics, computers, software, apparel & accessories, shoes, jewelry, tools & hardware, housewares, furniture, sporting goods, beauty & personal care, broadband & dsl, gourmet food & just about anything else.

   

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.