Re: Days Used count

["Leif Svalgaard" <leif@xxxxxxxx>]

----- Original Message -----
From: <bvining@vnet.ibm.com>
To: <MIDRANGE-L@midrange.com>
Sent: Friday, December 22, 2000 10:53 AM
Subject: Days Used count


> I don't know why your program isn't being updated, but per the CL
> Programming manual the Counter of number of days used is increased when
> the date of last use is updated, and from the same manual the *PGM
> date of last use is updated when either the Retrieve CL Source (RTVCLSRC)
> command is used or when run and not a system program.  I would assume
> the "not a system program" is exempting QWSGET and QDMCOPEN.
>
> Bruce

I thought so too in the beginning, but my research into this
has shown that it is not that simple. Below are two examples,
first one that does update the count, then one that does not.
They are both system state/user domain programs.

                          Display Program Information

 Program  . . . . . . . :   LSACCESS      Library  . . . . . . . :
LSVALGAARD
 Owner  . . . . . . . . :   LSVALGAARD
 Program attribute  . . :

 Program statistics:
   Program size (bytes) . . . . . . . . . . . . . . :   12288
   Associated space size (bytes)  . . . . . . . . . :   4064
   Static storage size (bytes)  . . . . . . . . . . :   128
   Automatic storage size (bytes) . . . . . . . . . :   0
   Program state  . . . . . . . . . . . . . . . . . :   *SYSTEM
   Program domain . . . . . . . . . . . . . . . . . :   *USER
   Compiler . . . . . . . . . . . . . . . . . . . . :   5769SS1 V4R3M0
   Earliest release that program can run  . . . . . :   V3R7M0
   Conversion required  . . . . . . . . . . . . . . :   *NO
   Sort sequence  . . . . . . . . . . . . . . . . . :   *HEX
   Language identifier  . . . . . . . . . . . . . . :   *JOBRUN

                       Display Object Description - Full
                                                                 Library 1 of
1
 Object . . . . . . . :   LSACCESS        Attribute  . . . . . :
   Library  . . . . . :     LSVALGAARD    Owner  . . . . . . . :   LSVALGAARD
 Type . . . . . . . . :   *PGM            Primary group  . . . :   *NONE

 Change/Usage information:
   Change date/time . . . . . . . . . :   04/20/00  10:41:18
   Usage data collected . . . . . . . :   YES
   Last used date . . . . . . . . . . :   12/22/00
   Days used count  . . . . . . . . . :   135
     Reset date . . . . . . . . . . . :
   Allow change by program  . . . . . :   YES
 Auditing information:
   Object auditing value  . . . . . . :   *NONE


                          Display Program Information

 Program  . . . . . . . :   QDMCOPEN      Library  . . . . . . . :   QSYS
 Owner  . . . . . . . . :   QSYS
 Program attribute  . . :

 Program statistics:
   Program size (bytes) . . . . . . . . . . . . . . :   180224
   Associated space size (bytes)  . . . . . . . . . :   4096
   Static storage size (bytes)  . . . . . . . . . . :   0
   Automatic storage size (bytes) . . . . . . . . . :   4992
   Program state  . . . . . . . . . . . . . . . . . :   *SYSTEM
   Program domain . . . . . . . . . . . . . . . . . :   *USER
   Compiler . . . . . . . . . . . . . . . . . . . . :           V4R4M0
   Earliest release that program can run  . . . . . :   V4R4M0
   Conversion required  . . . . . . . . . . . . . . :   *NO
   Sort sequence  . . . . . . . . . . . . . . . . . :   *HEX
   Language identifier  . . . . . . . . . . . . . . :   *JOBRUN

                       Display Object Description - Full
                                                                 Library 1 of
1
 Object . . . . . . . :   QDMCOPEN        Attribute  . . . . . :
   Library  . . . . . :     QSYS          Owner  . . . . . . . :   QSYS
 Type . . . . . . . . :   *PGM            Primary group  . . . :   *NONE

 Change/Usage information:
   Change date/time . . . . . . . . . :   01/29/00  11:52:56
   Usage data collected . . . . . . . :   YES
   Last used date . . . . . . . . . . :
   Days used count  . . . . . . . . . :   0
     Reset date . . . . . . . . . . . :
   Allow change by program  . . . . . :   YES
 Auditing information:
   Object auditing value  . . . . . . :   *NONE


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---