Agreed, I've been doing it with an exit program for years now.
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Darren Strong
Sent: Thursday, 27 April 2017 3:17 AM
To: Midrange Systems Technical Discussion
Subject: [IE] Re: Need to find job start, job end, calculate total job time for a group of users, TST*, for a selected date range
I didn't read through all of the responses. My answer to this need was to create a system exit point to record this data, and a program to translate that into a file through a DTAQ. We're only tracking things in QBATCH, how long they sat in the queue, how long they ran, and the start/end statistics. It comes in pretty handy to query if we need a quick history of how long a particular daily job has been running. Here is the exit point setup.
* SETUP NOTES:
* This program assumes that the following steps were taken so
that
* the DTAQ was populated (ref. QBIM_QWT_JOBNOTIFY IBM exit point
docs):
*
* 1. CRTDTAQ DTAQ(QGPL/JOBNOTIFY) MAXLEN(144) SEQ(*KEYED)
KEYLEN(4) SIZE(*MAX2GB)
* 2. ADDEXITPGM EXITPNT(QIBM_QWT_JOBNOTIFY)
* FORMAT(NTFY0100)
* PGMNBR(*LOW)
* PGM(QGPL/JOBNOTIFY)
* PGMDTA(*JOB *CALC '0002QBATCH QSYS ')
*
* Use WRKREGINF to see existing entries.
___________________________________
Darren Strong
Dekko
From: "Steinmetz, Paul" <PSteinmetz@xxxxxxxxxx>
To: "'Midrange Systems Technical Discussion'"
<midrange-l@xxxxxxxxxxxx>
Date: 04/21/2017 11:48 AM
Subject: Need to find job start, job end, calculate total job time
for a group of users, TST*, for a selected date range
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx>
I need to find job start, job end, calculate total job time for a group of users, TST*, for a selected date range.
From QHST, I was planning on dumping CPF1164 to a spoolfile/db file, then select out the needed data.
Is there a better tool for this task?
Any thoughts from the group?
Thank You
_____
Paul Steinmetz
IBM i Systems Administrator
Pencor Services, Inc.
462 Delaware Ave
Palmerton Pa 18071
610-826-9117 work
610-826-9188 fax
610-349-0913 cell
610-377-6012 home
psteinmetz@xxxxxxxxxx
http://www.pencor.com/
--
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.
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
--
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.
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
############################################################## This correspondence is for the named person's use only. It may contain confidential or legally privileged information, or both. No confidentiality or privilege is waived or lost by any mistransmission. If you receive this correspondence in error, please immediately delete it from your system and notify the sender. You must not disclose, copy or rely on any part of this correspondence if you are not the intended recipient. Any views expressed in this message are those of the individual sender, except where the sender expressly, and with authority, states them to be the views of Equifax. If you need assistance, please contact Equifax :- Australia www.equifax.com.au/contact New Zealand www.equifax.co.nz/contact ##############################################################
midrange.com
