× 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.



Using QAUDJRN, here's a simple resolution, for the archives.
1) Ensure auditing, qsysval QAUDLVL*JOBDTA
2) DSPJRN JRN(QAUDJRN) ENTTYP(JS) OUTPUT(*OUTFILE) OUTFILFMT(*TYPE5) OUTFILE(QGPL/QASYJSJ5) OUTMBR(QASYJSJ5 *REPLACE).
3) Either SQL or query QGPL/QASYJSJ5 JSJBD LIST 'CM_SHORTN ' 'CM_LONGN ' 'CM_MEDIUMN'

Paul

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Vernon Hamberg
Sent: Friday, May 09, 2014 10:35 AM
To: Midrange Systems Technical Discussion
Subject: Re: Identify all occurances of specific Jobd(s) on the system

Paul

You could do a search - maybe google, maybe in Infocenter - for jobd( - this would be the beginning of its use as a parameter.

You might also consider looking at the panel groups that contain help text - they all start with QH, I believe - I see some in QSYS and many in QHLPSYS - there is an API to retrieve help text - here is a brief sample of its usage -

PGM

DCL &USPTR *PTR ADDRESS(*NULL)
DCL &RCVVAR *CHAR 5000
DCL &RCVVARLEN *INT 4 5000
DCL &FMTNAM *CHAR 8 'RHLP0100'
DCL &HLPIDS *CHAR 80
DCL &HLPID *CHAR 32 STG(*DEFINED) DEFVAR(&HLPIDS 1) DCL &HLPOBJ *CHAR 10 STG(*DEFINED) DEFVAR(&HLPIDS 33) DCL &HLPLIB *CHAR 10 STG(*DEFINED) DEFVAR(&HLPIDS 43) DCL &HLPTYP *CHAR 10 STG(*DEFINED) DEFVAR(&HLPIDS 53) DCL &HLPIDCNT *INT 4 1 DCL &HLPTXT *CHAR 5000 STG(*BASED) BASPTR(&USPTR) DCL &HLPTXTLEN *INT 4 5000 DCL &EC *CHAR 8 X'0000000000000000'
DCL &USNAME *CHAR 20 'HELPTEXT QTEMP '
DCL &USSIZE *INT 4 5000
DCL &USINIT *CHAR 1 X'00'
CHGVAR &HLPID 'CPYF/MBROPT'
CHGVAR &HLPOBJ 'QHCPCMD1'
CHGVAR &HLPLIB '*LIBL'
CHGVAR &HLPTYP '*PNLGRP'
CALL QUSCRTUS (&USNAME 'HELPTEXT' &USSIZE &USINIT '*ALL' ' ' '*YES' +
&EC '*USER')
CALL QUSPTRUS (&USNAME &USPTR &ECD)
CALL QUHRHLPT (&RCVVAR &RCVVARLEN &FMTNAM &HLPIDS &HLPIDCNT &HLPTXT +
&HLPTXTLEN &EC)
MONMSG CPF6E3B

ENDPGM

I don't remember if the entire command help is retrieved using just the command name in &HLPID.

Another option might be to use the GENCMDDOC against every command on the system and search the resulting IFS files for JOBD.

HTH
Vern

On 5/9/2014 9:03 AM, Steinmetz, Paul wrote:
Bryan,

That's a thought.

I found more locations for jobd usage.
Subsystem descriptions.
3. Autostart job entries
4. Work station name entries
10. Prestart job entries

At this point I'm creating a list of any object that contains reference to a jobd.
Does anyone know if this list may already exist in manual or document.

Paul

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Bryan Dietz
Sent: Friday, May 09, 2014 7:41 AM
To: Midrange Systems Technical Discussion
Subject: Re: Identify all occurances of specific Jobd(s) on the system

Not tested, just thinking aloud...
and assuming you are not using job accounting.

What if you assigned a special unique job accounting code to each of the jobds, you could then look thru the accounting journal for those specific codes.

--

Bryan


Steinmetz, Paul said the following on Thu, 5/8/2014 1:19 PM:
Rob,

Jobd usage does not show up in QAUDJRN, confirmed by IBM.
Only jobd changes.

Plan B?

Thanks
Paul
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.