|
Hey Bill, Just to clarify, Procedures and /free are not intrinsically related... How about something simple: <psuedo-code> d myDateStr ds d year 4 0 d dash1 1 inz( '-' ) d month 2 0 inz( 1 ) d dash2 1 inz( '-' ) d day 2 0 inz( 1 ) c eval year = %subdt( %date() - %years(3) : *y ) </psuedo-code> Now myDateStr should equal '20000101' as a string. You could even then use the string to get a real date field... c eval myDate = %date( myDateStr ) HTH, Joel http://www.rpgnext.com On Wed, 2003-08-13 at 16:18, Bill Hopkins wrote: > Non-Free RPGIV > Client won't let me use procedures > > I want to take todays date and > init month / day to 1 and then sub 3 years > > today = 20030813 > result = 20000101 > > Anyone have example with out Moves??? > > Thanks > > Bill Hopkins > _______________________________________________ > 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 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.