RE: Query Device Description

I think I'm going to steal that idea...... I like it !


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Crosby
Sent: Friday, November 12, 2010 11:03 AM
To: Midrange Systems Technical Discussion
Subject: Re: Query Device Description

Laine,

Many years ago I set up an INLPGM for all users. It puts the job name, user
name, date, and time into the device text description at signon.

Here's the entire CL program:

/* CHANGE DEVICE TEXT TO USER AND DATE/TIME */

PGM

DCL VAR(&WRKSTN) +
TYPE(*CHAR) +
LEN(10)
DCL VAR(&USER) +
TYPE(*CHAR) +
LEN(10)
DCL VAR(&DATE) +
TYPE(*CHAR) +
LEN(6)
DCL VAR(&TIME) +
TYPE(*CHAR) +
LEN(6)
DCL VAR(&DEVTXT) +
TYPE(*CHAR) +
LEN(50)

/* GET WORKSTATION NAME AND USER */

RTVJOBA JOB(&WRKSTN) +
USER(&USER)

/* GET DATE AND TIME */

RTVSYSVAL SYSVAL(QDATE) +
RTNVAR(&DATE)
RTVSYSVAL SYSVAL(QTIME) +
RTNVAR(&TIME)

/* SET UP DEVICE TEXT */

CHGVAR VAR(&DEVTXT) +
VALUE(&WRKSTN *BCAT &USER *BCAT %SST(&DATE 1 2) *CAT '/' +
*CAT %SST(&DATE 3 2) *CAT '/' *CAT %SST(&DATE 5 2) *BCAT +
%SST(&TIME 1 2) *CAT ':' *CAT %SST(&TIME 3 2) *CAT ':' +
*CAT %SST(&TIME 5 2))

/* CHANGE DEVICE TEXT */

CHGDEVDSP DEVD(&WRKSTN) +
TEXT(&DEVTXT)
MONMSG MSGID(CPF2618)

ENDPGM

The program owner is QSYS and runs USRPRF(*OWNER). A WRKDEVD to the screen
looks something like this:

Work with Device
Descriptions
System:
DILGARD
Position to . . . . . Starting
characters


Type options, press
Enter.
2=Change 3=Copy 4=Delete 5=Display 6=Print
7=Rename
8=Work with status 9=Retrieve
source


Opt Device Type
Text
JLCROSBY1A 3477 JLCROSBY1A JEFF 11/12/10
06:37:03
JLCROSBY1B 3477 JLCROSBY1B JEFF 11/12/10
06:37:31
JLCROSBY1C 3477 JLCROSBY1C JEFF 11/12/10
06:38:08
JLCROSBY1D 3477 JLCROSBY1D JEFF 11/11/10
16:17:08
JLCROSBY1E 3477 JLCROSBY1E JEFF 10/21/10
13:54:19
JLCROSBY1F 3477 JLCROSBY1F JEFF 08/03/10
07:05:23
JLCROSBY1G 3477 JLCROSBY1G JEFF 07/28/10
06:50:04
JLCROSBY1H 3477 JLCROSBY1H JEFF 07/28/10
06:49:59
JLCROSBY1I 3477 JLCROSBY1I JEFF 07/28/10
06:49:54

More...
Parameters or
command
===>

F3=Exit F4=Prompt F5=Refresh F6=Create F9=Retrieve
F12=Cancel
F14=Work with
status

Viola. You now know when it was last used. Do a DSPOBJD to an outfile and
query it.



On Fri, Nov 12, 2010 at 1:34 PM, Laine, Rogers <rlaine@xxxxxxxxxxxxxxx>wrote:

Roger,

That is exactly what I'm trying to do.
But I will have a few thousand devices to track.
To large to do manually.

Thanks,
Rogers

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Harman, Roger
Sent: Friday, November 12, 2010 11:57 AM
To: 'Midrange Systems Technical Discussion'
Subject: RE: Query Device Description

You could DSPOBJD *ALL *DEVD to an outfile. However, a vary on/off is
considered usage so it's not really accurate.

Are you trying to clean up unused device descriptions? If so, I've done
this by comparing devd names against the job name in the CPF1124 and/or
CPF1164 messages in the history log by date. That way, you can weed out
devices not used in the past NN days. Of course, you have to keep
enough days of QHST or an extract of just those messages for the time
period you want to compare against.


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Laine, Rogers
Sent: Friday, November 12, 2010 9:08 AM
To: Midrange-L
Subject: Query Device Description

Would I be able to run a SQL query to show all the last activity date?

If so what table would they be located?



Thanks



Rogers



************************************************
This E-Mail transmission (and/or the documents accompanying it)
may contain information belonging to the sender which is confidential,
privileged and/or exempt from disclosure under applicable law. The
information is intended only for the use of the individual(s) or entity
named above. If you are not the intended recipient, you are hereby
notified that any disclosure, copying, distribution or the taking of any

action in reliance on the contents of this information is strictly
prohibited. If you have received this E-Mail transmission in error,
please immediately notify us by return E-Mail or telephone to arrange
for return of its contents including any documents.
--
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 E-Mail transmission (and/or the documents accompanying it)
may contain information belonging to the sender which is confidential,
privileged and/or exempt from disclosure under applicable law. The
information is intended only for the use of the individual(s) or entity
named above. If you are not the intended recipient, you are hereby
notified that any disclosure, copying, distribution or the taking of any
action in reliance on the contents of this information is strictly
prohibited. If you have received this E-Mail transmission in error,
please immediately notify us by return E-Mail or telephone to arrange
for return of its contents including any documents.

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