Daily backup: how to detect non used libraries.

Question

Hi,
We use a CL program with a list of SAVLIB commands to save all production librarires every day. The problem is that this CL has been mantained for several years and probably most of the saved libraries are not used anymore. I'm only responsible of the SAP backup lines.
How can I detect what libraries are not used now ? I've tried to look at the file attributes in this libraries but the backup itself mantains this fields.
Of course, I know that our functional people must know what is in use and what is obsolete, but in some cases the people that mantains applications has changed...
Any idea will be appreciated !!
Regards,
Joan B. Altadill
CELSA SAP Admin

Answer 1

I use this method in iSeries Navigator, Run an SQL script:
<begin copy>
/*---   Display the objects in the library to an outfile.  Change the value of {sourcelib} to the desired library.   ---*/
CL:     DSPOBJD OBJ(sourcelib/*ALL) OBJTYPE(*FILE) DETAIL(*SERVICE) OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJDTMP)  ;
/*---   List the objects in ascending order by LastUsedDate   ---*/
SELECT      ( Char(Date(Now())) CONCAT '  '  CONCAT  Char( Time(Now())) ) DataPulled,
     (CASE      WHEN ODCDAT = ' '
          THEN     ' '
          ELSE     (CASE      WHEN ODCCEN in ( '0' , ' ' )
                    THEN       '19'
                         CONCAT SUBSTR(ODCDAT, 5, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODCDAT, 1, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODCDAT, 3, 2 )
                    ELSE     '20'
                         CONCAT SUBSTR(ODCDAT, 5,2 ) 
                         CONCAT '-'
                         CONCAT SUBSTR( ODCDAT, 1, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODCDAT, 3, 2 )
               END )
     END) CreationDate,
     (CASE      WHEN ODUDAT = ' '
          THEN     ' '
          ELSE     (CASE      WHEN ODUCEN in ( '0' , ' ' )
                    THEN       '19'
                         CONCAT SUBSTR(ODUDAT, 5, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODUDAT, 1, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODUDAT, 3, 2 )
                    ELSE     '20'
                         CONCAT SUBSTR(ODUDAT, 5,2 ) 
                         CONCAT '-'
                         CONCAT SUBSTR( ODUDAT, 1, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODUDAT, 3, 2 )
               END )
     END) LastUsedDate,
     (CASE      WHEN ODSDAT = ' '
          THEN     ' '
          ELSE     (CASE      WHEN ODSCEN in ( '0' , ' ' )
                    THEN       '19'
                         CONCAT SUBSTR(ODSDAT, 5, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODSDAT, 1, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODSDAT, 3, 2 )
                    ELSE     '20'
                         CONCAT SUBSTR(ODSDAT, 5,2 ) 
                         CONCAT '-'
                         CONCAT SUBSTR( ODSDAT, 1, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODSDAT, 3, 2 )
               END )
     END) SavedDate,
(CASE      WHEN ODRDAT = ' '
          THEN     ' '
          ELSE     (CASE      WHEN ODRCEN in ( '0' , ' ' )
                    THEN       '19'
                         CONCAT SUBSTR(ODRDAT, 5, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODRDAT, 1, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODRDAT, 3, 2 )
                    ELSE     '20'
                         CONCAT SUBSTR(ODRDAT, 5,2 ) 
                         CONCAT '-'
                         CONCAT SUBSTR( ODRDAT, 1, 2 )
                         CONCAT '-'
                         CONCAT SUBSTR( ODRDAT, 3, 2 )
               END )
     END) RestoreDate,
     ODCRTU CreatedBy,
     ODLBNM LibraryName,
     ODOBNM ObjectName,
     ODOBTP ObjectType,
     ODOBAT ObjectAttribute,
     ODSRCL SourceLibrary,
     ODSRCF SourceFile,
     ODSRCM SourceMember,
     (Case      When ODOBSZ = 9999999999 Then (ODSIZU * ODBPUN)
           Else ODOBSZ
     End) ObjectSize,
     ODOBTX ObjectText
FROM QTEMP.DSPOBJDTMP
Order BY LastUsedDate  ;
<end copy>
Copy/paste the code into the session, change the value of , and then Ctl+R to run all of the statements.
You can then view the results and determine if the objects haven't been used recently.
Hope this helps!
Robert
P.S.  This forum doesn't show neatly formatted code as I have it in my script, but it does work.
Message was edited by: Robert Clay
added code tags