× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.