midrange.com code scratchpad
Name:
Easiest way to get a list of objects in a library, with their last-changed date?
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
09/12/2024 08:38:15 pm
IP:
Logged
Description:
for older systems
Code:
  1. cl: DSPOBJD (QGPL/*ALL) (*all) OUTPUT(*OUTFILE) OUTFILE(QTEMP/QADSPOBJ) ;
  2.                                                                          
  3. CREATE TABLE QTEMP.ZADSPOBJ AS(                                          
  4.  SELECT A.Odlbnm Libname                                                  
  5.        ,A.Odobnm Objname                                                 
  6.        ,A.Odobtp Objtype                                                 
  7.        ,A.Odobat Objattr                                                 
  8.        ,A.Odobsz Objsize                                                 
  9.        ,A.Odobtx Textdesc                                                
  10.        ,DATE(TIMESTAMP_FORMAT(                                           
  11.                CASE                                                      
  12.                    WHEN A.Odccen = '0' THEN '19'                         
  13.                    ELSE '20'                                             
  14.                END || SUBSTR(A.Odcdat, 5, 2)                             
  15.                    || SUBSTR(A.Odcdat, 1, 4), 'YYYYMMDD')) Crtdate       
  16.     FROM Qtemp.Qadspobj A order by crtdate DESC ) WITH DATA ;                                  
© 2004-2019 by midrange.com generated in 0.01s valid xhtml & css