Re: Dynamically Assigning A Value To A Date Filed

[Jon Paris <Jon.Paris@xxxxxxxxxxxxxx>]

On 4-Jul-08, at 6:57 AM, midrange-l-request@xxxxxxxxxxxx wrote:

> I have the following defined in a PRGILE program.
>
> D TestDate        S       D   DatFmt(*iso) INZ(D'2008-07-04')
>
> However what I want to do is assign a value to TestDate at runtime.
>
> ie Something like
>
> Eval TestDate = '2008-07-04'

This should really be in RPG400 but this is a quick one so ...

You need a D in front of the literal - to tell the compiler to treat  
it as a date and not character.

i.e. TestDate = D'2008-07-04';


Jon Paris

www.Partner400.com
www.SystemiDeveloper.com