Re: Date Operation

[michaelr_41@xxxxxxxxxxxxxx]

You just add it...

D MyDate          S          D
D NewData         S          D
/free
  MyDate = OldDate + 1:*Month


On Wed, 16 Jun 2004 12:50:47 -0700, CarollaT@xxxxxxxxxxxxxx said:
> A simple question.  How can I add one month to a date variable... in free
> format?  ADDDUR doesn't work with free-format, so I imagine there's some
> way, using the invisible EVAL.  
> 
> 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.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx