RE: TEST Date in free form

Even better, user MONITOR:

/free
  monitor ;
    testDate = %date( Today : *USA );
  on-error ;
    // do some error handling
  end-mon ;
/end-free

For more on dates in RPGIV, read this:
http://www.midrangeserver.com/fhg/fhg051904-story01.html

Joel Cochran
http://www.rpgnext.com

On Wed, 2005-06-15 at 06:28, Simonse, Arco (CMK) wrote:
> Hi,
> 
> It's not that difficult:
>  
> Test(ed) *USA Today ;
> 
> Best Regards,
> 
> Arco Simonse
> pgmr
> -- 
>  
> 
> > -----Oorspronkelijk bericht-----
> > Van: rpg400-l-bounces@xxxxxxxxxxxx 
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Namens Chandana Silva
> > Verzonden: woensdag 15 juni 2005 07:59
> > Aan: RPG400-L@xxxxxxxxxxxx
> > Onderwerp: TEST Date in free form
> > 
> > I have been searching a way to replace the following code in 
> > free form..
> >  
> > C          *USA                  TEST(DE)                 TODAY    
> >  
> > I am sure there are some ideas.
> >  
> > Thanks.. 
> > 
> > 
> > --
> > 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.
> > 
> > 
> DISCLAIMER:
> This message contains information that may be privileged or
> confidential and is the property of C.Meijer B.V. It is intended only for the 
> person to whom it is addressed. If you are not the intended recipient, you 
> are not authorized to read, print, retain, copy,disseminate, distribute, or 
> use this message or any part thereof. If you
> receive this message in error, please notify the sender immediately and 
> delete all copies of this message. 
> 
> This footnote also confirms that this email message has been swept by the 
> presence of computer viruses
>