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.
midrange.com
