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