RE: Performance of SQL

You should be able to use the %CHAR BIF to convert the date to an alpha field.

Example taken from the ILE RPG Reference

D date S D INZ(D'1997/02/03')
D time S T INZ(T'12:23:34')
D result S 100A VARYING

*-----------------------------------------------------------------
* To format the time and date with the default formats, use this:
*-----------------------------------------------------------------
/FREE
result = 'It is ' + %CHAR(time) + ' on ' + %CHAR(date);
// If the default formats are both *USA,
// result = 'It is 12:23 PM on 02/03/1997'

//--------------------------------------------------------------
// To format the time and date with specific formats, use this:
//--------------------------------------------------------------
result = 'It is ' + %CHAR(time : *hms:)
+ ' on ' + %CHAR(date : *iso);
// result = 'It is 12:23:34 on 1997-02-03'
/END-FREE

 -----Original Message-----
From:   rpg400-l-bounces+rclark=ezon.ezoninc.com@xxxxxxxxxxxx   On Behalf Of 
CarollaT@xxxxxxxxxxxxxx
Sent:   Friday, April 16, 2004 3:57 PM
To:     rpg400-l@xxxxxxxxxxxx
Subject:        RE: Performance of SQL

I am (trying to) use free-form specs finally, but I am having some
difficulty performing date functions.  I figured out that I can use the
%DAYS/%MONTHS, etc. BIFs for date arithmetic, but when I want to extract the
date to an alpha field, MOVE is the only way I know of, except for using the
%SUBDT, then converting each component to an alpha sub-field component of a
DS, etc. etc.  This way seems clunky to me, and so my solution, for now, is
to /End-Free, MOVE the date into the alpha field, then re- /FREE again
(messy).  Isn't there a way to alpha-ize a date field in free form specs? 

Tony Carolla
MedAmerica Billing Services, Inc. 
_______________________________________________
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.