Re: creating a log spool file for backups

[rob@xxxxxxxxx]

DSPOBJD OBJ(ROB/QPGMSRC) OBJTYPE(*FILE) DETAIL(*FULL)
on a file shows:
Save/Restore information: 
  Save date/time . . . . . . . . . . :   07/31/05  23:42:37
  Restore date/time  . . . . . . . . :   05/22/04  12:34:20
  Save command . . . . . . . . . . . :   SAVLIB 
  Device type  . . . . . . . . . . . :   Tape 
  Sequence number  . . . . . . . . . :   893 
  Volumes  . . . . . . . . . . . . . :   SFRI12 
  File label ID  . . . . . . . . . . :   ROB 
  Save format  . . . . . . . . . . . :   Serial 

Try this:
DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*ALL) OUTPUT(*OUTFILE) 
OUTFILE(MYLIB/DSKDTL)

Then this:
SELECT ODLBNM, ODOBNM, ODOBTP, ODOBAT, ODSDAT, 
case 
  when substr(odsdat,5,2)='  ' then 
       date('01/01/1801') 
  when substr(odsdat,5,2)>'06' then 
       date(substr(odsdat,1,2) concat '/' concat
            substr(odsdat,3,2) concat '/' concat
            '19' concat 
            substr(odsdat,5,2)) 
  else 
       date(substr(odsdat,1,2) concat '/' concat
            substr(odsdat,3,2) concat '/' concat
            '20' concat 
            substr(odsdat,5,2)) 
  end as SavedDate 
from qtemp/dskdtl 
order by SavedDate 


Anything of value in your IFS?
WRKLNK '/*'


Rob Berendt