MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » May 2014

Re: Identify all occurances of specific Jobd(s) on the system



fixed

Paul,
I believe that this method will only show those job descriptions that have
been used in the time frame of the DSPJRN command.
If there are some job descriptions that are used infrequently, they will
not show on the report.


Jeff Young
Sr. Programmer Analyst


On Tue, May 20, 2014 at 5:06 PM, Steinmetz, Paul <PSteinmetz@xxxxxxxxxx>wrote:

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.

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







Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact