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



I'm assuming that this is in a SQLRPGLE program as your subject states.

I suggest that in the program to get the current date and store it in an
RPGLE 8,0 field in the format same format as what is in your XYZDAT.

D Today           S           8  0

C             Eval Today = %Dec(%Date():*ISO)      //  *ISO is YYYYMMDD
format
 * OR
C             Eval Today = %Dec(%Char(%Date():*ISO0):8:0)      //  *ISO0 is
YYYYMMDD format

Then you SQL statement would look like this

Select * from XYZ where XZYDAT = :Today



Ciao!
Michael Schutte
Classic Italian dishes with a Bob Evans Twist - Enjoy our new Homestyle
Pastas!


rpg400-l-bounces@xxxxxxxxxxxx wrote on 11/30/2006 07:01:36 AM:

Hi List,
There is a file having field XYZDAT( Numeric type, size 8,YYYYMMDD). This
field is used to hold the Invoice date but its data type is numeric.I
would
like to make a date difference between Current date Curdate( ) and
XYZDAT. I
need to change the data type numeric to Date type.Any idea regarding the
conversion of  data type from Numeric to Date type ? would b grat if i
can
make it in a single SQL statement.
Thanks in advance.
--
Regards,
Sanjib
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

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.