RE: Query Device Description

["Harman, Roger" <Roger.Harman@xxxxxxxxxx>]

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.