|
You know, I must admit, I tried a variation on what you suggested, and this is a bit simpler, when you use %Int and %Char (%Int doesn't accept a date as a parm directly). I changed the test pgm to the following, and it works -- four-digit year and all: D DateA S D Inz(d'2005-01-01') D DateB S D Inz D NumDays S 10U 0 Inz /Free *InLR=*On; NumDays=%Int(%Char(DateA:*ISO0)); DateB=%Date(NumDays:*ISO); Return; /End-Free Thanks for the tip! On 10/10/05, Jon Paris <Jon.Paris@xxxxxxxxxxxxxx> wrote: > > >> Wacky? maybe, but saving 6 bytes per element can help sometimes. > > I don't disagree - but why bother with the date math stuff? Why not simply > use %Int to convert the date to its numeric equivalent and store that? It > has to use less resource and has the advantage that in debug the data will > still make sense. > > Jon Paris > Partner400 > > www.Partner400.com <http://www.Partner400.com> > www.RPGWorld.com <http://www.RPGWorld.com> > > -- > 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. > > -- "Enter any 11-digit prime number to continue..." "In Hebrew SQL, how do you use right() and left()?..." - Random Thought "If all you have is a hammer, all your problems begin to look like nails"
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.