RE: SQL list *OUTFILE of DSPOBJD by date

This works great thanks!

Is it possible to ensure this functions properly even if a user does a CHGJOB DATFMT(*YMD) and then uses the SQL suggested below?

Problem is that the SQL is expecting the date to be a certain format MMDDYY or whatever. If the job format is changed to YYMMDD as is more common in IT, then the SQL fails.

Thanks!


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Monday, April 08, 2013 6:09 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: SQL list *OUTFILE of DSPOBJD by date

Humans are very adaptable to deal with an /ugly/ date format such as
MMDDYY, even when a typical computer algorithm is not so amenable. Thus
the following is probably sufficient for most humans; i.e. little need
to recompose the 6-digit date [best when all date values are between
1940 and 2039]:

select ODLBNM, ODOBNM, ODOBTP, ODCDAT, ODOBTX
from QTEMP/DSPQRY
order by ODCCEN desc , right(ODCDAT, 2) desc
, left(ODCDAT, 4) , ODCTIM desc

If using *MDY for the DatFmt, and ignoring the ODCCEN is acceptable,
then the following expression is fairly succinct [all dates must be in
the 1940-2039 100-year window]:

date(insert(insert(ODCDAT, 5, 0, '/'), 3, 0, '/'))

Avoiding the 6-digit year format and the ignoring of the ODCCEN, to
ensure the date is processed to the correct century, the following
expression formulating a *USA date format is a bit longer:

date( insert( insert( ODCDAT, 3, 0, '/')
, 6, 0 , '/' concat digits(dec(ODCCEN+19, 2)) ) )

Regards, Chuck

On 08 Apr 2013 14:38, Stone, Joel wrote:

I would like to list the *OUTFILE of DSPOBJD by date.

Since DSPOBJD provides the incredibly ugly date format MMDDYY, I
would like to convert it to a date with year 99 going to the end
of the descending order.

What is a good method to do this?

Do I have to construct the date such as shown below?

But even then the year 99 pops to the top (it should be at the end).

I think I have to use DATE and CHAR and TRIM to build the date.

How do I force it to take MMDDYY and calc 1900 or 2000?

*MDY??

Is there a simpler, better way? (There must be :))

Thanks!

select ODLBNM,ODOBNM,ODOBTP
, substr(ODCDAT,5,2) || '-' || substr(ODCDAT,1,2)
|| '-' || substr(ODCDAT,3,2)
as CreateDate
, ODOBTX
from qtemp/dspqry
order by CreateDate desc