• Subject: Re: How to see if *LF's are being used...
  • From: Rob Berendt <rob@xxxxxxxxx>
  • Date: Mon, 10 May 1999 13:27:54 -0500

Answer a question with a question.  Why do they want to know that?  

If to save disk space then instead inform the boss that you want to do 'Pareto 
Analysis'.  
Basically it's a bang for the buck philosophy.  Submit a rtvdskinf, followed 
by a PRTDSKINF *SYS.  If you still believe that most of the hog is in user 
libraries, 
then determine which libraries are expendable.  Once you've done that then run 
PRTDSKINF *LIB  This will tell you which objects take up the most space and 
might 
be a candidate for purging or removal.  If the logicals are not in the top 20% 
of the query then you're spending more money on finding worthless objects 
then it would cost you to upgrade the system.  Disk space on a 400 costs 
$0.60/meg, including controller cards.  You don't want to be wasting time/money 
trying to solve the wrong problem.  An hour of analysis, at $50/hr will buy you 
83mb of
disk.  Now that I think about it, if you follow 'Pareto Analysis', isn't hard 
to beat.

Program documentation tools which show you which files are used where will 
probably ignore 
several possible usages.  Such as Queries, Client based applications, and what 
not.  Let 
alone possible limitations of the tool:  'Will it find where a file is accessed 
by SQL, 
OPNQRYF, OVRDBF and ...?'

Doing object attribute research may turn out to be useful, if there are 
applicable 
attributes, but what if the file is only used once a year in a canned package?  
Will 
it cost you more to modify the application than the disk space it occupies?

OS/400 operating system sucks disk space.  I printed the PRTDSKINF *SYS to show 
one savvy 
individual.  This person had assumed that OS/400 was contained in a few choice 
libraries, 
namely most of those beginning with Q.  They suffered quite a shock.  Sample 
cuts of 
PRTDSKINF from an AS/400 running V4R3 follows.  Notice, the detail ones do 
contain the 
'last used' date.  The last time I ran RTVDSKINF was quite some time ago.

PRTDSKINF *SYS
...
                                                % of         Size in    
Description                                     Disk     1,000,000 bytes
User libraries                                 58.37           47361.26 
User directories                                 .50             405.65 
Folders and documents                           3.70            3003.40 
QSYS                                            3.50            2840.75 
Other IBM libraries                             5.48            4446.08 
Licensed Internal Code                          2.64            2138.05 
Temporary space                                 4.00            3243.45 
Unused space                                   20.37           16526.02 
Internal objects                                1.32            1073.62 
Objects not in a library                         .67             541.61 
TOTAL                                         100.55           81579.89 
...

PRTDSKINF *LIB
                                                       Library Information      
                                       
                             % of          Size in    Last       Last           
                                       
Library      Owner           Disk        1000 bytes   Change     Use        
Description                                
QGPL         QSYS            4.42         3588808.7   10/21/97   10/21/97       
                                       
QDOC         QDOC            3.70         3003397.1   10/21/97              
Document library                           
QSYS         QSYS            3.49         2830015.5   10/22/97   10/22/97   
System Library                             
ASSETF       ASSET           3.17         2568880.1   10/21/97   10/21/97   
AS/SET Database                            
HEIF404      SSA             1.84         1494884.4   10/21/97   10/21/97   
Heaters Engineering BPCS Files Library V404
QIWS         QSYS            1.69         1369092.1   10/17/97   10/21/97       
                                       
GPIFILE      SSA             1.59         1293037.6   10/21/97   10/21/97   
Garrett Products BPCS 4.03 File Library    
...

PRTDSKINF *OBJ
                                                   Specific Object Information  
                                                 
                                                   % of         Size in   Last  
    Last                                         
Object        Library     Type      Owner          Disk       1000 bytes  
Change    Use       Description                        
INTTRACE      QGPL        *FILE     SSA            3.51        2850656.3  
10/06/97  10/06/97  Output file for TRCICF             
QADBIFLD      QSYS        *FILE     QSYS           1.59        1293799.4  
02/12/96  10/21/97  Cross reference physical file      
QAZDGCOL      QIWS        *FILE     QSYS           1.44        1170260.0  
05/03/97            CATALOG - SYSCOLUMNS, COLUMN INFO  
EDUSER        EDI4XXDTA   *FILE     EDIONR          .80         648163.3  
07/09/97            EDI400                             
WKD           ASSETF      *FILE     ASSET           .70         571506.7  
10/21/97  10/21/97  AS/SET - AS/400  Software  Engineer
ADKJRNRCV1    ASSETASP01  *JRNRCV   SSA             .52         420450.3  
10/22/97            AS/SET Created Journal Receiver    
ADKJRNRCV2    ASSETASP01  *JRNRCV   SSA             .52         420450.3  
10/21/97            AS/SET Created Journal Receiver    
ZMPN          CSW         *FILE     SSA             .42         339755.0  
07/23/97  09/15/97                                     
ACT           ASSETF      *FILE     ASSET           .39         316674.0  
10/21/97  10/21/97  AS/SET - AS/400 Software Engineerin
QAPMJOBS      QMPGDATA    *FILE     QPGMR           .38         310120.4  
07/24/97  07/24/97  Job related performance data       
QAPMJOBS      QPFRHQ      *FILE     SSA             .38         309825.5  
06/28/97  11/08/96  Job related performance data       
CLAIM400SF    QGPL        *FILE     SYSGENPGMR      .36         288391.2  
09/26/97  09/26/97  Save File for CLAIM400, Rel.7, conv
ZFRT          CSW         *FILE     SSA             .34         277889.0  
07/22/97  10/14/97                                     
QRPGSRC       BPCS405CDS  *FILE     SSA             .33         268988.4  
09/23/97  10/15/97  RPG Sources for BPCS v4.05 Bridge 2

You might want to consider removing parts of the OS that you are not using.  
This 
should only be done with DLTLICPGM or via the menu GO LICPGM.

For customizing of the PRTDSKINF reports you can query the file 
QUSRSYS/QAEZDISK.  QUSRSYS, not QSYS!





keg@gasco.gasco.com on 05/10/99 12:29:55 PM
Please respond to MIDRANGE-L@midrange.com@Internet
To:     midrange-l@midrange.com@Internet
cc:      

Subject:        How to see if *LF's are being used...

Hello -

I've been asked an interesting question...

My boss wants to know if there are any logical files on the system that have
never been used....

If your boss asked you this question, how would you go about finding this
information?

TIA for all your input.

Kenneth

--
********************************
         Kenneth  E.  Graap             
    IBM Certified Specialist                 
          AS/400   Professional                   
          System  Administrator                  
 NW Natural - Information Services        
           System Services                         
        503 226 4211 X5537                 
          FAX  503 721 2521                  
      keg@nwnatural.com               
********************************

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


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


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.